Hücredeki veriyi kısa yol adı olarak atamak

[acolkesen1]

Arkadaşlar merhaba,
Aşağıdaki makroda a1 hücresindeki veriyi kısa yol adı olarak atamak istiyorum.Ancak hücredeki isim yerine, yazdığım hücre adresi kısa yol adı olarak yazılıyor."a1" veya (a1) şeklinde denedim olmadı. Acaba Xyazılı olan yere nasıl yazmalıyım hücreyi? Veya başka bir kod mu yazılmalı? ilgilenen arkadaşlara teşekkür ederim..

Sub KISAYOL_OLUŞTUR()

Dim Wsh As Object, Desktop As String, CShortcut As Object
Set Wsh = CreateObject("WSCRIPT.Shell")
With Wsh
Desktop = .SpecialFolders("Desktop") & "\"
Set CShortcut = .CreateShortcut(Desktop & "X.lnk")

With CShortcut
.TargetPath = "D:\XYZ\X.xls"
.WindowStyle = 1
.Save
End With

End With

End Sub

 

[Zeki Gürsoy]

Bu şekilde deneyin.

Sub KISAYOL_OLUŞTUR()

Dim Wsh As Object, Desktop As String, CShortcut As Object
Set Wsh = CreateObject("WSCRIPT.Shell")
With Wsh
Desktop = .SpecialFolders("Desktop") & "\"
Set CShortcut = .CreateShortcut(Desktop & [B][a1] & ".lnk")[/B]

With CShortcut
.TargetPath = "D:\XYZ\X.xls"
.WindowStyle = 1
.Save
End With

End With

End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Set CShortcut = .CreateShortcut(Desktop & [A1] & ".lnk")

 

[acolkesen1]

Sevgili anemos ve Korhan, yardımlarınız için her ikinize de çok teşekkür ederim. sağlıcakla kalın.İyi geceler dilerim.