VBA da link kopyalama kodu.

[ordotanura]

VBA da link kopyalamak için nasıl bir kod yazabilirim; mesela şu kod sadece hücredeki değeri getiriyor;
If Sayfa1.Range("ae" & i) = Sayfa2.Range("f5") Or Sayfa1.Range("af" & i) = Sayfa2.Range("f5") Or Sayfa1.Range("ag" & i) = Sayfa2.Range("f5") Then
Sayfa2.Range("ad" & ref) = Sayfa1.Range("ad" & i)

bana bunun gibi bir kodun link taşıyanı lazım, bilen var mı arkadaşlar.

 

[mancubus]

çalışma kitabındaki başka bir hücreye köprü (hyperlink) mi eklemek istiyorsunuz?

Eğer böyle ise aşağıdaki makro B9 hücresine, tıklandığında Sayfa2'nin e15 hücresine gitmeyi sağlayan bir köprü ekliyor.

TextToDisplay:="Sayfa2!E15" ifadesinde "" içine dilediğiniz ifadeyi yazabilirsiniz.

Örnek: TextToDisplay:="İçindekiler"

Sub Kopru()

    ActiveWorkbook.Sheets("Sayfa1").Range("B9").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "Sayfa2!E15", TextToDisplay:="Sayfa2!E15"
End Sub

 

[Kemal Demir]

VBA da link kopyalamak için nasıl bir kod yazabilirim; mesela şu kod sadece hücredeki değeri getiriyor;
If Sayfa1.Range("ae" & i) = Sayfa2.Range("f5") Or Sayfa1.Range("af" & i) = Sayfa2.Range("f5") Or Sayfa1.Range("ag" & i) = Sayfa2.Range("f5") Then
Sayfa2.Range("ad" & ref) = Sayfa1.Range("ad" & i)

bana bunun gibi bir kodun link taşıyanı lazım, bilen var mı arkadaşlar.

Merhaba,

Örnek bir kod ve dosya ekliyorum.Eğer yanlıs anlamadıysam çözüm ektedir.

Varsayalım A kolonunda link olan textler yada olmayan textler var.Hucresel olarak kontrol edip link olanların linklerini C kolonuna taşıyor ve B kolonunada "link var" bilgisi yazdırıyor"

For x = 1 To 4
If Range("a" & x).Hyperlinks.Count > 0 Then
Range("b" & x).Value = "link var"
'istediğin yere alablirsin
Range("c" & x) = Range("a" & x).Hyperlinks.Item(1).Address
End If
Next
End Sub