Yazdırma için kullandığım koda koşul eklemek

[masuk500]

Sub Düğme1_Tıklat()
Dim i As Integer
Dim a As Integer
a = 0
For i = 5 To 256 Step 63
If Cells(i, "c").Value = "" Then
a = a + 1
Else

End If
Next i
'MsgBox a
Sheets("sayfa1").PrintOut From:=1, To:=4 - a, Copies:=1, Collate:=True
end sub

merhaba arkadaşlar bu makroda ilk sayfada veri olmasa bile yazdırmak ve tekrar sayfa2 ye gelmek istiyorum nasıl yapmam lazım?

 

[Korhan Ayhan]

Selamlar,

Sorunuzu örnek dosya ekleyip sorsaydınız daha iyi olurdu. Tahmini bir cevap vermek zorunda kalıyoruz. Aşağıdaki kodu denermisiniz.

Sub Düğme1_Tıklat()
    Dim i As Integer
    Dim a As Integer
    a = 0
    For i = 5 To 256 Step 63
    If Cells(i, "c").Value = "" Then
    a = a + 1
    End If
    Next i
    If a = 0 Then
    Sheets("sayfa1").PrintOut
    Else
    Sheets("sayfa1").PrintOut From:=1, To:=4 - a, Copies:=1, Collate:=True
    End If
    Sheets("Sayfa2").Select
End Sub

Not: Soru başlığınızıda sorunuzu içerecek şekilde düzenlemeniz gerekmektedir. Ben bu başlığı düzeltiyorum. Daha sonra açacağınız başlıklara lütfen dikkat ediniz.

 

[masuk500]

teşekkürler

 

[masuk500]

merhaba arkadaşlar
bu makro sayfadaki koşula göre veri varsa yazdırıyor.ben ilk sayfanın mutlaka yazdırlmasını sonraki sayfaların ise koşullu olarak yazdırılmasını istiyorum.bunu nasıl yapabilirim.