Tablo da veri doğrulama ile gelen il'e link vermek

[nevatmaca99]

Merhaba Üstatlarım,

Veri doğrulama ile tabloya getirdiğim il'e link verip ilgili sayfasına bağlamak istiyorum.

Ben bu linki B4 hücresinde yapamadım. Mecburen yanındaki hücreye Sayfaya git linki ekledim.
B4 hücresinde yapabilir miyiz bunu.



Excel doyasını ekledim...
Destek olursanız müteşekkir olurum.
Saygılarımla

 

[Muzaffer Ali]

Merhaba.
AnaSayfa adlı sayfanın adını sağ tıklatın, KodGörüntüle seçin
Açılan boş sayfaya aşağıdaki kodu kopyalayın.
Daha sonra dosyanız farklı kaydet ile Makro İçerebilen Excel Dosyası olarak farklı kaydedin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B4:B" & Rows.Count)) Is Nothing Then
        If Target.Text = "" Then
            Cells(Target.Row, "C") = ""
            Cells(Target.Row, "C").Hyperlinks.Delete
        Else
            Hyperlinks.Add Anchor:=Cells(Target.Row, "C"), Address:="", SubAddress:=Target.Text & "!A1", TextToDisplay:=Target.Text
        End If
    End If
End Sub

 

[nevatmaca99]

Üstadım teşekkür ederim.

Makro olmadan yapamaz mıyız acaba?
İyi çalışmalar

 

[nevatmaca99]

Merhaba.
AnaSayfa adlı sayfanın adını sağ tıklatın, KodGörüntüle seçin
Açılan boş sayfaya aşağıdaki kodu kopyalayın.
Daha sonra dosyanız farklı kaydet ile Makro İçerebilen Excel Dosyası olarak farklı kaydedin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B4:B" & Rows.Count)) Is Nothing Then
        If Target.Text = "" Then
            Cells(Target.Row, "C") = ""
            Cells(Target.Row, "C").Hyperlinks.Delete
        Else
            Hyperlinks.Add Anchor:=Cells(Target.Row, "C"), Address:="", SubAddress:=Target.Text & "!A1", TextToDisplay:=Target.Text
        End If
    End If
End Sub

Üstadım teşekkür ederim.

Makro olmadan yapamaz mıyız acaba?
İyi çalışmalar

 

[Muzaffer Ali]

Kod olmadan hücrelere link atayamazsınız.

 

[nevatmaca99]

Kod olmadan hücrelere link atayamazsınız.

Teşekkür ederim bilgilendirme için