excelde bir sütuna klasörden notepad kısayolu eklemek

[Ferittt]

Selamlar.
Bir excel sayfam var B sütununda değişik rakamlar var.Not isimli klasörümde aynı rakam ile kayıtlı notepad dosyasını H sütunundaki aynı rakamlı yere otomatik olarak kısa yol vermesini ve kısa yol verilmiş hücrenin yeşil renkte olmasını istiyorum.Bu hücreye basıncada o kısa yoldaki notepad dosyası açılacak.Değerli üstadlarım nasıl bir kod gerekiyor?
İyi çalışmalar.


http://www.dosya.tc/server35/qLQRbl/NOTLAR.rar.html

 

[Murat OSMA]

Bu kodları kullanabilirsiniz;

[FONT="Trebuchet MS"]Sub Emre()
    Dim Rky As Object, Txt As Object ', yol$
    Range("H:H").Clear: yol$ = ThisWorkbook.Path
    Set Rky = CreateObject("Scripting.FileSystemObject")
    For Each Txt In Rky.GetFolder(yol).Files
        For i = 1 To Range("B65536").End(3).Row
            If Rky.GetBaseName(Txt) = Cells(i, 2).Value Then
                Cells(i, 2).Hyperlinks.Add Anchor:=Cells(i, "H"), Address:=Txt
                Cells(i, "H").Value = Rky.GetBaseName(Txt)
                Cells(i, "H").Interior.ColorIndex = 44
            End If
        Next i
    Next Txt
    Set Rky = Nothing: Set Txt = Nothing: yol = ""
End Sub[/FONT]

 

[Ferittt]

Sayın Murat üstadım öncelikle teşekkür ediyorum,
kodlar gayet güzel çalışıyor.Fakat excel dosyası C:\Documents and Settings\XPX\Desktop\NOT
olarak duruyor.Nodepad dosyalarının bulunduğu klasör yolu ise C:\Documents and Settings\XPX\Desktop\NOTLAR olarak duruyor.Bu kodlar excel dosyası ve nodepad aynı klasörde olursa çalışıyor.Ayrıca excel dosyasını açıp bir butona basıp kodları çalıştırabilirmiyiz.

 

[Baggwell]

Geliştirici sekmesinden bir buton ekleyip makroyu atayabilirsiniz,

Ayrıca excel dosyasının farklı bir klasörde çalışmasını istiyorsanız kısayol oluşturup masaüstüne atabilirsiniz pratik çözümler üretmeye çalışıyorum umarım faydası olur

 

[Ferittt]

kısa yol oluşturma işi güzel çözüm.teşekkürler.makro ataması yaptım ama ben butona bağlı çalışmasını istiyorum onun için nasıl yapmak lazım.

NOT:kısa yol ve buton atamasını yaptım.ama taramanın B3 ve sonuçların H3 ten itibaren yazmasını nasıl yapmam lazım. H1 e yazdığım başlıklar taramada siliniyor.


Tamamdır arkadaşlar onuda yaptım.
For i = 1 To Range("B65536").End(3).Row satırında i=4 yapınca istediğim adresten başlayıp döşedi.

Tekrar teşekkür ediyorum.İyi çalışmalar.