Find 1st empty row in data base issue

[bamaisgreat]

I need the code I have for finding first empty row to ignore the data i have in column A. I have data in row 1 also. Im not sure how to adjust the code below. Thanks for the help as always

iRow = ws.Cells.Find(What:="*", SearchOrder:=x1Rows, _
    SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1

 

[ajamess]

You say ignore column A. If you don't have any holes in data making blank cells possible. I often use application.worksheetfunction.counta(RANGE), on a column that I know has data in it every row that is used. Say A has dates all the way down, and B is value on that date, never holes in the middle, i use this regularly.

 

[bamaisgreat]

Thanks for you help. This is some code that was in this workbook when I started using it. I dont know much at all about VBA. Could you possibly edit the code I have to show how it should look? Thanks

 

[ajamess]

I have fairly basic VBA knowledge, so there may be a more efficient way. If there are no gaps like I mentioned in column B (Can change this to any column without Gaps). I would do:

irow = application.worksheetfunction.counta(Range("B:B")) + 1

 

[bamaisgreat]

That worked great. Thank you

 

[Trebor76]

on a column that I know has data in it every row that is used

This will find the last row in Col. B and increment by one regardless:

irow = Cells(Rows.Count, "B").End(xlUp).Row + 1

Your original code finds the last row in whatever column it exists and increments it by one. It will error out though if the sheet is blank.

HTH

Robert

 

[Fluff]

Another option, based on your original code

irow = Ws.Range("B:H").Find(What:="*", SearchOrder:=xlRows, _
    SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1

This will find the last row in columns B to H