• Foruma hoş geldin 👋 Ziyaretçi

    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 tamamen ücretsizdir.

Çö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
Konu anlaşılır değil. Ayrıca zarf üzerine ilave yazılacak bilgiler nerede. Örnek şablon hazırlanırsa uygun olacağı kanaatindeyim.
 
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 .
 
aa haklısınız . şimdiki dosyaya bakabilirmisiniz .
zarf yazdırma sekmesine
 

Ekli dosyalar

  • Çalışma.xlsm
    132.1 KB · Gösterim: 10
zarf örneğini de eklerseniz üzerine gelecek bilgiler ile birlikte iyi olur
 
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 .
 
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
 
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 .
 
Dotx dosyanızı zip formatında sıkıştırıp buraya yükleyiniz.
 
teşekkürler .İyi fikir
 

Ekli dosyalar

  • Envelope.zip
    9.2 KB · Gösterim: 10
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.
 
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
Ç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
 
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.
 
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
 
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)
 
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 satır 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

Geri
Üst