Bilgisayar-Bilişim Teknolojileri
Ana Sayfa
Bilişim Teknolojileri Forumu Son Konuları
24 Saat
Bilişim Teknolojileri - Formatör - Bilgisayar Öğretmeni Kayıt
Kayıt Olun
iletişim
iletişim
Detaylı Arama
Arama
Yeni Konu Aç
Yeni Konu Aç

Excel Makro İsteği

Konu, 'Visual Basic' kısmında viper8 tarafından paylaşıldı.


  1. viper8

    viper8 Aktif Üye

    Kayıt:
    16 Şubat 2010
    Mesajlar:
    249
    Beğeni:
    156
    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:

  2. yakuphan

    yakuphan Hiperaktif Üye Hiperaktif

    Kayıt:
    7 Nisan 2007
    Mesajlar:
    4.480
    Beğeni:
    669
    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
     

Sayfayı Paylaş /bbnetsosyal