Hücreye Link Ekleme

[ereneren492]

Merhaba,

A sütununda bulunan tüm hücrelerime link eklemek istiyorum. Şu şekilde olacak;www.xxx.com/a2hücresindekiifade, www.xxx.com/a3hücresindekiifade .... şeklinde. yardımcı olabilirseniz sevinirim.

şimdiden teşekkür ederim.

 

[ereneren492]

VBA koduna ihtiyacım var.

 

[alicimri]

Mesela Hücrede
threads/huecreye-link-ekleme.200420/
yazıyorsa, aşağıdaki kod ile hücreye link ekleye bilirsiniz

ActiveSheet.Hyperlinks.Add Anchor:=Activecell, Address:="https://www.excel.web.tr/" & Activecell.Value

 

[ereneren492]

Merhaba, hücrede dediğiniz gibi bir ifade yer almıyor. Ben A sütunundaki A2'den sonra başlayan tüm hücrelere www.xxx.com/a2hücresindekiveri, www.xxx.com/a3hücresindekiveri, www.xxx.com/a4hücresindekiveri şeklinde link eklemek istiyorum.

 

[ereneren492]

Hocam dediğiniz kod uygun ama ben a sütunundaki tüm hücrelere uygulamak istiyorum

 

[AdemCan]

Merhaba, örnek kodlar

Sub test_link_kle()
    For i = 2 To ActiveSheet.Cells(Rows.Count, 1).End(3).Row   
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:= _
            "http://www.excel.web.tr/" & Cells(i, 1)           
    Next
End Sub

Kod öncesi


Kod Sonrası