Kosula göre satır göster

[fikretac]

Merhaba arkadaslar
Sayfa 2 de 15-65 satırları gizlenmis bir belgem var. Sayfa1 de k5 hücresine yazılan sayı kadar ( 7 ise 7 satır ) sayfa2 de gizlenmis satirlari otamatik gosteren bir makro yapabilirmiyiz. Gözterilecek satır sayısı 15 den baslayacak ve gizli kalan satirlar yazdırılmayacak. Bu islemi buton kullanmadan yapabilirmiyiz. Tsk ederim

 

[Muzaffer Ali]

Merhaba.
Sayfa2'nin kod sayfasına aşağıdaki kodu kopyalayın.
Sayfa2 K5 hücresinde bir değişiklik olduğunda kodlar otomatik çalışacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("K5")) Is Nothing Then
        If Not IsNumeric(Range("K5").Value) Then
            MsgBox "K5 hücresine sadece rakam girebilirsiniz."
            Application.EnableEvents = False
            Range("K5").Value = ""
            Application.EnableEvents = True
            Exit Sub
        End If
        With Worksheets("Sayfa1")
            .Rows("15:65").EntireRow.Hidden = False
            .Rows("15:" & 14 + Range("K5").Value).EntireRow.Hidden = True
        End With
    End If

 

[fikretac]

Muzaffer bey yazdığınız kod gizleme yapıyor. Ben kodun with bölümündeki false ve true degisikligini yaparak gizli olan satırı acmak icin kullandım. Kodu kullanacak arkadaslar buna dikkat etmeliler. Elinize saglık tsk ederim.