code to jump to last cell without text

[jrisebo]

Have a SS that has a ton of lines, would like a button that would jump to the next cell that does not have text. It can vary each time though.
Thanks

 

[jondavis1987]

Is it always in the same column or row?

 

[jrisebo]

The column can be first column, A. The whole row will be empty.

 

[DanteAmor]

Have a SS that has a ton of lines, would like a button that would jump to the next cell that does not have text. It can vary each time though.
Thanks

Try this. Change the "G" to the letter of the column you need

Sub NextBlk()
  Range("[COLOR=#ff0000]G[/COLOR]" & Evaluate("=MIN(IF([COLOR=#ff0000]G[/COLOR]1:[COLOR=#ff0000]G[/COLOR]" & Range("[COLOR=#ff0000]G[/COLOR]" & Rows.Count).End(xlUp).Row + 1 & "="""", _
  ROW([COLOR=#ff0000]G[/COLOR]1:[COLOR=#ff0000]G[/COLOR]" & Range("[COLOR=#ff0000]G[/COLOR]" & Rows.Count).End(xlUp).Row + 1 & ")))")).Select
End Sub

 

[jondavis1987]

 Sub Last_Row()
 Dim lastRow As Long    
    lastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row + 1
     Range("A" & lastRow).Show
End Sub

 

[jrisebo]

Try this. Change the "G" to the letter of the column you need

Sub NextBlk()
  Range("[COLOR=#ff0000]G[/COLOR]" & Evaluate("=MIN(IF([COLOR=#ff0000]G[/COLOR]1:[COLOR=#ff0000]G[/COLOR]" & Range("[COLOR=#ff0000]G[/COLOR]" & Rows.Count).End(xlUp).Row + 1 & "="""", _
  ROW([COLOR=#ff0000]G[/COLOR]1:[COLOR=#ff0000]G[/COLOR]" & Range("[COLOR=#ff0000]G[/COLOR]" & Rows.Count).End(xlUp).Row + 1 & ")))")).Select
End Sub

It didnt like this. I wanted it to be in a button to press. Gives me a compile error.

 

[DanteAmor]

The line was split

Try this

Sub NextBlk()
  Range("G" & Evaluate("=MIN(IF(G1:G" & Range("G" & Rows.Count).End(xlUp).Row + 1 & "="""", ROW(G1:G" & Range("G" & Rows.Count).End(xlUp).Row + 1 & ")))")).Select
End Sub

Create the button on your sheet and assign the macro.
Right click on your button.
Assign macro.
Select NextBlk
Press OK