Çözüldü Excel'den Word'e VBA İle Veri Aktarma

[ErdalÖzdemir]

Merhaba arkadaşlar.​

Excel tablolarındaki verileri yer imlerine göre Word'e aktarma yapıyorum.​

Bu aktarmayı yaparken Excel'den veriyi Word'e yapıştırmadan önce Word'deki veriyi önce silsin sonra veriyi yapıştırsın istiyorum.​

(Bağlantı yapıştır olmayacak) fakat sürekli üzerine yapıştırıyor. Forum da ve internet üzerinde çok araştırma yaptım fakat bir sonuca ulaşamadım.​

Word VBA konusunda bilgisi olan arkadaşların yardımlarını bekliyorum.​

Yardımlarınız için şimdiden teşekkür ederim.​

Kullandığım Kod;

If ActiveDocument.Bookmarks.Exists("LOJMAN") Then
wordApp.Selection.Goto What:=wdGoToBookmark, Name:="LOJMAN"

wordApp.Selection.Delete

SonSatir = wsa.Cells(Rows.Count, 1).End(xlUp).Row

wordApp.Selection = WorksheetFunction.Sum(wsa.Range("H2:H" & SonSatir), wsa.Range("I2:I" & SonSatir)) 'Burada Excel'den verileri toplayarak alıyorum


Bu kod sonucuna göre Word'deki metin aşağıdaki şekli alıyor.
İlimizde; 16 Halk Eğitim Merkezi, 12 Öğretmenevi ve Akşam Sanat Okulu, 7 Rehberlik ve Araştırma Merkezi, 2 Uygulama Oteli, 1 Olgunlaşma Enstitüsü, 5 BİLSEM (Üstün ve Özel Yetenekliler), 1 Ölçme Değerlendirme Merkezi Kurumu ve 319319319 Lojman bulunmaktadır.

Buradaki Lojman sayısı 319 olması gerekirken, silmeden her defasında eklediği için bu şekli alıyor.

 

[necati]

Merhaba,
Buradaki satırların yerine verdiğim satırları deneyin.

If ActiveDocument.Bookmarks.Exists("LOJMAN") Then​

wordApp.Selection.Goto What:=wdGoToBookmark, Name:="LOJMAN"
wordApp.Selection.Delete
SonSatir = wsa.Cells(Rows.Count, 1).End(xlUp).Row
wordApp.Selection = WorksheetFunction.Sum(wsa.Range("H2:H" & SonSatir), wsa.Range("I2:I" & SonSatir)) 'Burada Excel'den verileri toplayarak alıyorum

If ActiveDocument.Bookmarks.Exists("LOJMAN") Then
Set LOJMAN= ActiveDocument.Bookmarks("LOJMAN").Range
LOJMAN.Text = WorksheetFunction.Sum(wsa.Range("H2:H" & SonSatir), wsa.Range("I2:I" & SonSatir))
ActiveDocument.Bookmarks.Add "LOJMAN", LOJMAN

 

[ErdalÖzdemir]

Necati Hocam teşekkür ederim.
Elinize, emeğinize sağlık.

Necati Hocam, ActiveDocument.Bookmarks.Add "LOJMAN", LOJMAN eklemenizin nedeni ney

 

[necati]

Necati Hacam teşekkür ederim.
Elinize, emeğinize sağlık.

Necati Hacam, ActiveDocument.Bookmarks.Add "LOJMAN", LOJMAN eklemenizin nedeni ney

Rica ederim.
Yer iminin alanı yani fiziki kapladığı alan, eklenilen metnin kendisi olsun diye. Yoksa bir nokta olarak kalacaktı. Sonraki kullanımlarda hep art arda metinler eklenecekti.

 

[ErdalÖzdemir]

Necati Hocam teşekkür ederim. İyi çalışmalar.