Bos Satırlar

[maverick6]

sayın leventm yazdığınız kodun göster şeklini de yazabilirmisiniz.
ayrıca Range("A1:A" & Cells(65536 bu makroda A1 ile A65536 arası gizleniyor değil mi.

benim gizle göster yapmak istediğim formüllü hücreler AA6 ile AA185 arası o şekilde yapacam.

şimdiden teşekkürler.

 

[VisuaL.NET]

Araçlar-seçenekler-görünüm penceresinde "sıfır değerleri" kutusundaki işareti kaldırırsanız sıfır olan değerler görünmez.

Teşekkürler... Ufak bir bilgi ama çok fazla işime yaradı....

 

[maverick6]

sayın Leventm,

yukarıdaki makroda şöyle bir hata veriyor

For Each hücre In Range("A1:A" & Cells(65536, 1).End(xlUp))

ben A sütünundaki formül sonucu 0 (sıfır) çıkan hücreleri gizlemek istiyorum, ama olmuyor. ayrıca bu makronun göster şeklini de yapabilirmisiniz.

 

[Levent Menteşoğlu]

Gizlemek için;

[vb:1:8c85ea36c4]Sub Gizle()
For Each hücre In Range("A1:A" & Cells(65536, 1).End(xlUp).row)
If hücre.Value = 0 Or hücre.Value = "" Then
Rows(hücre.Row).EntireRow.Hidden = True
End If
Next hücre
End Sub
[/vb:1:8c85ea36c4]

Göstermek için;

[vb:1:8c85ea36c4]Sub Göster()
rows("1:65536").entirerow.hidden=false
End Sub
[/vb:1:8c85ea36c4]

 

[maverick6]

sayın leventm, ilginize teşekkür ediyorum. çok güzel oldu.