yazdır butonuna yardım

[iceman20]

Arkadaşlar, ekteki dosyada yazdır butonuna tıkladığımda öncelikle "I" sütununa göre excel sayfasının sıralanmasını daha sonra da sadece dolu olan satırların print olmasını istiyorum. Yardımlarınız için şimdiden çok teşekkür ederim

 

[Ömer]

Merhaba,

Sayfada satırlar arasında boş satır varmı?

Yani 6. satır dolu, 7 ve 8 boş, 9 satır dolu gibi oluyor mu yoksa veri girişi atlama olmadan mı ilerliyor.

 

[iceman20]

Satırlar arasında boş satır yok. Her yeni kayıt ilk boşluğa işleniyor.

 

[Ömer]

Bu şekilde deneyin.

Private Sub CommandButton5_Click()
    ActiveSheet.PageSetup.PrintArea = "$A$1:$P$" & Cells(Rows.Count, "A").End(xlUp).Row
    ActiveSheet.PrintOut
End Sub

.

 

[iceman20]

Ömer Bey, çok teşekkür ederim. Dolu olan satırları bu şekilde yazdırabiliyorum. Son olarak yazdırma işleminden önce "I" sütununa göre A-Z'ye sıralamasını sağlayabilr miyim her print den önce.
Selamlarımla

 

[Ömer]

Bu şekilde deneyin.

Private Sub CommandButton5_Click()
 
    Dim son As Long
 
    son = Cells(Rows.Count, "A").End(xlUp).Row
    Range("A5:P" & son).Sort Key1:=Range("I5"), Order1:=xlAscending
 
    ActiveSheet.PageSetup.PrintArea = "$A$1:$P$" & son
    ActiveSheet.PrintOut
 
End Sub

.

 

[iceman20]

İlginiz ve yardımlarınız için çok teşekkür ederim.

 

[kontto]

Bunu kod ile yapabilirmiyiz

 

[Ömer]

Merhaba,

İşlemler kod ile yapıldı.

 

[kontto]

Çok teşekkür ederim.