VBA row hidding

[raigos]

Hi, i have use some examles from this site:

Sub kustutame_read()
ScreenUpdating = True
For Each r In Range("F2:F10000")
If r.Value = "ZXD00" Then
r.EntireRow.Hidden = True
ElseIf r.Value = 1 Then
r.EntireRow.Unhidden = True
End If

Next
End Sub

Now what i must do, is that if it founds that "ZXD00" then it have to hide also previous row too. How i can do that?

Thx

Raigo Siitam

 

[VoG]

Try

Sub kustutame_read()
Dim r As Range
For Each r In Range("F2:F10000")
    If r.Value = "ZXD00" Then
        r.Offset(-1).Resize(2).EntireRow.Hidden = True
    ElseIf r.Value = 1 Then
        r.Offset(-1).Resize(2).EntireRow.Hidden = False
    End If
Next r
End Sub

 

[raigos]

Try

Sub kustutame_read()
Dim r As Range
For Each r In Range("F2:F10000")
    If r.Value = "ZXD00" Then
        r.Offset(-1).Resize(2).EntireRow.Hidden = True
    ElseIf r.Value = 1 Then
        r.Offset(-1).Resize(2).EntireRow.Hidden = False
    End If
Next r
End Sub

Thx for fast reply, it works and thx again.

Raigo