- 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
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Word'de texbox'tan veri alma
- Konbuyu başlatan nunikmakarios
- Başlangıç tarihi
- Katılım
- 15 Nisan 2007
- Mesajlar
- 3,472
- 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.
İndirme Linki: Tıklayınız...
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- 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
- 872
- Excel Vers. ve Dili
- 🅾🅵🅵🅸🅲🅴
⎝2024 64 Bit 𝙏𝙍⎠
🆆🅸🅽🅳🅾🆆🆂
⎝11 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.
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.
Haluk
Özel Üye
- Katılım
- 7 Temmuz 2004
- Mesajlar
- 12,398
- Excel Vers. ve Dili
- 64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
netzone
Altın Üye
- Katılım
- 10 Mayıs 2006
- Mesajlar
- 872
- Excel Vers. ve Dili
- 🅾🅵🅵🅸🅲🅴
⎝2024 64 Bit 𝙏𝙍⎠
🆆🅸🅽🅳🅾🆆🆂
⎝11 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.
iyi çalışmalar.
Haluk
Özel Üye
- Katılım
- 7 Temmuz 2004
- Mesajlar
- 12,398
- Excel Vers. ve Dili
- 64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
- Katılım
- 25 Ekim 2006
- Mesajlar
- 349
- Excel Vers. ve Dili
- MS Office Standart 2016 Türkçe
Evet Sorun Bu, nasıl Çözeceğim
- Katılım
- 23 Ağustos 2005
- Mesajlar
- 4,652
- Excel Vers. ve Dili
- Excel : 2010
Word ortamında "Excel Elektronik Tablosu" işinizi kolaylaştırmaz mı?
- Katılım
- 15 Nisan 2007
- Mesajlar
- 3,472
- Excel Vers. ve Dili
- Office 2010 & 2013 tr
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 Subhttps://drive.google.com/file/d/1MBKXbXbDROgc6IKO_bktYIod_viTO3mG/view?usp=sharing