Makro İle Worde Veri Aktarmak

[ormann]

İyi günler ekli örnek dosyada b5:j28 arasındaki verileri biçimlendirilmiş hali ile word belgesine aktarıp ,masa üstüne inceleme klasörü içerisine J2 hücresindeki isimle kayıt yaptırabilir miyiz?.Yardımcı olur musunuz?
http://dosya.co/6ryfvdb36fho/Word.xlsx.html

 

[leumruk]

Selamlar,

Sub wordeaktar()
yol = CreateObject("Wscript.Shell").SpecialFolders.Item("Desktop")
yol = yol & "\inceleme\" & [j2] & ".docx"
Range("b5:j28").Copy
 Set wd = CreateObject("Word.Application")
 wd.Visible = True
 wd.documents.Add
 wd.Selection.Paste
 wd.ActiveDocument.SaveAs (yol)
 If wd.documents.Count = 1 Then
 wd.Application.Quit
 Else
 wd.ActiveDocument.Close
 End If
 MsgBox "İşlem tamamlanmıştır.", vbOKOnly, "l e u m r u k"
End Sub

 

[ormann]

Sayın Leumruk çok teşekkür ederim

 

[leumruk]

Sayın Leumruk çok teşekkür ederim

Rica ederim.