Çözüldü vba kod ile zarf yazdırma

Bu sorun verilen destek sayesinde çözüme ulaştırılmıştır.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Onurovski

Yeni Üye
Kullanıcı Bilgileri
Katılım
16 Eyl 2023
Mesajlar
32
Aldığı beğeni
2
Excel Versiyonu
Office 2010 TR
Konuyu Başlatan
Merhaba .Ekteki Exceldeki makro bir dotx dosyasını bağlı .Dotx dosyası eklenemediğinden onu yükleyemiyorum.Zarf yazdır dendiğinde zarfın üstüne maaşı primi kesintisi çıkıyor. Ancak ben üstüne işaretlenen kişinin değil de hepsinin çıkmasını istiyorum . Bir de bu yazının alt alta değil de bir tablo gibi gözükmesini zarfın üstünde.
Örneğin maaş prim kesinti tablonun sol tarafında ,paralar ise sağ tarafında gibi .
Ve para birimi tabloda gözükmesine rağmen wordde çıkmıyor.
Yardımcı olursanız çok sevinirim .
Şimdiden teşekkür ederim
 

Ekli dosyalar

  • Kitap1.xlsx
    29.3 KB · Gösterim: 10

Adnan

Destek Ekibi
Kullanıcı Bilgileri
Katılım
10 Mar 2021
Mesajlar
1,513
Çözümler
266
Aldığı beğeni
1,529
Excel Versiyonu
Office 365 TR
Konu anlaşılır değil. Ayrıca zarf üzerine ilave yazılacak bilgiler nerede. Örnek şablon hazırlanırsa uygun olacağı kanaatindeyim.
 

Onurovski

Yeni Üye
Kullanıcı Bilgileri
Katılım
16 Eyl 2023
Mesajlar
32
Aldığı beğeni
2
Excel Versiyonu
Office 2010 TR
Konuyu Başlatan
Merhaba dotx dosyası yüklenemediğinden gösteremiyorum .
wordden zarf şablonlu bir dotx dosyası yaparsanız(ismide envelope olacak) ne dediğimi daha net anlayabilirsiniz.
içindeki maktoyu inceleyebilirsiniz .
 

Onurovski

Yeni Üye
Kullanıcı Bilgileri
Katılım
16 Eyl 2023
Mesajlar
32
Aldığı beğeni
2
Excel Versiyonu
Office 2010 TR
Konuyu Başlatan
aa haklısınız . şimdiki dosyaya bakabilirmisiniz .
zarf yazdırma sekmesine
 

Ekli dosyalar

  • Çalışma.xlsm
    132.1 KB · Gösterim: 10

Adnan

Destek Ekibi
Kullanıcı Bilgileri
Katılım
10 Mar 2021
Mesajlar
1,513
Çözümler
266
Aldığı beğeni
1,529
Excel Versiyonu
Office 365 TR
zarf örneğini de eklerseniz üzerine gelecek bilgiler ile birlikte iyi olur
 

Onurovski

Yeni Üye
Kullanıcı Bilgileri
Katılım
16 Eyl 2023
Mesajlar
32
Aldığı beğeni
2
Excel Versiyonu
Office 2010 TR
Konuyu Başlatan
dotx dosyası yüklenemiyor. Yeni bir Word açıp .Dosya kısmından yeniye bastığınızda şablonlar gelecektir. Zarf şablonu seçip kaydederseniz .Wordün ismini de "Envelope" yaparsanız çalışacaktır. Ama gördüğünüz gibi sadece 1 isim için çalışıyor. Ben bütün tablo yazılsın istiyorum .
 

Adnan

Destek Ekibi
Kullanıcı Bilgileri
Katılım
10 Mar 2021
Mesajlar
1,513
Çözümler
266
Aldığı beğeni
1,529
Excel Versiyonu
Office 365 TR
CSS:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

dosya çalışmıyor bizde word şablon yok . Bu nedenle zarfa ne nasıl yazılacak ise onu belirtmenizi istemiştim
 

Onurovski

Yeni Üye
Kullanıcı Bilgileri
Katılım
16 Eyl 2023
Mesajlar
32
Aldığı beğeni
2
Excel Versiyonu
Office 2010 TR
Konuyu Başlatan
zarf yazdıra bastığınızda ,word açılıyor . Wordden Kişinin İsmi Mesai -Prim Kesinti Toplam olarak tek sayfada gözülüyor.Ama sadcece 1 kişi (seçtiğiniz kişinin ) gözüküyor.Ben hepsinin gözükmesini istiyorum .
 

Patron

Site Dostu
Kullanıcı Bilgileri
Katılım
6 Mar 2021
Mesajlar
2,382
Çözümler
703
Aldığı beğeni
2,790
Excel Versiyonu
Office 2021 TR
Dotx dosyanızı zip formatında sıkıştırıp buraya yükleyiniz.
 

Onurovski

Yeni Üye
Kullanıcı Bilgileri
Katılım
16 Eyl 2023
Mesajlar
32
Aldığı beğeni
2
Excel Versiyonu
Office 2010 TR
Konuyu Başlatan
teşekkürler .İyi fikir
 

