Find first empty cell in row range-VBA

[ljubo_gr]

=Happy+New(Year(2017))

I have three sheets, they have columns A&B, ranges A2:A100, B2:B100. "A" range will always be shorter than B, if that means something. I need vba code to move my selector to First free cell in sheet1 "A"range, another code for "B"range, then another codes for Sheet2...Sheet3.
Thanks in advance kind people!

 

[Michael M]

so you are not actually looking for a blank cell in a set of data, simply the next available cell...is that correct ???

 

[ljubo_gr]

so you are not actually looking for a blank cell in a set of data, simply the next available cell...is that correct ???

Yes, Michael, Columns named "DATUM" Date, will always have value, yes, i want jump to First available cell(row)

 

[Michael M]

Gee, I wish we had known that earlier.......

Sub upArrow()
ThisWorkbook.ActiveSheet.Range("B" & Cells(Rows.Count, "B").End(xlUp).Row + 1).Select
End Sub

Sub DownArrow()
ThisWorkbook.ActiveSheet.Range("B" & Cells(Rows.Count, "P").End(xlUp).Row + 1).Select
End Sub

 

[ljubo_gr]

I'm unable to test this, i don't have workbook on HDD, will test tomorrow at work, THANKS MICHAEL M, GOD BLESS!

 

[ljubo_gr]

Michael, B column is working, now the problem is P column, it won't jump to first free cell, it jumps to the end of table!?
Thanks so much,

 

[S_Wish]

Sub DownArrow()
ThisWorkbook.ActiveSheet.Range("[COLOR=#ff0000][FONT=arial]P[/FONT][/COLOR]" & Cells(Rows.Count, "P").End(xlUp).Row + 1).Select
End Sub

just change "B" to "P"

 

[ljubo_gr]

I was, still not working. Uploading updated workbook. Code won't clear cache?

 

[MARK858]

Try

Sub DownArrowX()
Dim lr As Long
lr = ThisWorkbook.ActiveSheet.Range("P:P").Find(what:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row
ThisWorkbook.ActiveSheet.Range("P" & lr + 1).Select
End Sub

 

[MARK858]

Or if brevity is important to you then as a one-liner try

Sub DownArrowZ()
ActiveSheet.ListObjects("Table2").ListColumns(1).DataBodyRange.Find("*", , xlValues, , , xlPrevious).Offset(1).Select
End Sub

 

[ljubo_gr]

Wich one is better? Wich one will not mess when mutiple workbook are opened?
Thank You.


First one, not working as it should. It select B2 cell P2, I need to start from B7 P7


https://1drv.ms/x/s!ArVOOVnFRGX4hYdG26Rrp-vnqrDCmA