• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü ComboBox ile seçilen sayfaya göre yazdırmak

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
okinava14

okinava14

Yeni Üye
Katılım
19 Haz 2022
Mesajlar
673
Çözümler
3
Aldığı beğeni
128
Excel V
Office 2021 TR
Konu Sahibi
Kıymetli üstatlar bu defa iki farklı yazdır sorunu var. Sayfa seç yazdır kolay ama bu farklı benim için.
Derdim şöyle:

1. ComboBox dan seçilen sayfayı yazdır butonu ile yazdırmak ama burada ince ayrıntı var. Şöyle Örneklersem mesela:
FormListe den ComboBoxdan "İL EMNİYET MÜDÜRLÜĞÜ" (A01A) sayfasını seçtik ise "BtnYazdir" (TÜKETİM DEĞERLERİ YAZDIR) butonuna tıklayınca A01A yazdırsın. veya EK-1 MERKEZ EMNİYET ve MAKAM KONUTU (A02A) seçersek bunu yazdırsın. Yani hangisini seçersek ait olduğu sayfayı yazdırsın.

2. Diğer Yazdırma olayı bana baya fazla karmaşık gelen. Oda şöyle. Gene aynı mantık :
FormListe den ComboBoxdan "İL EMNİYET MÜDÜRLÜĞÜ" (A01A) sayfasını seçtik ise; "BtnUcrtYazdir" (ÜCRETLENDİRME YAZDIR) butonuna tıklarsak A01B Sayfasını yazdırsın. Burada amaç şu A01A ile A01B birbirine eş değer gibi yani Yani örneklersem: A05A ile A05B denkler buna dikkat etmek gerekiyor sadece.

Birinci olay sizler için kolay ama 2. yazdır olayına hiç denk gelmedim yorumsuz.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Tarihe göre sırala Oylara göre sırala
1.Sorunuz için çözüm resimdeki kodlar.
Zaten Bina olayı ile yanı mantık.Yazdırtuketim adında sub ekledim dikkat edin.
2.Soruyu anlamadım.

1.png
 
Olumlu oy 0 Negatif oyla
okinava14' Alıntı:
Kıymetli üstatlar bu defa iki farklı yazdır sorunu var. Sayfa seç yazdır kolay ama bu farklı benim için.
Derdim şöyle:

1. ComboBox dan seçilen sayfayı yazdır butonu ile yazdırmak ama burada ince ayrıntı var. Şöyle Örneklersem mesela:
FormListe den ComboBoxdan "İL EMNİYET MÜDÜRLÜĞÜ" (A01A) sayfasını seçtik ise "BtnYazdir" (TÜKETİM DEĞERLERİ YAZDIR) butonuna tıklayınca A01A yazdırsın. veya EK-1 MERKEZ EMNİYET ve MAKAM KONUTU (A02A) seçersek bunu yazdırsın. Yani hangisini seçersek ait olduğu sayfayı yazdırsın.

2. Diğer Yazdırma olayı bana baya fazla karmaşık gelen. Oda şöyle. Gene aynı mantık :
FormListe den ComboBoxdan "İL EMNİYET MÜDÜRLÜĞÜ" (A01A) sayfasını seçtik ise; "BtnUcrtYazdir" (ÜCRETLENDİRME YAZDIR) butonuna tıklarsak A01B Sayfasını yazdırsın. Burada amaç şu A01A ile A01B birbirine eş değer gibi yani Yani örneklersem: A05A ile A05B denkler buna dikkat etmek gerekiyor sadece.

Birinci olay sizler için kolay ama 2. yazdır olayına hiç denk gelmedim yorumsuz.
Genişletmek için tıkla...
Örneği inceleyin. ( Siz biliriniz de Combobox a neden textbox2 diye adlandırdınız. Mesela Binaadi olarak adlandırsanız size daha kolaylık sağlar.
2.sorunuzuda örneğe bakarak yapabilirsiniz. Ben Sayfa1 de bina adlarını ve karşılık gelen sayfa adlarını yazdım. )
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Özcan ÖZBEK' Alıntı:
Örneği inceleyin. ( Siz biliriniz de Combobox a neden textbox2 diye adlandırdınız. Mesela Binaadi olarak adlandırsanız size daha kolaylık sağlar.
2.sorunuzuda örneğe bakarak yapabilirsiniz. Ben Sayfa1 de bina adlarını ve karşılık gelen sayfa adlarını yazdım. )
Genişletmek için tıkla...
Private Sub BtnYazdir_Click()
Dim ws As Worksheet

If TextBox2.Value = "İL EMNİYET MÜDÜRLÜĞÜ" Then: Set ws = ThisWorkbook.Worksheets("A01A")
If TextBox2.Value = "EK-1 MERKEZ EMNİYET ve MAKAM KONUTU" Then: Set ws = ThisWorkbook.Worksheets("A02A")
If TextBox2.Value = "EK-2 KADEME ve İŞ OCAKLARI" Then: Set ws = ThisWorkbook.Worksheets("A03A")
If TextBox2.Value = "EK-3 ESKİ ÇEVİK ŞUBE MÜDÜRLÜĞÜ" Then: Set ws = ThisWorkbook.Worksheets("A04A")
If TextBox2.Value = "POLİSEVİ ŞUBE MÜDÜRLÜĞÜ" Then: Set ws = ThisWorkbook.Worksheets("A05A")

