Form bilgilerini Yer işaretlerine yazdırma

[maykop71]

selam

userformda yeralan textbox ları word dosyasında belirlediğim yer işaretlerine aktarıyorum fakat aktardıktan sonra yer işaretleri siliniyor bu yüzden aynı işlemi tekrar yapamıyorum yardımlarınızı bekliyorum teşekkürler

 

[leumruk]

Merhaba,
Yer imine veriyi eşitlediğinizde yer imi siliniyor. Bunun için veri eklendikten sonra yer imini yeniden oluşturarak çözüme ulaşabilirsiniz. Aşağıdaki mantıkla sorun çözülebilir.

Private Sub CommandButton1_Click()
ActiveDocument.Bookmarks("bno").Range.Text = no.Value
ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="bno"
ActiveDocument.Bookmarks("servis").Range.Text = servis.Value
ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="servis"
ActiveDocument.Bookmarks("tarih").Range.Text = tarih.Value
ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="tarih"
ActiveDocument.Bookmarks("sayı").Range.Text = sayı.Value
ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="sayı"
End Sub

 

[maykop71]

teşekkürler

Yer imini yeniden oluşturduğumuzda veriler sayfanın en üstüne yazılıyor istediğim yere yazması için yer iminin pozisyonunu nasıl belirtebiliriz.

 

[leumruk]

Merhaba,
Aşağıdaki kod mantığıyla isteğinize ulaşabilirsiniz. Kod tecrübeniz varsa döngü kurarak kodlamayı daha sade yapabilirsiniz.

Private Sub CommandButton1_Click()
ActiveDocument.Bookmarks("bno").Range.Select
Selection = no.Value
ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="bno"

ActiveDocument.Bookmarks("servis").Range.Select
Selection = servis.Value
ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="servis"

ActiveDocument.Bookmarks("tarih").Range.Select
Selection = tarih.Value
ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="tarih"

ActiveDocument.Bookmarks("sayı").Range.Select
Selection = sayı.Value
ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="sayı"
End Sub

 

[assenucler]

Bir rica ve teşekkür.

Sayın leumruk;

Değerli üstadım, sizin sürekli izleyeninizim bana farklı gelen her konuyu "Leumruk Arşiv" klasörüme ekliyorum.

Sayın maykop71 dosyasını bir eklese... Sizin döngü ile çözümünüzü mutlaka görebilirim, diye düşünüyorum.

İyi hafta sonları...Teşekkürler, sevgi ve saygılar.

 

[leumruk]

Sayın leumruk;

Değerli üstadım, sizin sürekli izleyeninizim bana farklı gelen her konuyu "Leumruk Arşiv" klasörüme ekliyorum.

Sayın maykop71 dosyasını bir eklese... Sizin döngü ile çözümünüzü mutlaka görebilirim, diye düşünüyorum.

İyi hafta sonları...Teşekkürler, sevgi ve saygılar.

Merhaba,
sn. assenucler,
Düşünceleriniz için teşekkür ederim. Birilerine faydamız dokunuyorsa ne mutlu...
Bununla birlikte arkadaşımız dosya eklemiş. Ben o dosya üzerinden kodlara ulaştım. Ben işin kolayına kaçtım. Kodlama bilgisi varsa kendisi düzenler diye düşünmüştüm. Döngü ile çözümünü ekliyorum. Örnek dosya üzerinde deneyebilirsiniz. Dosyaya userforma ulaşmanız için ac isimli bir de makro ekledim.

Private Sub CommandButton1_Click()
y_imi = Array("bno", "servis", "tarih", "sayı")
Deg = Array(no.Value, servis.Value, tarih.Value, sayı.Value)
For x = 0 To 3
    ActiveDocument.Bookmarks(y_imi(x)).Range.Select
        Selection = Deg(x)
    ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:=y_imi(x)
Next
End Sub

 

[assenucler]

Üstadım iyi akşamlar;


İlginiz, inceliğiniz ve yardımınız için bir kez daha teşekkürler. Her zaman yanımızda olmanız çok güzel...Sizler bizlerin gönül dostlarısınız... Her şey gönlünüzce olsun.

Sevgi ve saygılarımla.

 

[maykop71]

Çok sağ üstadım kaç gündür arayıp bulamıyordum. teşekkürler