Create A Looped If Structure

Hey There!

I think what I am trying to do here is fairly simple, but for the life of me I can not remember how to write a Loop statement. I'm pretty basic when it comes to VB and Macros and am trying to teach myself as I go...

In a nut shell, I need a macro that will follow this logic:
* Add the values in K22 and M22 together
* If this value is 0, hide the row
* If it is not 0, move on to the next row

If needs to loop through this logic, checking every row from 22 to 1021, hiding all the rows where the value is 0 and leaving the rows that are not 0 displayed.

I came up with this:

If Range("K22").Value = "0" Or Range("M22").Value = "0" Then
        Rows("22").Select
        Selection.EntireRow.Hidden = True
End If
If Range("K23").Value = "0" Or Range("M23").Value = 0 Then
        Rows("23").Select
        Selection.EntireRow.Hidden = True
End If
If Range("K24").Value = "0" Or Range("M24").Value = 0 Then
        Rows("24").Select
        Selection.EntireRow.Hidden = True
End If
If Range("K25").Value = "0" Or Range("M25").Value = 0 Then

...
so on and so forth...

I don't particularily want to type this out 1,000 times though, and I seem to remeber that a Loop structure could do this for me, but I just don't recall how to do it.

Thanx in adance for your help!!

Try this

Sub Button1_Click()
'If Range("K22").Value = "0" Or Range("M22").Value = "0" Then
'        Rows("22").Select
'        Selection.EntireRow.Hidden = True
'End If
'If Range("K23").Value = "0" Or Range("M23").Value = 0 Then
'        Rows("23").Select
'        Selection.EntireRow.Hidden = True
'End If
'If Range("K24").Value = "0" Or Range("M24").Value = 0 Then
'        Rows("24").Select
'        Selection.EntireRow.Hidden = True
'End If


    Dim LstRws As Long, Rng As Range, c As Range

    LstRws = Cells(Rows.Count, "K").End(xlUp).Row

    Set Rng = Range(Cells(22, 11), Cells(LstRws, 11))

    Rng.EntireRow.Hidden = False

    For Each c In Rng.Cells

        If c + c.Offset(0, 1) = 0 Then c.EntireRow.Hidden = True

    Next c

End Sub

The code adds the two together, if they equal 0 then the row is hidden.

You could even use the autofilter to hide the rows that have zeros.