hücreye köprü(adres) ekleme

[görkem23]

Merhaba, userform üzerinden bir gözat butonum var. Bu butona tıkladığımda ilgili resimi seçip o resmin linkini(adresini) d1 hücresine yazdırmak istiyorum. Nasıl yapabilirim?

 

[ÖmerBey]

Merhaba, şu şekilde deneyiniz:

Private Sub CommandButton1_Click()
link = Application.GetOpenFilename
If link <> False Then Sheets("Sayfa1").Range("D1") = link
End Sub

 

[lovecaroline]

merhaba, kodu linke tıklandığında açılabilir hale getirebilir misiniz.

 

[ÖmerBey]

Aşağıdaki şekilde deneyiniz.

Private Sub CommandButton1_Click()
Set s1 = Sheets("Sayfa1")
link = Application.GetOpenFilename
If link <> False Then
    s1.Range("D1").Hyperlinks.Delete
    s1.Hyperlinks.Add Anchor:=s1.Range("D1"), Address:=link, TextToDisplay:=link
End If
End Sub