dosyanın gittiği yolu hücreye yazmak (cevaplkandığını biliyorum bulamadım)

[hsayar]

A2 = Siyasi Partiler ve köprüyü düzenle deyince çıkan link aşağıda http://www.ysk.gov.tr/ysk/SandikSonuclari/Adana/aladag-P.pdf

böyle 631 satır var var
a sütununda yazan değerin köprü değerini b ye nasıl yazarım. cevabı var ama bulamadım

 

[hsayar]

günaydın, güncel...

 

[hsayar]

A1 hücresinin değeri Siyasi Partiler Köprüsü ise b1 hücresinini değeri http://www.ysk.gov.tr/ysk/SandikSonuclari/Adana/aladag-P.pdf bu olsun

 

[06eed]

Adres = Sayfa1.Cells(1, 1).Hyperlinks(1).Address

komutuyla adresi alabilirsiniz.

 

[06eed]

Sub Adres_al()
Dim Adres
For i = 1 To 631
If Sayfa1.Cells(i, 1) = "" Then GoTo atla
Adres = Sayfa1.Cells(i, 1).Hyperlinks(1).Address
Sayfa1.Cells(i, 2) = Adres
atla:
Next i
MsgBox "işlem tamam"
End Sub

yukarıdaki kodlarla da 631 satır için adresleri alır.

 

[hsayar]

teşekkür ederim