Soru Hücredeki Sayı kadar Satır göster

[sirkülasyon]

Ustam
İleti sayfasında B9:B58 arasında satırım var.
J1 hücresinde yazan rakam kadar B9 dan başlamak üzere satır gösterip de kalan diğer satırların gizlenmesini nasıl kodlayabilirim?
Teşekkür ederim

 

[ÖmerBey]

Merhaba,
İlgili sayfanın kod bölümüne kopyalayıp deneyiniz...
Kodu değiştirmek isterseniz ilgili parametreler, renklere göre aşağıdadır.
Değişimiyle kodun tetikleneceği hücre
İlgili aralıktaki satır sayısı
Gizlenecek ilk satır
Gizlenecek son satır

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$J$1" Then Exit Sub
If Not IsNumeric(Target) Then
    MsgBox "Bu alana sayı girmelisiniz"
ElseIf Target > 50 Or Target < 0 Then
    MsgBox "Hatalı sayı girdiniz"
Else
    Application.ScreenUpdating = False
    Rows.Hidden = False
    If Target <> 50 Then Rows(9 + Target & ":58").Hidden = True
    Application.ScreenUpdating = True
End If
End Sub

 

[sirkülasyon]

Çok Teşekkür ederim. Sağ olasın.

 

[ÖmerBey]

Rica ederim, siz de sağ olun,
İyi çalışmalar...