Select last cell containing data greater than 0

[tanewha69]

Hi there,
How do I create a macro to select the last cell in a column containing data that is greater than zero. The column also consists of zero's and blanks.
Thanks in advance

[davesexcel]

try this out, set the range to start wherever you want, it starts at the bottom and works its way up until there is a value greater than zero

Sub Button1_Click()
Application.ScreenUpdating = False
Range("A200").Select
Do Until Selection.Value > 0

ActiveCell.Offset(-1, 0).Range("A1").Select
Loop

End Sub

[skatonni]

This should prove faster as the cell value is checked without selecting.

Please Login or Register  to view this content.