Textbox'a yapıştırılan köprünün hücrede kendiliğinden tıklanabilir olması

[dragotreis]

Textbox'a yapıştırılan köprünün hücrede kendiliğinden tıklanabilir olması

http://www.excel.web.tr/f14/userfor...arylan-verinin-kopru-olu-turmasy-t116641.html

Beni epey uğraştıran hücreye girilen adresin veya kısayolun vs kendiliğinden köprü olarak atanması sorununu yukarıda verdiğim linkte benden önce birisi izah etmiş. Sitede aradım taradım sonunda buldum. Sizden isteğim henüz hücreye aktarılmayan linkin adını değiştirip hücreye yine tıklanabilir olarak aktarılmasını sağlamak. Yani link bozulmayacak ama adı değişecek tamam deyince hücreye aktarılacak. Teşekkürler.

 

[Emir Hüseyin Çoban]

. . .

Makro kaydet ile istediğiniz kodlamayı çıkarabilirsiniz.
Küçük bir örnek, userforma göre değiştirebilirsiniz.

Sub KOD()
    
    Dim adres As String
    Dim link As String
    Dim metin As String
    
    adres = InputBox("Hücre Adresini Giriniz", "", "A1")
    If adres = "" Then Exit Sub
    
    link = InputBox("Dosya Yolu Giriniz", "", "C:\Users")
    If link = "" Then Exit Sub
    
    metin = InputBox("Görünmesini İstediğiniz Metin", "", "Tıkla...")
    If metin = "" Then Exit Sub
    
    Range(adres).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, _
    Address:=link, _
    [COLOR="Purple"]TextToDisplay:=metin[/COLOR]
    
End Sub

. . .

 

[dragotreis]

Teşekkür ediyorum, kodları gönderdiğim forma uyarlayabilir misiniz? TextBox1'de web adresi 2'de bağlantıya vereceğim isim olacak. Forma 2. TextBox'ı ekledim. Buyrun!
[link=http://www.dosyayukleyin.com/do.php?id=4288]userform üzerindeki textbox ile excel sayfasında link-1.rar[/link]

 

[Emir Hüseyin Çoban]

. . .

Mevcut kodlarınız ile

Private Sub CommandButton1_Click()
    If Range("A2").Value = "" Then
        Range("A2").Select
        ActiveCell.Value = 1
        ActiveSheet.Hyperlinks.Add Anchor:=ActiveCell.Offset(0, 1), Address:=TextBox1.Value[COLOR="Purple"], _
        TextToDisplay:=TextBox2.Text[/COLOR]
        ActiveCell.Offset(0, 2).Value = ComboBox1.Value
    Else
        [A65536].End(xlUp).Offset(1, 0).Select
        ActiveCell = ActiveCell.Offset(-1, 0) + 1
        ActiveSheet.Hyperlinks.Add Anchor:=ActiveCell.Offset(0, 1), Address:=TextBox1.Value[COLOR="Purple"], _
        TextToDisplay:=TextBox2.Text[/COLOR]
        ActiveCell.Offset(0, 2).Value = ComboBox1.Value
    End If
    TextBox1.Value = ""
    ComboBox1.Value = ""
End Sub

. . .

 

[dragotreis]

Dilerim çok uzun yaşarsınız da herkese böyle faydalı olursunuz, amin!