Satır gizmele Makrosu İçin yardım

[karizmax]

Arkadaşlar elimde siteden araştırmam sonucu bi makro geçti bazı eksikleri var örnek dosyada herşey yazıyor ve örneği var bakım yardımcı olursanız bana çok yardımcı olacak..

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub Gizle()
    Dim Satır As Range
    
    Application.ScreenUpdating = False
    
    For Each Satır In Range("L2:L" & Range("L65536").End(3).Row)
        If Satır <> "" Then
            If Satır.Offset(0, 2) < 5000 And Satır.Offset(0, 3) < 5000 Then
                Satır.EntireRow.Hidden = True
            End If
        End If
    Next
    
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[karizmax]

Korhan bey çok tşk ederim inanınki çok işime yaradı..