exceldeki bir yazıyı word'te görüntüleme

[enesburak]

arkadaşlar excelde yazmış olduğumuz bir yazıyı yanına bir buton koyarak wordte görebilirmiyiz

 

[enesburak]

yani bu dediğim imkansız mı

yani bu dediğim imkansız mı

 

[leumruk]

Merhaba,
Dosyalarınızı makro içerebilen dosya şeklinde kaydedip bu kodu kullanabilirsiniz.

Sub Aktar()
Range("A1:Y28").Copy
Set wd = CreateObject("word.Application")
wd.Visible = True
Set MyDoc = wd.Documents.Add(DocumentType:=0)
wd.Selection.PasteSpecial DataType:=10
wd.Selection.Tables(1).AutoFitBehavior (2)
Application.CutCopyMode = False
End Sub