satır gizleme ve gösterme

[bitmez13]

daha önce aşagıdaki kodla satır gizleniyordu
private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("A1") = "10T1" Then
Range("5:5,7:7,9:9,11:11 ").EntireRow.Hidden = True
Else
Range("5:5,7:7,9:9,11:11").EntireRow.Hidden = False
End If

daha sonra alttaki kodu ekleme yaptım 10t1 yazınca satırlar gizleniyor 10h1 yazınca gizlenmiyor
If Range("A1") = "10T1" Then
Range("5:5,7:7,9:9,11:11 ").EntireRow.Hidden = True
Else
Range("5:5,7:7,9:9,11:11").EntireRow.Hidden = False
End If
If Range("A1") = "10H1" Then
Range("5:5,7:7,9:9,11:11 ").EntireRow.Hidden = True
Else
Range("5:5,7:7,9:9,11:11").EntireRow.Hidden = False
End If

End Sub

sanırım bir döngü hatası oluyor acaba şu şekilde olabilir mi a1 hücresine 10t1 , 10h1 den hangisini yazarsam yazayım 5,7,9,11 . satırlar gizlensin
birde 10t1 veya 10 h1 yazıncada satırlar (5,7,9,11)gizlenince 4.6.8.10 satırların satır yüksekliklerinide artırabilirmiyiz

 

[YUSUF44]

If Range("A1") = "10T1" or Range("A1") = "10h1" Then 
Range("5:5,7:7,9:9,11:11 ").EntireRow.Hidden = True
Else
Range("5:5,7:7,9:9,11:11").EntireRow.Hidden = False
End If

şeklinde deneyin.