Soru Girilen Değer Kadar Satır Gizleme

[aytacesmebasi]

Merhaba a1 hücresine girilen değerden itibaren gizlemek istiyorum ama kodları bilmediğimden beceremedim. Örneğin a1 hücresine 11 yazıldığında 11. satırdan 80. satıra kadar gizlemek istiyorum. Bilmediğimden sağdan soldan bakarak aşağıdaki şekle getirdim ama çalışmadığına göre %100 yanlıştır

Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As Integer
a = [A1]

Rows(a&":80").EntireRow.Hidden = True



End Sub

 

[ÖmerFaruk]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    Rows(Range("A1") & ":80").Hidden = True
End Sub

 

[aytacesmebasi]

...

Teşekkür ederim. Çalışıyor. Ehh biraz yaklaşmışım sanki Yalnız kodu deneyince benim söylemediğim ve daha önce tahmin etmediğim bir durum oluştu. Mesela a1e 11 sayısını girince 11den 80e kadar satır gizliyor. Ancak daha sonra başka bir sayı girdiğimde bu işe yaramıyor doğal olarak. Mesela daha sonra 15 sayısını girdiğimde 15ten 80e kadar satır gizlemesi gerekli. Daha önce girilen 11 ile yeni girilen 15 arası satırlar görünür olmalı. Kodu bu şekilde düzenleme imkanınız var mı? Ben de biraz araştırma ve deneme yapayım bu arada ://

edit; if'ten önce şu kodu ekleyince istediğim oldu

Rows("1:80").Hidden = False