Satır Gizleme Makrosunda Bir Aralığı Gizlemesini Engelleme

[Rorschach159]

Herkese selamlar;

Elimde şöyle bir makro var ve ben bu makronun içine A159, A160, A161, A162, A163, A164 satırlarını gizlemeyecek şekilde nasıl ayarlama yapabilirim?

A14
...
A158 arası gizli olacak

A159
...
A164 hiçbir zaman gizlenmeyecek

A165
...
A309 arası gizli olacak

"Makro"

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
For i = 14 To 309
If Cells(i, "A") <> "" Then
Rows(i).Hidden = False
Else
Rows(i).Hidden = True
End If
Next
Application.ScreenUpdating = True
End Sub

 

[Seyit Tiken]

Kodlarınızı aşağıdaki örnek koda göre güncelleyebilirsiniz.

[a159:a164].EntireRow.Hidden = 0

 

[Rorschach159]

Kod çalıştı problem çözüldü. Emeğinize elinize sağlık @Seyit Tiken