Zorunlu Hücre Uygulaması ve Kritere uyan sayfanın yazdırılması

[CRAYZLOVEIS]

Hepinize iki akşamlar. Arkadaşlar üstadlar...Sizden bir konuda yardımlarınızı bekliyorum. Birincisi Şu… Ekli dosyada "Kod" bölümünün altında 5 tane veri girme yeri var.. Burada hangi kod bölümü dolu ise onun satırındaki ile SOYADI - ADI ve ADRESİ bölümleri doldurulmadan bu excel dosyasından (RAPOR-ICMAL-DILEKCE SAYFALARI) hiçbir şekilde yazıcıdan çıktı alınmasın. Yani eğer kod bölümü dolu ise adı soyadı ve adres bilgilerin girilmesi zorunlu olsun...

İkinci Ricam ise eğer eğer toplam alınan ücret 15 ytl den büyük ise icmal sayfası 15 ytl den küçük ise dilekçe sayfasını yazdırmak istiyorum. Yani tek bir yazdırma tuşu olacak hangi kritere uyuyorsa o sayfayı yazacak.

Konu ile ilgili gerekli açıklamalar örnek dosyada mevcuttur. Şimdiden Tşk....

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub KONTROL()
    Sheets("RAPOR").Select
    For X = 9 To 13
    If Cells(X, 2) <> "" Then
    If Cells(X, 10) = "" Or Cells(X, 16) = "" Or Cells(X, 21) = "" Then
    MsgBox "YAZDIRMAK &#304;&#199;&#304;N GEREKL&#304; B&#214;L&#220;MLER&#304; DOLDURMALISINIZ !" & Chr(10) & Chr(10) & "SOYADI" & Chr(10) & "ADI" & Chr(10) & "ADRES&#304;", vbCritical, "D&#304;KKAT !"
    SAY = SAY + 1
    Exit For
    End If
    End If
    Next
    If SAY = 0 Then
    If [V6] >= [IV1] Then
    Sheets("ICMAL").PrintOut
    Else
    Sheets("DILEKCE").PrintOut
    End If
    End If
End Sub

 

[CRAYZLOVEIS]

Üstad öncelikle ilgilendiğin için tşk. Ederim. Yalnız makro çalışıyor ama tam istediğim gibi değil...

Birincisi hücreleri doldur diye uyarı veriyor fakat tamam tuşuna bastığımızda hücreler doldurulmadığı halde kritere uyan sayfayı yazdırıyor... Ben o hücreler dolmadan hiç bir şekilde çıktı alınmasını istemiyorum...

Birde "rapor" isimli sayfanın yazdırılmasına gerek yok... Gerekli hücreler dolu olmak kaydı ile girilen tutar 15 ytl den büyükse icmal değilse dilekçe isimli sayfalar yazılacak... Son olarak 15 yi makroda tanımlarken rakam olarak değilde hücre olarak tanımlarsız çok iyi olur.. Çünkü o rakam 6 ayda bir değişecek...

Tekrar teşekkür eder saygılar sunarım.

 

[erkankamilonas]

Birincisi hücreleri doldur diye uyarı veriyor fakat tamam tuşuna bastığımızda hücreler doldurulmadığı halde kritere uyan sayfayı yazdırıyor... Ben o hücreler dolmadan hiç bir şekilde çıktı alınmasını istemiyorum...

Çözüm için exit For yerine exit sub yazın

 

[Korhan Ayhan]

Selamlar,

Üstteki mesjımdaki kodu güncelledim. İncelermisiniz.

 

[CRAYZLOVEIS]

Üstad son düzenlemede nedense rakam ne olursa olsun icmal sayfasını yazdırıyor sanırım...

İlk mesajdaki örnek dosyada kolay kodlama yapılsın diye bir bölüm ekledim... Dosyaya bakarsanız anlarsınız... Birde eğer mümkünse uyarı verirlen standart bir uyarı değilde ilgili satırla ilgili bir uyarı verirse çok iyi olur... Eğer olmazsada bu şekildede kullanmaya çalışırım.. Elinize emeğinize sağlık...

ÖRNEK UYARI: Nakliye ile ilgili gerekli satırlar doldurulmadı

Dosyayı bu mesajada ekliyorum...

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[CRAYZLOVEIS]

Üstad uyarı kısmı tam istediğim gibi fakat bu seferde yazdırmıyor....Help...

 

[Korhan Ayhan]

Selamlar,

ICMAL ve DILEKCE isimli sayfalarda veri olmadığı için yazdırmıyordur. Ben şimdi test ettim ve kod gayet güzel çalıştı.

 

[CRAYZLOVEIS]

Yihhhhhhuuuuuu.... Evet.... haklısın... çalışıyor.... eline emeğine... klavyene sağlık......

Günün Dersi: Demek ki neymiş..... Verilen cevapları iyice kontrol etmeden tekrar tekrar soru sormayacakmışız....

 

[CRAYZLOVEIS]

Üstadlar dosyaya son şeklini vereceğim fakat bir iki ufak sorun kaldı. 7. Mesajdaki örnek dosyadan yola çıkacak olursak. Orada eksik olan hücrenin doldurulması için uyarı veriyor. Acaba uyarı verdikten sonra o hücrenin seçilmesi mümkün mü... Mesela Soyadı bölümü eksik diyorsa soyadı bölümü seçili olsun...Yani hem uyarı versin hemde doldurulması için o hücreye gitsin.. Şimdiden tşk eder saygılar sunarım..

 

[Korhan Ayhan]

Selamlar,

Örnek dosyadaki kodu aşağıdaki şekilde değiştirip denermisiniz.

Sub YAZDIR()
    Sheets("RAPOR").Select
    For X = 9 To 13
    If Cells(X, 2) <> "" Then
    If Cells(X, 10) = "" Or Cells(X, 16) = "" Or Cells(X, 21) = "" Then
    EK_MESAJ_1 = IIf(Cells(X, 10) = "", "SOYADI", "")
    EK_MESAJ_2 = IIf(Cells(X, 16) = "", "ADI", "")
    EK_MESAJ_3 = IIf(Cells(X, 21) = "", "ADRES&#304;", "")
    MsgBox Cells(X, 4) & "  ile ilgili gerekli sat&#305;rlar doldurulmad&#305; !" & Chr(10) & Chr(10) & EK_MESAJ_1 & Chr(10) & EK_MESAJ_2 & Chr(10) & EK_MESAJ_3, vbCritical, "D&#304;KKAT !"
    SAY = SAY + 1
    If EK_MESAJ_1 <> "" Then Cells(X, 10).Select: GoTo Devam
    If EK_MESAJ_2 <> "" Then Cells(X, 16).Select: GoTo Devam
    If EK_MESAJ_3 <> "" Then Cells(X, 21).Select: GoTo Devam
    Exit For
    End If
    End If
    Next
Devam:
    If SAY = 0 Then
    If [V6] >= [V4] Then
    Sheets("ICMAL").PrintOut
    Else
    Sheets("DILEKCE").PrintOut
    End If
    End If
End Sub

 

[CRAYZLOVEIS]

Üstad tekrar eline sağlık... tam istediğim gibi....