köprü bağlantısı oluşturmak

[green71tr]

merhaba,

elimde 2500 satırlık bir veritabanı var

s kolonunda her bir veriye ait bir pdf dosyasının adı var.

her bir hücre için hücre içindeki pdf dosyasının adına uygun bağlantı yapmak istiyorum.

örnek komut aşağıda.... (manuel olarak yaptığım işlemin kodu)

yapmam gereken her bir hücrenin içindeki değeri okutmak ve bu değer için 2. satırdaki komutu uygulatmak...

sınırlı makro tecrübem pek izin vermiyor...

Range("S2").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="529503.PDF"

 

[Orion1]

Entersan, pdf dosyalarının veri tabanı olarak kulanılabildğini hiç duymadım.
Bu konuyu atlamışım sanırım.

 

[green71tr]

haklısınız konuyu açarken hatalı yazmışım....

s kolonunda pdf dosyasının adı yazıyor.

abc.pdf

abc.pdf dosyası için s2 adresinde köprü oluşturmak istiyorum.

bunu manuel yapıyorum ancak 2500 satır için ayrı ayrı uğraşmam zor.

 

[green71tr]

makroyu bu kadar feci(kötü) biçimde kullandığım için kusura bakmayın....

5000 satır kabul olmadığından 5-6 parçada halloldu....



Sub DDD()
'
' DDDDDDDD Makro
' Makro benim tarafından 24.01.2010 tarihinde kaydedildi.
'

'
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="396.PDF"
Range("S2547").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="482.PDF"
Range("S2548").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="368.PDF"
Range("S2549").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="PI-405583-.PDF"
Range("S2550").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="184474.PDF"
Range("S2551").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="184474.PDF"
Range("S2552").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="184474.PDF"
Range("S2553").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="184474.PDF"
Range("S2554").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="2009124.PDF"
End Sub

not: bu işin doğrusunu yazan olursa sevinirim.

 

[green71tr]

destek bekliyorum....

 

[green71tr]

daha önce bu siteden almış olduğum yardımla sorunu çözdüm...

Sub KAYIT_BUL()
If ActiveCell = "" Then Exit Sub
Set BUL = Sheets("pdfs").Cells.Find(ActiveCell, LookAt:=xlWhole)
If Not BUL Is Nothing Then
Sheets("pdfs").Select
Range(BUL.Address).Select
End If
Set BUL = Nothing
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Sheets("data").Select
End Sub


netekim bugün KÖPRÜ() fonksiyonu ile makroya ihtiyaç duymadan çözebileceğimi gördüm...

belki işinize yarar...