• 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.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Userform üzerinden Word e veri aktarma

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

tukayf

Yeni Üye
Kullanıcı Bilgileri
Katılım
19 Eyl 2022
Mesajlar
418
Çözümler
9
Aldığı beğeni
97
Excel Versiyonu
Office 2019 TR
Konuyu Başlatan
Değerli hocalarım merhaba. Ekteki projede userform üzerinden accese veri gönderip çekiyoruz. Ancak bazı şablonlar var ve bunlar mutlak surette Word isteniyor bu nedenle Worde veri aktarmam lazım. Çok fazla araştırmamakla birlikte Word için bulduğum kodlarla çözüme ulaşamadım. Yapmak istediğim userform üzerindeki verileri Worde aktarmak. Hatta mümkünse döngüye alıp her kaydı sicil ve isim şeklinde Word dosyası olarak kaydetmek. Yardımlarınızı bekliyorum. Şimdiden Allah razı olsun.
 

Ekli dosyalar

  • personel takip.zip
    104.1 KB · Gösterim: 13
Çözüm
mozuer
Word Şablonunuzda resmin olduğu yerde "Img" yer imi oluşturun
Kodu çaıştırdıktan sonra görsele göre koddaki resmin ölçek değerlerini değiştirebilirsiniz...
(wrdPic.Height = .... wrdPic.Width = ....)

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Tarihe göre sırala Oylara göre sırala
Ekteki şablonda tablo kullandım (ön taslak olsun), yer imleri ile de yapılabilir
Taleplerinize göre revize ederiz...
Referenaslarda microsoft word seçilmesi gerektiğini hatırlatayım...


Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 

Ekli dosyalar

  • sablon.zip
    11.2 KB · Gösterim: 9
Olumlu oy 0 Negatif oyla
Hocam dışarı çıkıyorum akşam dönünce dönüş yapabilirim zihninize sağlık. Her text in kullanılacağı yer tablo içerisinde o nedenle yer imi olsun istiyorum.
 
Olumlu oy 0 Negatif oyla
1668005857039.png
Hocam bismillah der demez bu hatayı verdi. Nerde hata yaptım.
 
Olumlu oy 0 Negatif oyla
Olumlu oy 0 Negatif oyla
Ekli hocam. Onlarca alternatif denedim soruyu sormadan önce. Ama bı daha bakayım gözden kacirdigim bı yer var sanirim
 
Olumlu oy 0 Negatif oyla
Hocam bu seferde hiç veri yazmadı. Nerde hata yapıyorum acaba.
 
Olumlu oy 0 Negatif oyla
Bence şablonu istediğiniz gibi yeniden oluşturun, textbox yerine yer imi vs
Ona göre yeniden çalışalım...
 
Olumlu oy 0 Negatif oyla
Hocam elimde yer imlerine göre kodlar var. Tek tek tüm yer imleri tanımlanacak. Şunu sorabilir miyim. Userform üzerindeki listboxta yer alan personele göre tüm personelin bilgilerini Word e aktarabilir miyiz mümkün müdür?
 
Olumlu oy 0 Negatif oyla
tukayf' Alıntı:
Hocam elimde yer imlerine göre kodlar var. Tek tek tüm yer imleri tanımlanacak. Şunu sorabilir miyim. Userform üzerindeki listboxta yer alan personele göre tüm personelin bilgilerini Word e aktarabilir miyiz mümkün müdür?
Genişletmek için tıkla...
Evet, aynı şablon üzerinden listeye göre döngü yöntemiyle word belgeleri oluşturulabilir...
Aşağıdaki gibi yöntemle...

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
Hocam bugün yer imlerini oluşturuyorum oluştursam yeterli mi sizin için.
Bir istirhamım daha olacaktı. Bu Word dosyalarını kaydederken sicil Adı soyadı şeklinde her personel için ayrı dosya şeklinde kayıt mümkün müdür
 
Olumlu oy 0 Negatif oyla
Hocam yer imlerinin ekli olduğu dosya ekte. Umarım bir hata yoktur.
 

Ekli dosyalar

  • sablon.doc
    88.5 KB · Gösterim: 6
Olumlu oy 0 Negatif oyla
Öncelikle sablon dosyanızı sablon.dotx olarak aynı klasöre kaydedin
Aşağıda Bookmarks olarak tek tek yer imlerini ve karşılık değerleri girin
.Bookmarks("ad").Range.Text = xlSht.Range("A" & i).Value2 gibi
Dosyanızı yönlendirmelerimiz doğrultusunda tamamladıktan sonra problem oluşursa çözümleriz....


Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
.Bookmarks("ad").Range.Text = xlSht.Range("A" & i).Value2 gibi

bu satırı açıklayabilir misiniz hocam. Veriler sadece userformdan alınıyor asıl veriler acces VT de
 
Olumlu oy 0 Negatif oyla
Hocam verdiğiniz kod neredeyse olmak üzere ama döngüye giriyor sonlanmıyor.
Kayıt yapmıyor. dosyaları tekrar gönderiyorum bakabilmeniz mümkün müdür?

Yer imi olmadan Metin Kutuları ya da tablo içerisine de gönderebileceksek o da olur ama bir şekilde Worde aktarmamız lazım.
 

Ekli dosyalar

  • personel.zip
    171.2 KB · Gösterim: 10
Olumlu oy 0 Negatif oyla
1. Gönderdiğiniz şablon farklı, 12 nolu mesajdaki yer imleri olan şablona göre yazıyorum
2. Eğer userform üzerindeki bilgileri yazdıracaksanız aşağıdaki kodu uyarlayın
3. Tüm satırları yazdırmak için ise butona döngü tanımlamak gerekir
Çok zaman ayıramıyorum, bu şekilde ilerleyebiliriz...



Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
Hocam denemedim ama son bir şey daha var. Userform üzerinde bulunan labeldeki fotoğrafı nasıl aldırabiliriz acaba. Bunu da çözebilirsek döngüyü müsait zamanda çözebiliriz.
 
Olumlu oy 0 Negatif oyla
Sanırım bu olmuş hocam zihninize sağlık. Resim çekmeyi de size zahmet hocam. Yarına yetiştirebilirsem çok iyi olacak. Şimdi tüm veri ve yer imleriyle deneyeceğim. Umarım bir sorun yaşamam.
 
Olumlu oy 0 Negatif oyla
Hocam veriler sorunsuz şekilde işleniyor çok teşekkürler. Tek bir eksiğimiz var labelden resmi almak.
 
Olumlu oy 0 Negatif oyla
Sn mozuer labelden aktarımı cozebilmeniz mümkün müdür . Bir de döngüye alıp tüm listeyi kaydettirebilir miyiz.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Konuyu okuyanlar

Toplam: 2 (Kullanıcı: 0, Ziyaretçi: 2)
Geri
Üst