Selection of multiple cell within range in VBA?

[azusa_329]

Hello i am a very VBA newbie and i wonder if it is
possible to select multiple cells that contains more than 0? ( Range("A1").Value > 0)
and if its not move to the next cell until it find the cell have value
more than 1
can i ask what kind of statement and function that i must learn? Thank you very much.

 

[alansidman]

Here is an example of what your code should look like

Option Explicit


Sub foo()
    Dim i As Long, lr As Long
    lr = Range("A" & Rows.Count).End(xlUp).Row    'Looks for last item in Column A
    For i = 2 To lr    'sets loop
        If Range("A" & i) > 0 Then
            'Do something if line above is true, otherwise go to next line
        End If
    Next i    'sets up next item in loop
End Sub