Linkleri görebilmek ve üye ayrıcalıklarından faydalanabilmek için ücretsiz kayıt olun.
Excelden worde veri aktarmak mümkün. Bunun için;

1. Kodların çalışması için VBA pencerinizdeki Tools menüsünden Reference kısmından Microsoft Word Object Library kitaplığını aktif hale getirilmiş olması,
2. Word belgesinin açık olması,
3. Excel sayfasından veri aktarılacak alanın seçilmiş olması gerekir

Sonrada aşağıdaki makroru bir modüle yazıp excelde bir düğmeye atayın.


Sub ExceldenWordeaktar()
Dim WDApp As Word.Application
Dim WDDoc As Word.Document
If Not TypeName(Selection) = "Range" Then
MsgBox "Lütfen excel sayfasından aralığınızı seçiniz", vbExclamation, "Hiçbir aralık seçilmedi"

Else
Set WDApp = GetObject(, "Word.Application")
Set WDDoc = WDApp.ActiveDocument
Selection.Copy
WDApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteRTF, Placement:=wdInLine, DisplayAsIcon:=False

Set WDDoc = Nothing
Set WDApp = Nothing
End If
End Sub

Linkleri görebilmek ve üye ayrıcalıklarından faydalanabilmek için ücretsiz kayıt olun.
Teşekkürler eqzelci, paylaşımın için teşekkürler.