Veri Doğrulamada Köprü Oluşturma

[sami du]

Arkadaşlar merhaba;

Excel kitabımda veri doğrulamada açılan listede seçeceğim numarayı veya metni resimler klasöründeki bir resme nasıl köprü oluştururum?

Şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Merhaba,

Klasör yolu belli ise yanda ki boş bir hücreye köprü kurulabilir.

Ya da veri doğrulamadan seçim yaptıktan sonra hücreye çift tıklama ile ilgili klasördeki resim dosyası açılabilir.

 

[sami du]

Merhaba,

Klasör yolu belli ise yanda ki boş bir hücreye köprü kurulabilir.

Ya da veri doğrulamadan seçim yaptıktan sonra hücreye çift tıklama ile ilgili klasördeki resim dosyası açılabilir.

Korhan bey merhaba;
Öncelikle ilginiz için teşekkür ederim,

Veri doğrulamaya köprü oluşturdum ama aşağıya açılan listedeki bütün seçenekler aynı resmi açıyor açılan listeden seçim yaparak her seçime ayrı bir köprü oluşturamadım. Benim yapmak istediğim veri doğrulamada olan her bir seçeneğe "GÖRÜNTÜLER" adlı klasörden (C:\Users\Birgül\Desktop\Öztaş Apt\GÖRÜNTÜLER) ayrı ayrı resim köprüsü oluşturmak.
Aşağı açılan listede;
"Emlak Vergisi"
"Elektrik Borcu"
"Su borcu"
seçeneklerine tarattığım;
Emlak Vergisi.JPG (C:\Users\Birgül\Desktop\Öztaş Apt\GÖRÜNTÜLER\Emlak Vergisi.JPG)
Elektrik Borcu.JPG (C:\Users\Birgül\Desktop\Öztaş Apt\GÖRÜNTÜLER\Elektrik Borcu.JPG)
Su Borcu.JPG
resimlerine ayrı ayrı köprü oluşturmak.

 

[Korhan Ayhan]

Önerilerimden hangisi sizin için uygunsa belirtin lütfen.

 

[sami du]

Önerilerimden hangisi sizin için uygunsa belirtin lütfen.

Merhaba,

Çift tıklatma ile açılması daha güzel olur. Teşekkürler

 

[sami du]

Merhaba,

Çift tıklatma ile açılması daha güzel olur. Teşekkürler

Korhan bey imkan var ise formül olarak olursa sevinirim olmaz ise makro da olabilir. Teşekkürler

 

[Korhan Ayhan]

Çift tıklama ile makrolu çözüm olur.

İlk önerimde ise boş bir hücrede formül ile köprü kurulabilir.

Veri doğrulama işleminin A1 hücresinde olduğunu varsaydım. Boş bir hücreye formülü uygulayınız.

=KÖPRÜ("C:\Users\Birgül\Desktop\Öztaş Apt\GÖRÜNTÜLER\"&A1&".jpg";"Görsele ulaşmak için tıklayınız…")

 

[sami du]

Çift tıklama ile makrolu çözüm olur.

İlk önerimde ise boş bir hücrede formül ile köprü kurulabilir.

Veri doğrulama işleminin A1 hücresinde olduğunu varsaydım. Boş bir hücreye formülü uygulayınız.

=KÖPRÜ("C:\Users\Birgül\Desktop\Öztaş Apt\GÖRÜNTÜLER\"&A1&".jpg";"Görsele ulaşmak için tıklayınız…")

Korhan bey iyi akşamlar,

A1 hücresine veri doğrulama yaptım seçeneği tıkladığımda "bu dosyayı açmak için hiç bir program kaydı yapılmadı" hatası veriyor B2 hücresine formülü yapıştırdım onu da tıkladığımda "Belirtilen dosya açılamıyor" hatası veriyor bir yerde hata mı yapıyorum? Sizin için zahmet olmaz ise çift tıklamalı makrolu bir çözüm mümkünmüdür?

 

[Korhan Ayhan]

Ben formülü deneyerek sizinle paylaştım. Masa üstünde bir klasör oluşturdum. İçine bir adet Deneme.jpg isimli bir dosya oluşturdum.

A1 hücresine Deneme yazdım. B1 hücresinde ki formül ile oluşan köprüye tıkladığımda dosya açıldı. (Tabi ki burada dosya yolunu kendi bilgisayarıma göre yazdım.)

Sonra olumlu sonuç alınca sizin dosya yolunu formül içine adapte ederek paylaştım.

Aşağıdaki kodu sayfanızın kod bölümüne uygulayınız. Dosya yolunu kendinize göre düzeltmelisiniz.

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Yol As String
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    Cancel = True
    Yol = "C:\Users\Admin\Desktop\Test\" & Target.Value & ".jpg"
    ActiveWorkbook.FollowHyperlink Address:=Yol, NewWindow:=True
End Sub

 

[sami du]

Ben formülü deneyerek sizinle paylaştım. Masa üstünde bir klasör oluşturdum. İçine bir adet Deneme.jpg isimli bir dosya oluşturdum.

A1 hücresine Deneme yazdım. B1 hücresinde ki formül ile oluşan köprüye tıkladığımda dosya açıldı. (Tabi ki burada dosya yolunu kendi bilgisayarıma göre yazdım.)

Sonra olumlu sonuç alınca sizin dosya yolunu formül içine adapte ederek paylaştım.

Aşağıdaki kodu sayfanızın kod bölümüne uygulayınız. Dosya yolunu kendinize göre düzeltmelisiniz.

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Yol As String
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    Cancel = True
    Yol = "C:\Users\Admin\Desktop\Test\" & Target.Value & ".jpg"
    ActiveWorkbook.FollowHyperlink Address:=Yol, NewWindow:=True
End Sub

Korhan bey merhaba,

Yardımlarınız ve ilginiz için çok teşekkür ederim bir şeyleri yanlış yaptığımdan sonuca ulaşamıyorum sizi daha fazla uğraştırmak istemem sağ olun var olun.

 

[Korhan Ayhan]

Hala sonuca ulaşamadınız mı?