Boş satır gizleme makrosu

[2008model]

Herkese hayırlı ramazanlar dostlar.benim sorum yaptığım tabloda 600 satırı b ve r sütünları arsını tarasın, değer içermeyen satırları gizlesin.yardımlarınız için şimdiden çok teşekkürler.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub gizle()
Dim sat As Long
Application.ScreenUpdating = False
    For sat = 2 To Cells(65536, "b").End(xlUp).Row
        If Cells(sat, "b") = "" And Cells(sat, "c") = "" And Cells(sat, "d") = "" _
        And Cells(sat, "e") = "" And Cells(sat, "f") = "" And Cells(sat, "g") = "" _
        And Cells(sat, "h") = "" And Cells(sat, "ı") = "" Then
            Cells(sat, "b").EntireRow.Hidden = True
        End If
    Next
    Application.ScreenUpdating = True
End Sub

Sub ac()
Dim sat As Long
Application.ScreenUpdating = False
    For sat = 2 To Cells(65536, "b").End(xlUp).Row
        Cells(sat, "b").EntireRow.Hidden = False
    Next
    Application.ScreenUpdating = True
End Sub

 

[2008model]

Hocam teşekkürler birinci kod b ve r sütünu arasımı tarıyor. Birdr ikinci kod ne görev yapıyor acaba

 

[leumruk]

Merhaba,

Sub Gizle()
Application.ScreenUpdating = False
For x = [b65536].End(3).Row To 2 Step -1
Say = WorksheetFunction.CountA(Range("b" & x & ":" & "r" & x))
If Say = 0 Then Rows(x).EntireRow.Hidden = True
Next
End Sub

 

[2008model]

Hocam ellerine sağlık işimi gördü çok sağol.ben mantığını anlamağa çalıştığım için tekrar soru sormuştum size ama anladım.iyi geceler saygılar kolay gelssin

 

[mc_exrem]

yanıt

Sub gizle()
Dim sat As Long
Application.ScreenUpdating = False
    For sat = 2 To Cells(65536, "b").End(xlUp).Row
        If Cells(sat, "b") = "" And Cells(sat, "c") = "" And Cells(sat, "d") = "" _
        And Cells(sat, "e") = "" And Cells(sat, "f") = "" And Cells(sat, "g") = "" _
        And Cells(sat, "h") = "" And Cells(sat, "ı") = "" Then
            Cells(sat, "b").EntireRow.Hidden = True
        End If
    Next
    Application.ScreenUpdating = True
End Sub

Sub ac()
Dim sat As Long
Application.ScreenUpdating = False
    For sat = 2 To Cells(65536, "b").End(xlUp).Row
        Cells(sat, "b").EntireRow.Hidden = False
    Next
    Application.ScreenUpdating = True
End Sub

merhaba, ben de 17- 27 satırlarındaki boş alanlara uygulamak istiyorum ama kodu o şekilde düzenleyebilir misiniz? bu satırlar belli olmuyor yani işlem 11 ve 27 satırlarına uygulamak gerek