Sütun ve Satır Gizleme

[horozlar-20]

Merhaba Excel sevenler
Örnek tabloda belirttiğim üzere sizlerden acil yardım bekliyorum. Şimdiden ilgi ve alakanıza çok teşekkür ederim yardım edenlerine emeğine sağlık.

 

[öğrtm]

mrb
dosyayı eklememişsiniz.

 

[horozlar-20]

Özür Dilerim Yeni olmamızın acemiliği

 

[leumruk]

Sub Gizle()
For i = 3 To [d65536].End(3).Row
If Cells(i, "d") = 0 Or Cells(i, "d") = 0 Then Cells(i, "d").EntireRow.Hidden = True
Next i
End Sub

Sub Göster()
Rows.EntireRow.Hidden = False
End Sub

Kodları butona bağlayıp kullanabilirsiniz. D sütunu baz alınarak hazırlanmıştır.

 

[ozgretmen]

Bu kod ile de boş olan sütunları gizlemeniz mümkün.İyi çalışmalar.

Sub Sütun_Gizle()
For i = 1 To 256
If WorksheetFunction.CountA(Columns(i)) = 0 Then
Columns(i).Hidden = True
End If
Next i
End Sub