Ekli dosyalar

  • Envelope.zip
    9.2 KB · Gösterim: 10

Kuşdili

Excel Dostu
Kullanıcı Bilgileri
Katılım
7 Eyl 2022
Mesajlar
191
Çözümler
60
Aldığı beğeni
195
Excel Versiyonu
Office 2007 TR
Sayın Onur bey. Kaç gündür merak edip sorunuzu tıklıyorum. Benim ofisimde bahsettiğiniz şablon yok. Adnan ve Patron beylerde de olmadığı belli. Ekli zip içinde de şablon dosyası yok. Dotx uzantılı dosyanızı yüklerseniz meraktan kurtuluruz.
 

Onurovski

Yeni Üye
Kullanıcı Bilgileri
Katılım
16 Eyl 2023
Mesajlar
32
Aldığı beğeni
2
Excel Versiyonu
Office 2010 TR
Konuyu Başlatan
Merhaba ilginiz için teşekkür ederim . Zip dosyası olarak beraber yüklemeye çalışayim . Dotx dosyasını forum kabul etmediğinden o formatda yükleyemiyorum.Çalışma adlı excel dosyasının 3.sekmesi "zarf yazdırma" sekmesini tıkladığınızda karşınızda isimler geliyor . Herhangi bir isimin üstüne tıklayıp zarf yazdır butonuna tıkladığınızda "envolope "dosyası açılıyor .operatör ismi -primi kesintisi yazılıyor.
Ancak bu kod tek kişi üstünde çalışıyor.Ben bütün satırların aynı anda yazılmasını istiyorum .Ve aldıkları para birimide yazdırmada çıkmıyor.Onun da çıkmasını istiyorum.
 

Ekli dosyalar

  • Envelope.zip
    18.2 KB · Gösterim: 2
  • Çalışma.zip
    109.3 KB · Gösterim: 2
  • Envelope.zip
    18.2 KB · Gösterim: 2

Onurovski

Yeni Üye
Kullanıcı Bilgileri
Katılım
16 Eyl 2023
Mesajlar
32
Aldığı beğeni
2
Excel Versiyonu
Office 2010 TR
Konuyu Başlatan
Çok teşekkür ederim .Formülleri kopyaladım .Ancak hata veriyor .Excel dosyasını formüllü olarak yüklemeniz mümkün mü ?
Envolope.dotx dosyası masaüstünde mi olmak zorunda ?
Tekrar teşekkür ederim
 

Kuşdili

Excel Dostu
Kullanıcı Bilgileri
Katılım
7 Eyl 2022
Mesajlar
191
Çözümler
60
Aldığı beğeni
195
Excel Versiyonu
Office 2007 TR
Masaüstünü ben ayarlamadım, sizden öyle geldi. İlgili satırı istediğiniz şekilde düzenleyin.
sPath = Environ("USERPROFILE") & "\Desktop\Envelope.dotx" 'change as required
Formüllere de hiç dokunmadım, sizden nasıl geldiyse öyle. Bende de açtığımda hatalı gibi göründü.
Bul kutusuna = değiştir kutusuna = yapıp tümünü değiştir yaptım düzeldi. Yani bir nevi hesaplamada refresh olayı yaptım.
 

Onurovski

Yeni Üye
Kullanıcı Bilgileri
Katılım
16 Eyl 2023
Mesajlar
32
Aldığı beğeni
2
Excel Versiyonu
Office 2010 TR
Konuyu Başlatan
Dediğinizi anladım .ancak aşşağıdaki koddan hata veriyor.Onun için sormuştum
onu sildiğimde tek satırı tl ile göstererek yazdırabiliyorum .Ama aşşağıdaki kodu anlayamadım
wdApp.Documents.Add Template:="C:\Users\Yedek hesap\Desktop\Envelope.dotx", _
NewTemplate:=False, DocumentType:=0
Set wdDoc = wdApp.ActiveDocument
 

Kuşdili

Excel Dostu
Kullanıcı Bilgileri
Katılım
7 Eyl 2022
Mesajlar
191
Çözümler
60
Aldığı beğeni
195
Excel Versiyonu
Office 2007 TR
Bu satırı silin
wdApp.Documents.Add Template:="C:\Users\Yedek hesap\Desktop\Envelope.dotx", _
NewTemplate:=False, DocumentType:=0
Bunu yazın
Set wdDoc = wdApp.Documents.Add(Template:=sPath)
 

Onurovski

Yeni Üye
Kullanıcı Bilgileri
Katılım
16 Eyl 2023
Mesajlar
32
Aldığı beğeni
2
Excel Versiyonu
Office 2010 TR
Konuyu Başlatan
Son haline bakabilirsiniz. *TL olayı çözüldü .ancak hepsini yazdırma olayını çözemedim .Sizin formülünüzü yazmama rağmen hala tek seçilen SATIR yazdırmaya hazır gözüküyor.Tekrar teşekkür ederim ilginiz ve çabanız için .
 

Ekli dosyalar

  • Çalışma.zip
    110.3 KB · Gösterim: 1
  • Envelope.zip
    18.2 KB · Gösterim: 0
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Konuyu okuyanlar

Üst