Boş hücreleri yazdırmama

[last-shoot]

Merhaba;
Benim sorunum bir excel sayfasında 1000 satır hücre kenarlık ve biçimlendirmesi var çıktı almak istediğim zaman 1000 satırıda çıktı alıyor ama ben boş olan satırları çıktı almasını istemiyorum ve bir buton oluşturarak boş olan satırları çıktı almadan yazdırmasını istiyorum ve bu butonun çıktıda görünmesini istemiyorum bunu nasıl yapabilirim acaba yardımcı olursanız sevinirim.

 

[Metin Karaağaç]

Şöyle bir kod işinizi görür mü acaba?

Sub bossatirsil()
For a = 1 To Sheets.Count
sat = Sheets(a).Cells.SpecialCells(xlCellTypeLastCell).Row
sut = Sheets(a).Cells.SpecialCells(xlCellTypeLastCell).Column
For b = sat To 1 Step -1
If WorksheetFunction.CountA(Sheets(a).Rows(b)) = 0 Then Sheets(a).Rows(b).Delete
Next
For c = sut To 1 Step -1
If WorksheetFunction.CountA(Sheets(a).Columns(c)) = 0 Then Sheets(a).Columns(c).Delete
Next
Next
End Sub

 

[last-shoot]

Yardımınız içi teşekkürler fakat bu sadece boş satıları siliyor.

 

[Soundcraft]

Aynı sorunu bende yaşıyorum. Formul girdiğim 4000 hücre var ve eğer A hücresinde veri yoksa B hücresine birşey yazma gibi =EĞER(A16="";"";(F15+D16-E16)) bir formul atadım. Bu formulü 4000 hücreye kadar çoğaltttım. Hücreler boş olduğu halde sayfa boş beyazda olsa sayfaları çıkartıyor yazıcıdan.

Veri olmayan ücrelerin yazdırılmaması için ne yapabilirim acaba?

 

[Soundcraft]

Sorunu çözdüm arkadaşlar.
Tekrar böyle sorun yaşayan olursa diye aktarayım.

Aşağıdaki şekliyle sorun yaşanmadan kullanılıyor..

Sub yazdir()
ActiveSheet.PageSetup.PrintArea = "$A$1:$G$" & [a65536].End(3).Row
ActiveSheet.PrintOut
End Sub