dolu olan satırların yazdırılması

[bulentcigali]

sayın leventm nin 2005 yılında aşağıdaki vermiş olduğu bu cevab çok güzel.sorunumu hallettim.ancak yazdırılacak alan bir önceki seçili alan olarak kalıyor.
örneğin ;
Bir kayıta ait seçili alan 25 satırı kapsıyorsa,25 satırı normal yazıyor.Fakat kinci seçilen kayıtta 5 satır varsa 5 satırı seçili değil önceden seçili 25 satır seçip öyle yazıyor.
ilk seçili alanı yani 25 satırı temizleyip 5 satırı yazdırmak istiyorum.
teşekkürler

ActiveSheet.PageSetup.PrintArea = "$A$2:$F$" & [f65536].End(xlUp).Row

 

[kombo]

Kodlar gayet güzel çalışıyor. Eğer formül sonucu hücreler boş kalıyorsa ondan yapıyordur.

 

[bulentcigali]

sayın kombo formül çalışıyor ancak dediğiniz gibi o hücreler bir önceki seçimden dolayı boş gözüküyor ama karekter olarak dolu kabul ettiğinden seçime 25 satırı dahil ediyor.benim istediğimde bu 25 dolu satırı boşaltıp 2 nci kayıta ait 5 satırı yazması.diğer 20 satırı boşaltması.

 

[kombo]

Bir de şöyle deneyin.

Sub önizle()
ActiveSheet.PageSetup.PrintArea = "$A$2:$F$" & WorksheetFunction.CountIf([f:f], ">0") + 3
ActiveWindow.SelectedSheets.[COLOR=red]PrintPreview[/COLOR]
End Sub

Önizleme olarak yaptım. Siz PrintOut olarak yapın.

 

[bulentcigali]

sayın kombo gönderdiğiniz kodu girdim ancak programı kitliyor ve ön izleme yapmıyor.

 

[AS3434]

Kodları şöyle yazın.

Sub önizle1()
ActiveSheet.PageSetup.PrintArea = "$A$2:$F$" & WorksheetFunction.Match("", [F:F], 0) - 1
ActiveWindow.SelectedSheets.PrintPreview
End Sub

 

[bulentcigali]

sayın as3434 kodu aynen uyguladım ama hata veriyor
"WorksheetFunction.Match " özelliği alınamıyor diye mesaj veriyor.iyi çalışmalar

 

[bulentcigali]

sayın as3434 hatayı buldum teşekkürler.