Satır gizle göster makrosu

[SCOCUK]

Arkadaşlar Merhaba ;


Sub Makro1()

ActiveSheet.Rows("2:200").Hidden = False
ActiveSheet.Rows("5:100").Hidden = True

End Sub

Yukardaki gibi bir makrom mevcut ben satır aralığını yeniden gizlemek istediğimde ki örnekte bu satır (5) den başlıyor ben bu değerin aktif sayfadaki (B1) hücresinden almasını istiyorum. Bunu nasıl yapabilirim acaba. İlginiz için şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki gibi kullanabilirsiniz.

Sub Makro1()
    ActiveSheet.Rows("2:200").Hidden = False
    ActiveSheet.Rows(Range("B1").Value & ":100").Hidden = True
End Sub