Excel Makro İsteği

Kodla Büyü

Mesut AKGÜN

Aktif Üye
Mesajlar
279
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.
 

Ekli dosyalar

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
 
BBNET
Geri
Üst