link atılması hk

[ggokhann.yyilmazz]

Merhabalar ekli dosyada bulunan bir sayfadaki linki diğer sayfaya otomatik nasıl atabilirim? Yani attığım sayfada da link çalışsın istiyorum.
Vlookup ve hyperlink ile denedim başka bir isimde atama yapıyor belki de ben yapamamışımdır.

 

[ggokhann.yyilmazz]

Umarım ustalarımdan birisi cevaplar.

 

[ggokhann.yyilmazz]

Yapılamayacak bir şey mi bu? Hiç kimse yardım etmediği için soruyorum en azından bu konuda yardım ederseniz memnun olurum.

 

[Zeki TEOMAN]

Merhaba

Sadece link mi atılacak
satırdaki diğer bilgiler atılacakmı

 

[Ömer]

Merhaba,

Aşağıda kodları deneyiniz.

Sub Link_Al()

    Dim c As Range, i As Long
   
    Application.ScreenUpdating = False
    Sheets("giden").Select
    Range("D4:D" & Rows.Count).Clear
   
    For i = 4 To Cells(Rows.Count, "C").End(xlUp).Row
        With Sheets("gelen")
            Set c = .[C:C].Find(Cells(i, "C"), , xlValues, xlWhole)
            If Not c Is Nothing Then
                .Cells(c.Row, "H").Copy Cells(i, "D")
            End If
        End With
    Next i
   
End Sub

 

[ggokhann.yyilmazz]

evet sadece link atılacak.
Makro olmadan bir formülü varsa daha çok sevinirim.

 

[Ömer]

Köprü adresini almak için makroya başvurmanız gerekir.
Aşağıdaki kodları Module1 kopyalayın.

Function AdresKopru(deg As Range) As String

    Dim c As Range
    
    Application.Volatile
    
    With Sheets("gelen")
        Set c = .[C:C].Find(deg, , xlValues, xlWhole)
        If Not c Is Nothing Then
            AdresKopru = .Cells(c.Row, "H").Hyperlinks(1).Address
        End If
    End With

End Function

Daha sonra giden sayfası D4 hücresine aşağıdaki formülü yazın.

=EĞERHATA(KÖPRÜ(AdresKopru(C4);DÜŞEYARA(C4;gelen!C:H;6;0));"")

.