Excel Dinamik Link Oluşturma

Tahribat.com Forumları
line

Yazılımlar / Diğer Programlar
line

Excel Dinamik Link Oluşturma

22/Ağu/23 00:40 Kısayol Şikayet Özel Mesaj

omery

Kayıt Tarihi: 25/Aralık/2010

KareemSaid bunu yazdı

Peki arkadaşlar bu dinamik link verme işlemini b sütunun da değil de ikinci bir sütuna gerek kalmaksızın direkt olarak a sütunundaki hücreler üzerinde nasıl uygularız?

Örneğin, Ahmet'e tıkladığımızda url.com/ahmet linkine gidecek.

Onun için direkt A1'e sağ tıklayıp Bağlantı'ya tıklayıp manuel yapman lazım.

Wingardium Leviosa

Alıntı yap
22/Ağu/23 19:56 Kısayol Şikayet Özel Mesaj

serhat8102

Kayıt Tarihi: 11/Nisan/2010

macro ile yapabilirim. PM gönder bağlanıp çözelim şu işi :D

Alıntı yap
22/Ağu/23 21:31 Kısayol Şikayet Özel Mesaj
cybermole

Kayıt Tarihi: 29/Mart/2016
KareemSaid bunu yazdı

Peki arkadaşlar bu dinamik link verme işlemini b sütunun da değil de ikinci bir sütuna gerek kalmaksızın direkt olarak a sütunundaki hücreler üzerinde nasıl uygularız?

Örneğin, Ahmet'e tıkladığımızda url.com/ahmet linkine gidecek.
```
Sub CreateLinks()
    Dim rng As Range
    Dim cell As Range

    Set rng = Range("B1:B" & Cells(Rows.Count, 2).End(xlUp).Row)

    For Each cell In rng
        If cell.Value <> "" Then
            cell.Hyperlinks.Add cell, "https://URL.com/" & cell.Value
        End If
    Next cell
End Sub
```
bu makroyu atarsan yapabilirsin.

cybermole tarafından 22/Ağu/23 21:33 tarihinde düzenlenmiştir
Alıntı yap
23/Ağu/23 13:40 Kısayol Şikayet Özel Mesaj
serhat8102

Kayıt Tarihi: 11/Nisan/2010
cybermole bunu yazdı

KareemSaid bunu yazdı

Peki arkadaşlar bu dinamik link verme işlemini b sütunun da değil de ikinci bir sütuna gerek kalmaksızın direkt olarak a sütunundaki hücreler üzerinde nasıl uygularız?

Örneğin, Ahmet'e tıkladığımızda url.com/ahmet linkine gidecek.

Sub CreateLinks() Dim rng As Range Dim cell As Range Set rng = Range("B1:B" & Cells(Rows.Count, 2).End(xlUp).Row) For Each cell In rng If cell.Value <> "" Then cell.Hyperlinks.Add cell, "https://URL.com/" & cell.Value End If Next cell End Sub

bu makroyu atarsan yapabilirsin.
Hücrede zaten mevcutta bir link varsa onu da düzeltecektir. Bunun kontrolünün de eklenmesi gerek.
Alıntı yap

Toplam Hit: 1409 Toplam Mesaj: 15
excel dinamik link

Cevapla