Soru Excel vba satır gizle/göster kod kısaltma

[MESUT K]

Herkese Selamlar

Aşağıdaki kod dizisini (satır gizle/göster) daha kısa yazmanın bir yolu varmıdır.Bilen arkadaşlardan yardım istiyorum

Saygılarımla


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [O1,A1]) Is Nothing Then Exit Sub
If [A1] = AA And [O1] = BEN Then

Rows("1:3").Hidden = False
Rows("4:25").Hidden = False
Rows("26:30").Hidden = True
Rows("31").Hidden = False
Rows("32:36").Hidden = True
Rows("32:36").Hidden = True
Rows("37:38").Hidden = False
Rows("39:120").Hidden = True

Rows("121:148").Hidden = False
Rows("149:182").Hidden = True
Rows("183:185").Hidden = False
Rows("186:188").Hidden = True
Rows("189:197").Hidden = False

Worksheets("DATA").Rows("1:26").Hidden = False
Worksheets("DATA").Rows("27:41").Hidden = True
Worksheets("DATA").Rows("42:71").Hidden = False
Worksheets("DATA").Rows("72:126").Hidden = True
Worksheets("DATA").Rows("127:154").Hidden = False
End If
End If

End Sub

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki gibi olabilir.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [O1,A1]) Is Nothing Then Exit Sub
    If [A1] = AA And [O1] = BEN Then
        Rows("1:197").Hidden = False
        Range("26:30, 32:36, 39:120, 149:182, 186:188").EntireRow.Hidden = True
        Worksheets("DATA").Rows("1:154").Hidden = False
        Worksheets("DATA").Range("27:41, 72:126").EntireRow.Hidden = True
    End If
End Sub

 

[MESUT K]

Çok teşekkür ediyorum.İşimi fazlasıyla gördü.Elinize sağlık