hücreye veri girildiğinde köprü otomatik açılsın

[canercaneryilmaz]

a1 hücresine veri girdiğimde a2 hücresine köprü bağlantılı düşeyara ile getirdiğim köprü linkini otomatik açmasını istiyorum. Yardımlarınız için şimdiden teşekkürler

 

[Ömer]

Merhaba,

Deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    Range("A2").Hyperlinks(1).Follow
End Sub

 

[canercaneryilmaz]

a2 değilde b1 hücresi olacaktı range a2 yazan yere b1 yazdım ama yine olmadı hata verdi

 

[Ömer]

Düşeyara ile gelen veride köprü formülü kullandınız mı? Ben A2(B1) hücresinde köprü olduğunu düşünerek yazdım.

 

[canercaneryilmaz]

=KÖPRÜ(DÜŞEYARA(A1;A3:B4;2;YANLIŞ)) b1 hücresinde bu formül var hocam

 

[Ömer]

B1 hücresine tıklayınca ilgili köprü açıyor mu?

 

[canercaneryilmaz]

evet açıyor ama ben a1 hücresine veri girdiğimde b1 hücresine düşeyara ile gelen o veriyi otomatik açsın istiyorum

 

[canercaneryilmaz]

yardımcı olabilecek varsa çok memnun olurum

 

[Ömer]

Örnek dosya ekleyebilir misiniz.

Dosya Yükle - Dosya Upload

Dosyalarınızı ücretsiz yükleyebilir ve paylaşabilirsiniz. Dosya yükleme, Dosya Upload ücretsiz.

dosya.co

 

[canercaneryilmaz]

dosya ekleyemiyorum hocam

 

[Ömer]

Deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    Workbooks.Open Filename:=[B1]
End Sub

 

[canercaneryilmaz]

malesef yine olmadı

 

[Ömer]

DÜŞEYARA(A1;A3:B4;2;YANLIŞ) çıkan sonuç nedir?

 

[canercaneryilmaz]

köprülü link geliyor bu formülle ve üzerine tıkladığımda açılıyor fakat a1 hücresine veri girdiğimde b1 hücresine bu formülle gelen köprünün otomatik açılmasını istiyorum

 

[Ömer]

Sormak istediğim bu değil. Köprü adresini görmek istiyorum.

Boş bir hücreye =DÜŞEYARA(A1;A3:B4;2;YANLIŞ) formülünü yazın. Çıkan sonucu buraya yazar mısınız.

 

[Ömer]

Bir de bu şekilde deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim adr As String
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    adr = Replace(Replace(Replace([B1].Formula, "=HYPERLINK(", ""), ")", ""), """", "")
    Workbooks.Open Filename:=adr
End Sub

 

[canercaneryilmaz]

https://dosya.co/3xzzym1rk5oo/Resimler.rar.html

Şimdi ekleyebildim hocam örnek dosyayı

 

[omeru77]

Merhaba, düşey ara ile başka kitaptan çektiğim hücrenin köprüsünüde almak istiyorum, lütfen yardım edermisiniz.

 

[Ömer]

Merhaba,

Köprüsünü almak istiyorumdan kastınız nedir. Gelen veriye tıklayınca ilgili dosya mı açılacak. Örnek dosya ekleyerek detaylı açıklayınız.

 

[omeru77]

Merhaba,

Köprüsünü almak istiyorumdan kastınız nedir. Gelen veriye tıklayınca ilgili dosya mı açılacak. Örnek dosya ekleyerek detaylı açıklayınız.

Merhaba, başka dosyadan indis veya düşey ara ile veri getiriyorum. getirdiğim verirlerde köprüler tanımlı, bu körüler getirdiğim dosyada çalışmışyor.
PP dosyasındaki tabloda BB klasöründeki dosyalara körü verdim, köprüler burdan açılıyor, AA klasöründeki AC dosyasına düşey ara veya indisle PP veri alıyorum, veriler geliyor ama köprüler burdan açılmıyor.