Satır Gizleme gizleme, gösterme

[sevindi2002]

Merhaba arkadaşlar
Sorunum için yardımcı olursanız sevinrim.

Çalışma alanım : B1:B100 arasındaki hücreler
A1 hücresine 11 yazdığımda B1 den başlayarak ilk 11 satır açık kalsın , çalışma alanımdaki diğer satırlar gizlensin yani b12 den b100 kadar satırlar.
tabi A1 hücresine 50 yazarsam 50. satıra kadar açık kalacak 51-100 satırları gizlenecek.

Yardımcı olabilecek uzman arkadaşlar mutlaka vardır inşallah.
KOLAY GELSİN
Selam ve Sevgilerimle

 

[Orion1]

Buyurun.

If Range("A1").Value > 1 And Range("A1").Value < 100 Then
    Rows("1:100").Hidden = False
    For i = Range("A1").Value + 1 To 100
        Rows(i).Hidden = True
    Next
End If

 

[sevindi2002]

Teşekkür ederim kardeş, Ellerine , beynine sağlık.