Sayfadaki Boş Alanı Seçip Satırları Gizlemek

[guter24]

Merhabalar Hocalarım kendim formülü kurmaya çalıştım fakat bir türlü içinden çıkamadım sizlerden yardım talep ediyorum. Yapmak istediğim "B10" ile "B200" hücreleri arasında hücre içeriğinde bir değişiklik yaptığımda "B10" ile "B200" arasındaki satırlardan son dolu olan satırı bulup son dolu satırın iki altındaki satırdan B200 e kadar seçip gizlesin.
Mesela diyelim ki "B15" e veri girişi yaptım "B18" den "B200" e kadar olan satırları gizlesin

Makronun sayfa içerisindeki belirtilen alanda değişiklik yapıldığında çalışması için uyguladığım yol :

Worksheet_Change(ByVal Target As Range)

Dim KeyCells As Range
Set KeyCells = Range("B10:B200")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then

Call SATIR_GİZLE

End If

End Sub

 

[Muzaffer Ali]

Merhaba.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SonSatir As Long
    If Not Intersect(Target, Range("B10:B200")) Is Nothing Then
        SonSatir = Range("B200").End(xlUp).Row + 3
        Rows(SonSatir & ":200").Hidden = True
    End If
End Sub

 

[guter24]

Merhaba.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SonSatir As Long
    If Not Intersect(Target, Range("B10:B200")) Is Nothing Then
        SonSatir = Cells(Rows.Count, "B").End(xlUp).Row + 3
        Rows(SonSatir & ":200").Hidden = True
    End If
End Sub

Öncelikle geri dönüşünüz için çok teşekkür ederim. Fakat "B" sütununda 200 üncü satırdan sonra verilerim var ve sizin yazdığınız formül "B" sütununun en sonundan başlayarak dolu satırı buluyor. Haliyle 200 üncü satırdan sonraki satırları gizliyor. Benim bu işlemi 15 ile 200 üncü satır aralığında yapmasına ihtiyacım var.

 

[Muzaffer Ali]

Kodu değiştirdim. Yeniden deneyiniz.

 

[guter24]

Kodu değiştirdim. Yeniden deneyiniz.

Teşekkür ederim bu sefer sorunsuz çalıştı sizin kadar prfosyonel olmasa da bende aşağıdaki gibi bir yol bulmuştum

Cells(200, 2).End(xlUp).Offset(3, 0).Select
Range(ActiveCell, "B200").EntireRow.Hidden = True