Makro kodu ile köprü kurmak

[baydeniro]

Merhaba Arkadaşlar,

Aşağıdaki kodun hücre adresi kısımlarını hücrede yazılı adreslere bağlamak istiyorum. Yani şöyle
SubAddress:="KAYIT!R1" yerine SubAddress:=[C1]
TextToDisplay:="KAYIT!R22" yerine TextToDisplay:=[D1]
Köprüye C1 ve D1 hücresinde yazılı olan veriyi almasını istiyorum ama bu haliyle çalıştıramadım.

Sub KOPRU()
Range("B2").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="KAYIT!R1", TextToDisplay:="KAYIT!R22"
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

 

[baydeniro]

Merhaba Arkadaşlar,

Aşağıdaki kodun hücre adresi kısımlarını hücrede yazılı adreslere bağlamak istiyorum. Yani şöyle
SubAddress:="KAYIT!R1" yerine SubAddress:=[C1]
TextToDisplay:="KAYIT!R22" yerine TextToDisplay:=[D1]
Köprüye C1 ve D1 hücresinde yazılı olan veriyi almasını istiyorum ama bu haliyle çalıştıramadım.

 

[PLİNT]

Merhaba
Aşağıdaki gibi denedinizmi?

SubAddress:=[C1].Text
TextToDisplay:=[D1].Text

veya "Value" ekleyerek

 

[baydeniro]

PLİNT çok teşekkür ediyorum, şimdi oldu. Sağlıcakla kalın.