Word'de texbox'tan veri alma

Katılım
25 Ekim 2006
Mesajlar
349
Excel Vers. ve Dili
MS Office Standart 2016 Türkçe
Wordde kod yazarak texbox ile girdiğim verileri, sayfada yer işareti ile işaretlediğim yere veya herhangi bir yere yazdırmak istiyorum ne yapmalıyım
 

leumruk

Uzman
Uzman
Katılım
15 Nisan 2007
Mesajlar
3,469
Excel Vers. ve Dili
Office 2010 & 2013 tr
Selamlar,
Deneyiniz... Makrolardan formac makrosunu çalıştırınız. "a1" isimli bir yer imi oluşturdum. Textbox'a veri girerek deneme yapabilirsiniz.
Kod:
Private Sub CommandButton1_Click()
HDF = ActiveDocument.Bookmarks("a1").Start
ActiveDocument.Range(HDF, HDF).Text = TextBox1.Text
End Sub
İndirme Linki: Tıklayınız...
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,269
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Merhaba,

Bilgisayarımda bulduğum eski bir dosyamı ekledim.... alternatif olabilir.

Google Drive'dan indirme linki burasıdır.


.
 

Ekli dosyalar

Son düzenleme:
Katılım
25 Ekim 2006
Mesajlar
349
Excel Vers. ve Dili
MS Office Standart 2016 Türkçe
Teşekkür ederim, Ama sayfadan çıkınca veya yeni bir girdi açarken eski kayıtları silmiyor
 

netzone

Altın Üye
Katılım
10 Mayıs 2006
Mesajlar
789
Excel Vers. ve Dili
🅾🅵🅵🅸🅲🅴
⎝2019 32 Bit 𝙏𝙍⎠
🆆🅸🅽🅳🅾🆆🆂
⎝10 64 Bit 𝙏𝙍⎠
Merhaba,

Dokümanınız hazır olduğunda veriler girilmemişken Dosya > Farklı Kaydet > Word Şablonu (DOTX) olarak kaydettiğinizde; Yeni oluşturduğunuz şablon dosyasını açtığınızda şablona müdahale etmesine izin vermeyeceğinden kaydet deseniz bile farklı kaydet ekranı çıkacaktır. Dolayısıyla her açtığınızda Temiz bir dokümanla karşılaşacaksınız.

iyi çalışmalar.
 

netzone

Altın Üye
Katılım
10 Mayıs 2006
Mesajlar
789
Excel Vers. ve Dili
🅾🅵🅵🅸🅲🅴
⎝2019 32 Bit 𝙏𝙍⎠
🆆🅸🅽🅳🅾🆆🆂
⎝10 64 Bit 𝙏𝙍⎠
Merhaba Haluk bey, leumruk arkadaşımızın paylaştığı dosyada makro ile açılan pencereden giriş yapıp ekle denildiğinde sayfada belirtilen yerlere ekliyor ancak her ekle butonuna basıldığında boşluksuz silmeden eklemeye devam ediyor. arkadaşımız bundan bahsediyor.

iyi çalışmalar.
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,269
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Word ortamında "Excel Elektronik Tablosu" işinizi kolaylaştırmaz mı?
 

leumruk

Uzman
Uzman
Katılım
15 Nisan 2007
Mesajlar
3,469
Excel Vers. ve Dili
Office 2010 & 2013 tr
Evet Sorun Bu, nasıl Çözeceğim
Selamlar,
Haluk beyin eklediği dosyayı incelediniz mi bilmiyorum. Oldukça kullanışlı ve pratik bir çözüm olduğu için eklediğim kodun devamını getirmedim. Doğrudan yer imi kullanmak istiyorsanız önceki kodlarımı bu şekilde değiştirebilirsiniz.
Yer imini el ile istediğim konuma ekledim. Sonrasında kod gerekeni yapıyor.
Kod:
Private Sub CommandButton1_Click()
HDF = ActiveDocument.Bookmarks("a1").Range.Start
ActiveDocument.Bookmarks("a1").Range.Text = TextBox1.Text
son = Len(TextBox1.Text) + HDF
ActiveDocument.Bookmarks.Add Range:=ActiveDocument.Range(HDF, son), Name:="a1"
End Sub
https://drive.google.com/file/d/1MBKXbXbDROgc6IKO_bktYIod_viTO3mG/view?usp=sharing
 

Ekli dosyalar

Üst