Soru KÖPRÜ EKLEME

[ultraslan38080]

İyi günler.

Excelde A1:A100 arası hücrelerde ayrı ayrı bağlantı adresleri var.
B1:B100 arası hücrelerde de ayrı ayrı İsim-Soyisim var.

C1 hücresine; Köprü Adı B1 ve Köprü Bağlantı Adresi A1 olacak şekilde; C100 e kadar yapmak istiyorum. VBA daki döngülerle vs bu işlem hızlıca olabilir mi?

 

[Tevfik_Kursun]

Merhaba Arkadaşım,

Sub KOD()
    Application.ScreenUpdating = False
    Range("B:B").Hyperlinks.Delete
    For i = 1 To [B65536].End(3).Row
        If IsError(Cells(i, "B")) = False Then
            If Cells(i, "B") <> "" Then
                ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, "B"), Address:=Cells(i, "A")
            End If
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

B sütunundaki isimlerinize link bağlayan makro bu siteden alınmıştır.
iyi çalışmalar

 

[ultraslan38080]

Merhaba Arkadaşım,

Sub KOD()
    Application.ScreenUpdating = False
    Range("B:B").Hyperlinks.Delete
    For i = 1 To [B65536].End(3).Row
        If IsError(Cells(i, "B")) = False Then
            If Cells(i, "B") <> "" Then
                ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, "B"), Address:=Cells(i, "A")
            End If
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

B sütunundaki isimlerinize link bağlayan makro bu siteden alınmıştır.
iyi çalışmalar

Çok teşekkür ederim.

 

[Tevfik_Kursun]

Rica ederim, geri dönüş yaptığınız için ben teşekkür ederim.
İyi çalışmalar