kontrollü yazdırma

[d_yuksel]

merhabalar ekte gönderdiğim dosyada yazdırma işlemi ile ilgili bir kaç sorunum var yardımcı olursanız çok ama çok sevinirim. şimdiden kolay gelsin üstadlarım.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub yazdır()
If Range("C9").Value = 0 Then Exit Sub
If Range("C8") = "HAYIR" Then
    For i = 11 To 11 + Range("C9").Value - 1
        If Cells(i, "C").Value = "" Then Exit Sub
    Next i
End If
Range("B11:E22").PrintOut
End Sub

 

[d_yuksel]

benim kendi dosyama uyarladım ama olmadı sizede yolladım bakar mısınız?

 

[d_yuksel]

acil yardım lütfen

 

[d_yuksel]

bu konuyu çözecek kimse yok mu???

 

[yeniyetme]

Yazdırmak istediğiniz kısmı anlamadığım için sadece yorum yapabileceğim.


Yazılan kodda aşağıdaki kısımda bir hata var. Snt nin değeri nedir çözemedim.
Sheets(Sheets("Ana Sayfa").[C14] & " Snt").PrintOut

 

[d_yuksel]

bende senet sayfaları var bu şekilde butona tıkladığımda o sayfaları yazdırıyor. ancak ekte gönderdiğim koşullar oluşmazsa yazdırma işlemini durdurmasını istiyorum.

 

[d_yuksel]

yardımcı olacak kimse yok mu???

 

[d_yuksel]

lütfen yardım....................

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub YAZDIR()
    If Sheets("Ana Sayfa").[C2] = "" Or Sheets("Ana Sayfa").[C2] = 0 Then
    MsgBox "LÜTFEN FİRMA ADINIZI YAZIN", vbCritical, "DİKKAT !"
    Exit Sub: End If
    If Sheets("Ana Sayfa").[C4] = "" Or Sheets("Ana Sayfa").[C4] = 0 Then
    MsgBox "AD SOYAD KISMI BOŞ BIRAKILAMAZ", vbCritical, "DİKKAT !"
    Exit Sub: End If
    If Sheets("Ana Sayfa").[C5] = "" Or Sheets("Ana Sayfa").[C5] = 0 Then
    MsgBox "ADRES KISMI BOŞ BIRAKILAMAZ", vbCritical, "DİKKAT !"
    Exit Sub: End If
    If Sheets("Ana Sayfa").[C10] = "" Or Sheets("Ana Sayfa").[C10] = 0 Then
    MsgBox "LÜTFEN İLK TARİHİ YAZINIZ", vbCritical, "DİKKAT !"
    Exit Sub: End If
    If Sheets("Ana Sayfa").[C11] = "" Or Sheets("Ana Sayfa").[C11] = 0 Then
    MsgBox "SIRALI SENET İBARESİ BOŞ BIRAKILAMAZ", vbCritical, "DİKKAT !"
    Exit Sub: End If
    If Sheets("Ana Sayfa").[C14] = "" Or Sheets("Ana Sayfa").[C14] = 0 Then
    MsgBox "TAKSİT TUTARI BOŞ BIRAKILAMAZ", vbCritical, "DİKKAT !"
    Exit Sub: End If
    If Sheets("Ana Sayfa").[C11] <> "HAYIR" Then
    If Val(Sheets("Ana Sayfa").[C14]) > 0 And Val(Sheets("Ana Sayfa").[C14]) = WorksheetFunction.CountA(Sheets("Ana Sayfa").Range("B19:B30,D19:D30")) Then
    On Error GoTo Hata
    Sheets(Sheets("Ana Sayfa").[C14] & " Snt").PrintOut
    Else
    MsgBox "TAKS&#304;T SAYISI &#304;LE TAKS&#304;T TUTARI SAYISI B&#304;RB&#304;R&#304;NE E&#350;&#304;T DE&#286;&#304;L !", vbCritical, "D&#304;KKAT !"
    End If
    End If
    Exit Sub
Hata:
    MsgBox "YAZDIRMAK &#304;STED&#304;&#286;&#304;N&#304;Z SAYFA BULUNAMAMI&#350;TIR.TAKS&#304;T SAYISINI KONTROL ED&#304;N&#304;Z !", vbCritical, "D&#304;KKAT !"
End Sub