help to find last empty row but a bit strange

[mahyr]

hey
im trying to find my sheet's last empty row and place my data there. here is what i've wrote
num=Application.WorksheetFunction.CountA(Range("C:C")

i defined to search in C column but it searches A column and based on that places the datas wrong

 

[C with no eyes]

I presume you are in VBA?

    Range("C1").Select    
    Selection.End(xlDown).Select
    Selection.Offset(1, 0).Select

It copies the following actions:
Go to C1
CTRL+DOWN
DOWN

Hope this helps

 

[mahyr]

thanks for your time

 

[tonyyy]

mahyr,

Welcome to the Board.

A couple of common, reliable ways to find the last row with data...

Dim LastRow As Long
LastRow = Cells(Rows.Count, "C").End(xlUp).Row
LastRow = ActiveSheet.Cells.Find(What:="*", After:=Cells(1, 1), LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Row

If you want the blank row after the LastRow, simply add 1...

LastRow = Cells(Rows.Count, "C").End(xlUp).Row + 1

Cheers,

tonyyy

 

[mahyr]

yeah i used this one before but i couldn't get the result i wanted till then i found the upper simpler one and that was what i wanted, so i wanted to extend it, and thanks to you, i did
Dim LastRow As Long
LastRow = Cells(Rows.Count, "C").End(xlUp).Row
LastRow = ActiveSheet.Cells.Find(What:="*", After:=Cells(1, 1), LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Row

 

[MARK858]

@ mahyr, do you acyually want LookIn:=xlFormulas which includes formula cells returning ""? and why are you defining LastRow twice (LastRow = Cells(Rows.Count, "C").End(xlUp).Row isn't serving any purpose)?

Btw, ActiveSheet.Cells. refers to every column on the sheet and not just column C.