DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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
yanıt
Kod: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
Kod: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