To find row is empty or not

P

pol

Hi all,

I kindly request your help how to find a row is empty row. For example in
my following code I have to give one more condition also like



if rowcount >= currow and rowcount is not empty // How I can give the
condition

Original code as follows

LastRow = Range("G" & Rows.Count).End(xlUp).Row
currow = ActiveCell.Row

For RowCount = 1 To LastRow
If RowCount >= currow Then // I need to check row is empty or not
If Range("A" & RowCount) = "" Or Range("A" & RowCount) = 0 Then
Range("A" & RowCount) = Col_A
Else
Col_A = Range("A" & RowCount)
End If
end if
Next

With thanks
Pol
 
J

Joel

countnonblanks = Application.WorksheetFunction.CountA(Rows(2))
If countnonblanks > 0 Then

End If
 
L

Luke M

Perhaps something like:

If RowCount >= currow And _
WorksheetFunction.CountA(Cells(RowCount, 1).EntireRow) > 0 Then
'...etc.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads


Top