Yazdır butonu

[soneris]

ActiveSheet.PageSetup.PrintArea = "$A$1:$H$50"
ActiveSheet.PrintOut

kodu ile yazdır butonu ekliyorum fakat A sütunu boş olan satırlar yazdırılmasın istiyorum!

 

[systran]

bunu deneyin. 1 den 50. satıra kadar A sütunu verilerini kontrol eder. (A1:H50 aralığını kullandığınız için)

For i = 1 To 50
 If ActiveSheet.Range("A" & i) = Empty Then
    'a sütunu boş gizle
    Rows(i & ":" & i).EntireRow.Hidden = True
 End If
Next i

'SİZİN YAZDIRMA KODLARINIZ BURAYA GELECEK

Rows(1:50).entirerow.hidden=false