satır gizleme nasıl yaparım

[2008model]

değerli dostlar merhaba,
öncelikle herkese kolay gelsin.benim sorum ben çalıştığım sayfada "A150" - "D150" - "G150" sütünlarını tarasın değer yoksa satırları gizlesin.yardımcı olursanız çok memnun olurum.. iyi pazarlar

 

[N.Ziya Hiçdurmaz]

yanıt

Hücre adreslerini kendinize göre değiştirirsiniz.

Sub gizle()
Cells.EntireRow.Hidden = False
For Each alan In Range("a1:a150,d1:d150,g1:g150")
If alan = "" Then
alan.EntireRow.Hidden = True
End If
Next
End Sub

Sub goster()
Cells.EntireRow.Hidden = False
End Sub

 

[2008model]

teşekkürler hocam.denedim ama satırlarda formül kullanıyorum.değer olmamasına rağmen tüm satırları sıra ile gizliyor.

 

[2008model]

böyle bir makro var.bunu nasıl kullanırım acaba

Sub GİZLE()
Dim sat As Long
Application.ScreenUpdating = False
For sat = 1 To Cells(65536, "t").End(xlUp).Row
If Cells(sat, "t") = "" And Cells(sat, "u") = "" And Cells(sat, "v") = "" _
And Cells(sat, "w") = "" And Cells(sat, "x") = "" And Cells(sat, "y") = "" _
And Cells(sat, "z") = "" And Cells(sat, "aa") = "" Then
Cells(sat, "t").EntireRow.Hidden = True
End If
Next
Application.ScreenUpdating = True
MsgBox (" satır gizleme işlemi başarı ile tamamlanmıştır.")
End Sub

 

[Korhan Ayhan]

Selamlar,

Küçük bir örnek dosya ile kesin çözüme gidebiliriz.

Çünkü aşağıdaki ifadenizden ben birşey anlamadım. Özellikle kırmızı renkli bölümü...

... "A150" - "D150" - "G150" sütünlarını tarasın...

 

[e_memet88]

Teşekkürler arkadaşlar benim de işime yaradı kodlar.

böyle bir makro var.bunu nasıl kullanırım acaba

Sub GİZLE()
Dim sat As Long
Application.ScreenUpdating = False
For sat = 1 To Cells(65536, "t").End(xlUp).Row
If Cells(sat, "t") = "" And Cells(sat, "u") = "" And Cells(sat, "v") = "" _
And Cells(sat, "w") = "" And Cells(sat, "x") = "" And Cells(sat, "y") = "" _
And Cells(sat, "z") = "" And Cells(sat, "aa") = "" Then
Cells(sat, "t").EntireRow.Hidden = True
End If
Next
Application.ScreenUpdating = True
MsgBox (" satır gizleme işlemi başarı ile tamamlanmıştır.")
End Sub