satır gizleme tamam ya sütun gizleme?

[sin77]

merhaba. arkadaşlar satır gizlemenin codları bir kaç kez yazıldı çizildi. ya sütün gizleme? ve satır gizleme makrosunda bir sutun boyunca boş hücrelerin bağlı olduğu satırları gizliyor. şimdi tabloda bir satırın tamamı boş olunca bunu nasıl gizleyebiliriz?

 

[Levent Menteşoğlu]

Bir örnek dosya ekleyin.

 

[sin77]

örneğin ekli dosyadaki satır ve sütunlar.

 

[veyselemre]

kodlar D6:X16 arasındaki hücreleri denetler bu hücrelerde sayısal veriler bulunacağı varsayımı düşünülerek hazırlanmıştır.

[vb:1:09e56b662e]
Sub gizle()
'satirlar
Rows("6:16").Hidden = False
For x = 6 To 16
If WorksheetFunction.Sum(Range(Cells(x, "D"), Cells(x, "X"))) = 0 Then Rows(x).Hidden = True
Next
'sütunlar
Columns("D:X").Hidden = False
For x = 4 To 24
If WorksheetFunction.Sum(Range(Cells(6, x), Cells(16, x))) = 0 Then Columns(x).Hidden = True
Next
End Sub
[/vb:1:09e56b662e]

 

[sin77]

teşekkürler arkadaş tam istediğim gibi bir formül. Fazla olmasın ama bunların kısa yol olarak bir kutucuğa tıklayıp ulaşmak mümkünmü.yani (sütun gizle) (sütun göster) (satırgizle)(satır göster) diye onay düğmeleri nasıl yapabilirim.

 

[veyselemre]

ekteki örneği inceleyin

 

[sin77]

Tşk ler arkadaş. verdiğin örneğe göre yaptım bişeler fakat düğme 1 e tıkladığımda şöyle bir uyarı veriyor.
'Run time error 1004':
Method Rows of object '_Global ' Failed
Neden olabilir?

 

[sin77]

Acaba bu boş hücrelerde formül olduğundanmı veriyor bu hatayı.

 

[maverick6]

Sayın veyselemre, bu işlemi formül sonucu 0 (sıfır) çıkan hücrelere uygulayacak şekilde yapabilirmisiniz.

teşekkürler

 

[sin77]

arkadaşlar bu hatanın neden olabileceğini bilen varmı acaba.