msgbox penceresi

[reelabuzer]

s.a. hocalar
arkadaslar bir yazdirma penceresi (userform) var burada 4-5 sayfa yazdirma secenegi var ben bunlarin bir kismini veya hepsini sectigimde yazdiriyor istedigimi yapiyor ama benim istedigim hicbir checkbox isaretlenmedi ise uyari versin bunu da yaptirdim bundan sonrasini basaramadim secim yapilmadi ise uyari versin bu uyari penceresiinddeki "cancel" e basinca yazdirma secenekleri penceresini kapasin eger "ok" secilirse sadece uyari penceresini kapasin yazdirma secenekleri penceresi acik kalsin
yardimlarinizi bkliyorum
yardimlariniz icin simdiden tesekkurler

ornek dosya ektedie

 

[Orion1]

Aşağıdaki gibi denermisiniz

Dim check_say As Byte
    check_say = 0

' eğer checkbox1 seçiliyse
On Error Resume Next
If CheckBox1.Value = True Then
    Sheets("sayfa1").PageSetup.PrintArea = "$a$1:$e$48"
    Sheets("sayfa1").PrintOut
        check_say = check_say + 1

End If

    
If CheckBox2.Value = True Then
    Sheets("sayfa2").PageSetup.PrintArea = "$a$1:$x$33"
    Sheets("sayfa2").PrintOut
        check_say = check_say + 1

End If
If check_say = 0 Then

cevap = MsgBox("Yazdırmak için bir seçim yapmalısınız", vbYesNo)
If cevap = vbNo Then Unload Me
End If

 

[reelabuzer]

sayin gizlen verdiginiz cevap icin tesekkurler bir asama daha astim kod eger secim yapilmadi ise istedigim gibi calisiyor ama secim yapildi ise (yazdirma sayfasi secildi ise) userform2 yani yazdirma secim ekrani kapansin istiyorum ama kapanmiyor burayi asamiyoru iste bu konuda yardim ederseniz sevinirim
tekrar tesekkurler

 

[Orion1]

Sorunuz tam olarak anlatamıyorsunuz.
Bu durumda evet seçeneğide seçilse hayır seçeneğide seçilse userform kapanmış oluyor .Doğrumu anlamışım.

 

[reelabuzer]

Sorunuz tam olarak anlatamıyorsunuz.
Bu durumda evet seçeneğide seçilse hayır seçeneğide seçilse userform kapanmış oluyor .Doğrumu anlamışım.

anlatimim icin kusura bakma ...

hocam soyle izah edeyim sayfa uzerindeki yazdirma secenekleri butonuna tikladim yazdirma secenek ekrani geldi burada secenekler var 1,,,4 sayfalarindan birine veya hepsine tiklayarak yazdir dedigimde secili alanlari yazdirmaya gondericek ve pencere (yazdirma tercihlerinin yapildigi) kapanacak buraya kadar ok
diyelimki yazdirma tercihlerinin oldugu pencerede secim yapmadan yazdir dedim o zaman uyari verecek uyari verdiginde ben iptal dersem hem uyari penceresi hemde yazdirma secenekelerinin oldugu formu kapatacak ve yine eger ben tamam dersem uyari penceresi kapanacak ama seceneklerin oldugu form kapatilmayacak ki tekrar secim yapabileyim secim yaptiktan sonra yazdir deyince de yaziciya gonderince formuda kapatacak umarim daha anlasilir bir dilde anlatabilmisimdir.
ilgin icin tesekkurler

 

[Orion1]

Aşağıdaki kodları bir deneyin bakalım.Şimdilik olacakmı?

Dim check_say As Byte
    check_say = 0

' eğer checkbox1 seçiliyse
On Error Resume Next
If CheckBox1.Value = True Then
    Sheets("sayfa1").PageSetup.PrintArea = "$a$1:$e$48"
    Sheets("sayfa1").PrintOut
        check_say = check_say + 1

End If

    
If CheckBox2.Value = True Then
    Sheets("sayfa2").PageSetup.PrintArea = "$a$1:$x$33"
    Sheets("sayfa2").PrintOut
        check_say = check_say + 1

End If
If check_say = 0 Then

    cevap = MsgBox("Yazdırmak için bir seçim yapmalısınız", vbYesNo)
    If cevap = vbNo Then Unload Me
    Else
    Unload Me

End If

 

[reelabuzer]

ALLAH razi olsun sayin gizlen tam istedigim gibi oldu aklin ve parmaklarin dert gormesin
emegine saglik tesekkurler

 

[Orion1]

ALLAH razi olsun sayin gizlen tam istedigim gibi oldu aklin ve parmaklarin dert gormesin
emegine saglik tesekkurler

Rica ederim.
İyi çalışmalar.

 

[reelabuzer]

hayırlı akşamlar sayın hocalar soyle bir gereksinim oldu

If CheckBox2.Value = True Then
Sheets("sayfa2").PageSetup.PrintArea = "$a$1:$x$33"
Sheets("sayfa2").PrintOut Copies:=1, Collate:=True
check_say = check_say + 1

End If
kodumun bir bolumu boyle idi acaba su ilaveyi yapabilirmiyiz forma bir textbox ilave edip buraya yazdiracagimiz sayfadan kac kopya istedigimizi yazsak ve bu yazdigimiz sayiya gore istedigimiz sayfadan print alsak ben birseyler denedim ama bir turlu olmadi yukarıdaki kirmizi ile yazilmis satiri ekledim ama olmadi bir yardim ederseniz sevinirim
simdiden tesekkurler

 

[parsley2]

dim k as integer
k = 1
' Else
k = TextBox3.Value
' End If
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=k, _
Collate _
:=True


bu kodlar bir fikir verecektir