ws.PrintOut
End Sub


Private Sub BtnUcrtYazdir_Click()
Dim ws As Worksheet

If TextBox2.Value = "İL EMNİYET MÜDÜRLÜĞÜ" Then: Set ws = ThisWorkbook.Worksheets("A01B")
If TextBox2.Value = "EK-1 MERKEZ EMNİYET ve MAKAM KONUTU" Then: Set ws = ThisWorkbook.Worksheets("A02B")
If TextBox2.Value = "EK-2 KADEME ve İŞ OCAKLARI" Then: Set ws = ThisWorkbook.Worksheets("A03B")
If TextBox2.Value = "EK-3 ESKİ ÇEVİK ŞUBE MÜDÜRLÜĞÜ" Then: Set ws = ThisWorkbook.Worksheets("A04B")
If TextBox2.Value = "POLİSEVİ ŞUBE MÜDÜRLÜĞÜ" Then: Set ws = ThisWorkbook.Worksheets("A05B")

ws.PrintOut
End Sub
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Rafez hocam 1. örnek tamam fakat 2. cevaplaması hatalı sanırım.
Şöyle A02B yazılıyor gigi gösteriyor ama A02A yazılıyor.
Özcan hocam sizin dediğinizi şimdi test ediyorum bakıcam sizde sağolun ilginiz için.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Özcan ÖZBEK' Alıntı:
Private Sub BtnYazdir_Click()
Dim ws As Worksheet

If TextBox2.Value = "İL EMNİYET MÜDÜRLÜĞÜ" Then: Set ws = ThisWorkbook.Worksheets("A01A")
If TextBox2.Value = "EK-1 MERKEZ EMNİYET ve MAKAM KONUTU" Then: Set ws = ThisWorkbook.Worksheets("A02A")
If TextBox2.Value = "EK-2 KADEME ve İŞ OCAKLARI" Then: Set ws = ThisWorkbook.Worksheets("A03A")
If TextBox2.Value = "EK-3 ESKİ ÇEVİK ŞUBE MÜDÜRLÜĞÜ" Then: Set ws = ThisWorkbook.Worksheets("A04A")
If TextBox2.Value = "POLİSEVİ ŞUBE MÜDÜRLÜĞÜ" Then: Set ws = ThisWorkbook.Worksheets("A05A")

ws.PrintOut
End Sub


Private Sub BtnUcrtYazdir_Click()
Dim ws As Worksheet

If TextBox2.Value = "İL EMNİYET MÜDÜRLÜĞÜ" Then: Set ws = ThisWorkbook.Worksheets("A01B")
If TextBox2.Value = "EK-1 MERKEZ EMNİYET ve MAKAM KONUTU" Then: Set ws = ThisWorkbook.Worksheets("A02B")
If TextBox2.Value = "EK-2 KADEME ve İŞ OCAKLARI" Then: Set ws = ThisWorkbook.Worksheets("A03B")
If TextBox2.Value = "EK-3 ESKİ ÇEVİK ŞUBE MÜDÜRLÜĞÜ" Then: Set ws = ThisWorkbook.Worksheets("A04B")
If TextBox2.Value = "POLİSEVİ ŞUBE MÜDÜRLÜĞÜ" Then: Set ws = ThisWorkbook.Worksheets("A05B")

ws.PrintOut
End Sub
Genişletmek için tıkla...
Hocam biz bina isimlerini zaman zaman tadilat yıkım veya yenisi yapılınca isimler değişebiliyor veya şube müdürlükleri oda yeterlilik durumuna göre başka adreslere gidebiliyor. Yani isimleri Kodlara gömersek ileride son kullanıcılar sıkıntı yaşaması çok mümkündür.
 
Olumlu oy 0 Negatif oyla
Gün içerisinde hallederim.Kodu yazdığımda tam deneyemeden mesaj doğru verdi diye oldu zannetmiştim.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Canınız sağolsun hocam hayırlısı teşekkürler hayırlı geceler size. Yarın bende iş yerinden ara ara kontrol ederim artık.
 
Olumlu oy 0 Negatif oyla
Olumlu oy 0 Negatif oyla
Çözüm
Konu Sahibi
Hocam hiç dokunma süpersiniz. emeğinize sağlık. Az önce benim hatam kaynaklı işlem yapmadı. dikkat edince fark ettim buton kodunu da ekli sanıp sildim ama neyse sonuç önemli olan tamamdır. emeğinize yüreğinize sağlık.
Ayrıca emeği geçen Refaz hocam ve Özcan hocam sizlerin de emeklerine yüreklerine sağlık. Konu kilit

17 nolu mesajı dikkate almayın lütfen.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst