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
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