Fonksiyonla bulunan Hyperlink'in açılmaması durumu

[_Sir_Lancelot_]

Merhaba arkadaşlar,

Seçime göre pc'imde bulunan dosyaların açılmasını istiyorum fakat Fonksiyon sadece ismini döndürmekte yardımcı olursanız sevinirim. dosya ek'te dir.

 

[Ömer]

Merhaba,

J4 hücresindeki formülün yerine aşağıdaki formülü yazdıktan sonra J4 hücresine fare ile tıklarsanız dosyanız açılacaktır.

=KÖPRÜ(İNDİS(B2:D8;KAÇINCI(H2;A2:A8;0);KAÇINCI(ARA(H3;{0;101;501};{"Küçük";"Orta";"Büyük"});B1:D1;0));"Tıklayınız")

Yalnız dosya yollarının doğru olduğuna dikkat etmeniz gerekmektedir.

Örnek olarak C: nin içinde BBB klasöründeki aaa dosyasını açmak için aşağıdaki yolu yazmanız gerekmektedir..

=KÖPRÜ("C:\BBB\aaa.xls")

.

 

[_Sir_Lancelot_]

Çok teşekkür ederim sayın espiyonajl,
yukarıdaki koda vbNormalFocus(uygulama açılmıştır ve kullanıma hazır olarak en üsttedir.) eklenebilir mi

 

[Ömer]

Çok teşekkür ederim sayın espiyonajl,
yukarıdaki koda vbNormalFocus(uygulama açılmıştır ve kullanıma hazır olarak en üsttedir.) eklenebilir mi

Tam olarak anlayamadım,

=KÖPRÜ(İNDİS(B2:D8;KAÇINCI(H2;A2:A8;0);ARA(H3;{0\101\501};{1\2\3}));"vbNormalFocus(uygulama açılmıştır ve kullanıma hazır olarak en üsttedir.)")

İstediğiniz bu mu?

.

 

[_Sir_Lancelot_]

Evet tam istediğim gibi. Son bir sorum olacaktı. kusura bakmayın Sayın espiyonajl, biraz taksit taksit oldu sorularım bişeyler ortaya çıktıkça devamı geldi..

Şimdi CommandButton'a Makro atadığımda

Sheets("Sheet1").Select
    Range("J4").Select

o hücreyi seçiyor. Bunun yerine CommandButton a tıklayınca uygulamayı açsın. Kodda ne gibi bir düzenleme yapılması gerekiyor? Çok teşekkür ederim tekrardan

 

[Ömer]

Sub Aç()
 
Workbooks.Open Filename:=[J4]
ActiveWindow.Visible = True
 
End Sub

Bu şekilde denermisiniz.Makroyu kullanacaksanız hücredeki köprü fonkisyonunu kaldırabilirsiniz..

 

[_Sir_Lancelot_]

run time error 1004 uyarısı çıkmakta.

 

[Ömer]

run time error 1004 uyarısı çıkmakta.

Dosyayı bulamadığı için hata mesajı alıyorsunuz. Dosya yolunun doğru olduğundan emin olunuz. Hata mesjaını almamak için
On Error Resume Next
kodunu ilave edebilirsiniz. Fakat dosya yolu doğru olmadığı için dosyayı açmayacaktır.

Sub Aç()
  On Error Resume Next
  Workbooks.Open Filename:=[J4]
  ActiveWindow.Visible = True
End Sub

.

 

[_Sir_Lancelot_]

Dosyayı Ekledim. İsterseniz bir göz atın.
Tıklayınca dosya çalışmakta verdiğiniz kodda çalıştıramadı. Belki benim gözden kaçırdım bir yer vardır.

 

[Ömer]

J4 hücresine aşağıdaki formülü yazınız. ( Eğerli formüle alternatiftir.)

=İNDİS(B2:D8;KAÇINCI(H2;A2:A8;0);ARA(H3;{0\101\501};{1\2\3}))

Kodu J4 hücresine denk gelecek şekilde düzenleyiniz..

Sub Aç()
 
Workbooks.Open Filename:=[J4]
ActiveWindow.Visible = True
 
End Sub

Bu şekilde denermisiniz..

Eğer hem kod hemde formül ile yapmak istiyorsanız formüle köprü fonksiyonunu ilave edebilirsiniz. Yalnız köprü fonksiyonunda ad kısmını boş geçmeniz gerekmektedir.

=KÖPRÜ(bağ_konumu;[yakın_ad])

Kırmızı olan yeri boş bırakmanız gerekir..

=KÖPRÜ(İNDİS(B2:D8;KAÇINCI(H2;A2:A8;0);ARA(H3;{0\101\501};{1\2\3})))

.

 

[_Sir_Lancelot_]

Sayın espiyonajl,
Verdiğiniz kod dizimi ile olmadı. Sorunu başka şekilde çözdüm yinede emeğiniz için çok teşekkür ederim. İyiki bu forumda varsınız

 

[Necdet]

Sayın espiyonajl,
Verdiğiniz kod dizimi ile olmadı. Sorunu başka şekilde çözdüm yinede emeğiniz için çok teşekkür ederim. İyiki bu forumda varsınız

Çözümü biz göremeyeceğiz sanırım