Mesut AKGÜN
Aktif Üye
- Mesajlar
- 280
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.
Şimdiden teşekkürler.
- Mesajlar
- 4,642
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.
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