hücre dolu ise köprü çalıştır - kod ile ?

[talatgorkem]

Merhaba
Aslında yapmayı planladığım Listbox ile hyperlink çalıştırmak
( ana sayfa içerisinde daha az yer kaplaması ve kullanışlı olması amacı ile )
Tek eksiğim hücre dolu ise karşılığında var olan link in açılması)
Örneğin;
A1=1 ise www.excel.web.tr açılsın
A1=2 ise www.google.com.tr açılsın
A1=3 ise www.youtube.com açılsın

İşleme istinaden makro atama ile target 1 ise diyerek macro çalıştırabiliyorum
fakat önemli olan tek bir kod dizilimi ile bunu tamamlayabilmek !

Peki böyle bir kod yazılımı mümkün mü ???
Mümkün ise örnek bir kod yazarak cevaplar mısınız ?

 

[Korhan Ayhan]

Deneyiniz.

Option Base 1

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    Link = Array("www.excel.web.tr", "www.google.com.tr", "www.youtube.com")
    Shell "C:\Program Files\Internet Explorer\iexplore.exe " & Link(Target.Value), vbNormalFocus
End Sub

 

[talatgorkem]

Teşekkür ediyorum Korhan bey gayet net ve başarılı bir şekilde çalışan kod dizilimi elinize sağlık
Henüz iş yerinde deneme fırsatı bulamadım fakat aklıma gelen muhtemelen çalıştığım kurum içerisinde C: dosyasına erişim engelim kodun çalışmasına mani olabilir !

Peki C: dosyasına bağlantı sağlamadan çalışan bir kod oluşturma şansımız olabilir mi ?

İş yerinde köprü kurarak tıklama ile açılmasını sağlayabiliyorsam, kod un güvenliğe takılmadan çalışacağı fikri de doğru olur mu ?

Yardımlarınız için tekrar teşekkür ederim.