link atama işlemi

[erdemturan]

Merhaba ,
Bir klasörde çok sayıda bulunan excel dökümanı için link atama işlemini tek tek atama yerine bunu otomatikleştiren veya dosya adını yazdığım anda (veya o klasöre bir excel dosyası kopyalanır kopyalanmaz listeye kendini ekleyen ) otomatik olarak link atamayı sağlayan bir yol var mı? Çok fazla zor bişey istemedim umarım

şimdiden teşekkür ederim...

 

[Levent Menteşoğlu]

Otomatik olmasada bir excel dosyasına bir kod yazarak bu dosya isimlerini güncelleyebilirsiniz.

 

[Levent Menteşoğlu]

Aşağıdaki kodu örnek olarak veriyorum. Burada C:\excel klasöründeki dosyalara, sayfa1, A1 hücresinden başlamak üzere link verilir.

[vb:1:9c8b3c80c2]Sub linkekle()
For Each dosya In CreateObject("Scripting.FileSystemObject").GetFolder("C:\excel").Files
c = c + 1
Sheets("sayfa1").Hyperlinks.Add Anchor:=Cells(c, 1), Address:=dosya.Path, TextToDisplay:=dosya.Name
Next
End Sub[/vb:1:9c8b3c80c2]

Not:Bu kodu; auto_open olarak yazarsanız,dosyanızı açtığınızda otomatik olarak çalışacaktır.

 

[erdemturan]

ben kod yazmayı bilmiyorum... bu konuyla ilgili yazılmış bir kod var mı? varsa nerden bulabilirim...?

teşekkürler

 

[Levent Menteşoğlu]

Dosyalarınızın bulunduğu klasörün yolunu yazarsanız,yukarıda verdiğim kodda gerekli değişiklikleri yaparak size örnek bir dosya eklerim.

 

[erdemturan]

kendi bilgisayarımda c: dizininde excel klasörü açtım ve link eklemek istediğim dosyalarıda o dizine kopyaladım ancak makroyu çalıştırdığımda herhangi birşey olmadı.... ne yapmam gerekir şimdi ?

 

[zimamdar]

örnek çalışma ve kodlar burada

 

[Levent Menteşoğlu]

Ekteki dosyayı herhangi bir klasöre kopyalayıp açın ve içindeki butona basın. (dosyalar C:\excel klasöründe olmalıdır)

 

[erdemturan]

yardımlarınız için çok teşekkür ederim ...