Excel Makro İsteği

Merhaba arkadaşlar exceldeki sütun içeriklerine göre belli bir klasöre bağlantıadı.lnk dosyası oluşturabilecek bir makro veya program lazım.
Şimdiden teşekkürler.

 

Range("a2:a9") yerine kendi hücre aralığınızı girin. Kod dosyanın bulunduğu klasörün içinde bulunan deneme isimli klasörün içerisinde kısayol dosyalarını oluşturur. Eğer bilgisayarda belli bir klasörde oluşturmasını isterseniz
kisayol = Application.ActiveWorkbook.Path + "\deneme\" + hucre.Value + ".lnk"
kodunu
kisayol = "c:\kendiklasöryolunuz\" + hucre.Value + ".lnk"
şeklinde değiştiriniz.
Kodu windows 7 bilgisayarda office 2010'da denedim.

Kod:

Sub kisayololustur()
Dim kisayol As String
Dim hucre As Range


For Each hucre In Range("A2:A9").Cells
kisayol = Application.ActiveWorkbook.Path + "\deneme\" + hucre.Value + ".lnk"

With CreateObject("WScript.Shell").CreateShortcut(kisayol)
    .TargetPath = hucre.Offset(0, 1).Value
    .Description = hucre.Value + " git"
     .Save
End With
Next
End Sub