Excelden Worde Veri Aktarma

[leumruk]

Merhaba,
Hata veren satırı bununla değiştirin:

wd.Selection.GoTo What:= -1, Name:=deg(x)

 

[levent_eng]

Merhaba,
Hata veren satırı bununla değiştirin:

wd.Selection.GoTo What:= -1, Name:=deg(x)

üstad kolay gelsin benimde bu satırla ilgili bir sorum olacak

wd.Selection.GoTo What:=wdGoToBookmark, Name:=deg(x)

bo kod çalışınca wordde yazdığım yerimleri siliniyor, hal boyle oluncada (aynı veriler 10 sayfa yazıda pek çok yerde geçtiği için) alan kodu ile referans verdiğim yerimleri kaybolduğundan sadece ilk sayfaya veriler yazılıp diğer sayfalar hata veriyor. yer imleri silinmeden bu kodu farklı bir şekilde yazmak mümkünmü?

 

[leumruk]

Merhaba,
Belirttiğiniz kod yer imlerine gitmeyi sağlar, bu kodun yer imlerini silme özelliği yoktur. Ancak devamında kullandığınız kodlar siliyor olabilir. Sorunun ne olduğu hakkında fikir yürütmek için örnek bir dosya ile ne yapmak istediğinizi belirtmeniz gerekmektedir.

 

[levent_eng]

Merhaba,
Belirttiğiniz kod yer imlerine gitmeyi sağlar, bu kodun yer imlerini silme özelliği yoktur. Ancak devamında kullandığınız kodlar siliyor olabilir. Sorunun ne olduğu hakkında fikir yürütmek için örnek bir dosya ile ne yapmak istediğinizi belirtmeniz gerekmektedir.

evet dediğiniz gibiymiş sadece yer imlerine gidiyor benim yapmak istediğim exceldeki adı soyadı bilgisini wordde 1 den fazla yere yazdırmak örnekte bu işlemi çapraz başvuru yaparak adı_soyadı yer imine verdim fakat yer imi silindiğinden çapraz başvuru doğal olarak hata veriyor sizin kod üzerinde bir deneme yaptım ama olmadı farklı bir metod varsa oda olur şimdiden teşekkürler.

 

[leumruk]

Örneği deneyiniz.

 

[levent_eng]

Örneği deneyiniz.

teşekkür ederim konuya ilginiz için, bu kodla sorunum çözülmüş oluyor emeğinize sağlık

 

[aydinrahmi]

Merhaba,
Teşekkür ederim. Çok işime yarayacak bu konu.

dene.rar oluşturmuştunuz. Excelde tek yere girdiğimiz veri bi kaç yerde çıkacaktı ve aşağıdaki kod ile yaptınız zannedersem.

veri = Cells(Target.Row, x)
If x > 1 And x < 5 Then veri = Cells(Target.Row, 2)

Bu konu biraz açıklar mısınız. bu işlemi aynı dokumanda bi kaç kere yapmak istiyorum da.
mesela tarih 3 sayfada yazılacak, firma adı 3 yerde yazılacak, yetkili 2 yerde yazılacak.

 

[leumruk]

Merhaba,
7. Mesajda kodun çalışma mantığının açıklamasına ulaşabilirsiniz.

 

[aydinrahmi]

Evet o mesajını incelemiştim. Ama bu koda sonra aşağıdaki kodu eklediniz. Bu aşağıdaki kodların mantığını anlayamadım.

veri = Cells(Target.Row, x)
If x > 1 And x < 6 Then veri = Cells(Target.Row, 2)

Dediğim gibi bu işlemi aynı dokumanda bi kaç kere yapmak istiyorum da.
Mesela tarih 3 sayfada yazılacak, firma adı 3 yerde yazılacak, yetkili 2 yerde yazılacak.

veri = Cells(Target.Row, x)
If x > 1 And x < 6 Then veri = Cells(Target.Row, 2)
veri = Cells(Target.Row, x)
If x > 6 And x < 9 Then veri = Cells(Target.Row, 3)
veri = Cells(Target.Row, x)
If x > 9 And x < 11 Then veri = Cells(Target.Row, 4)

gibi mi olacak...

 

[albatros01]

Örneği deneyiniz.

Selamlar Sayın Hocam, hazırlamış olduğunuz örnek dosyayı çalıştıramıyorum. Bilgisayarımda Office 2003 kuruluydu onun yerine Office 2007 kurdum yine olmadı. Excel de yaptığım değişiklikler worde aktarılmıyor. Wordü açınca "Bu belge diğer dosyalarda bulunan bağlantılar içeriyor. Bu belgeyi bağlantılı dosyalardaki verilerle güncellemek istiyor musunuz ?" diye uyarı geliyor evet i tıklayınca hata veriyor. Nasıl bir yol izlemeliyim. Bizler için çok faydalı olan bu çalışmalarınız için ayrıca teşekkür ederim.