Sitemize Hoşgeldiniz

Türkiye'nin en geniş özeliklere sahip forumu olan ExcelDestek.Com üzerinde soru sorabilmek, daha önceki sorulan sorulara, açılan konulara cevap yazabilmek, puan kazanabilmek, kazandığınız puanlar ile dosya indirebilmek ve çok daha fazla özellikten yararlanabilmek için sitemize üye olunuz.
Hemen Üye Ol ya da Giriş Yap

Sorun Cevaplayalım

Excel'e dair sorularınızı sorun, cevaplayalım.

Çözümlenmiş Sorular

Kullanıcılarımızın sorularını ve sunduğumuz çözümleri inceleyin.

Destek Ekibimiz Sizlerle

Ücretli destek ve özel hizmet talep edebilirsiniz.

  • Web sitemizi "REKLAMSIZ" olarak ziyaret etmek ister misiniz?
    Gerek sitemize destek, gerekse de reklam görmeden sitemizde gezinmek isterseniz, HESAP YÜKSELTME sayfasından SADECE 15-TL'ye 1 yıl boyunca ÜCRETLİ ÜYELİK almanız yeterli olacaktır.
    Detaylı bilgilendirme için lütfen buraya tıklayınız!

Makrolar Çözüldü Resim getirme


tahsinanarat

Yeni Üye
Kullanıcı
Katılım
26 Nis 2019
Mesajlar
92
Excel Versiyonu, Dili
Excel 2016 TR

Reputation:

Resim getirme ile ilgili çok sayıda örnek dosyalarım var, ama bu biraz farklı ilk defa sayfada diğer sayfadan alacağı bilgilerle C:\fotoğraflar\ klasöründe resim getirmeye çalıştım, ancak başaramadım.
Örnek dosyamda Şema adlı sayfamda birleştirilmiş hücrelerle yapılmış bir hücreye Data adlı sayfanın c sütunundaki (formüllü) eşleşen hücrenin sağındaki (d sütununda) tc kimlik numarasına göre resmin görünmesini, başka hücreye geçildiğinde ise resmin kapanarak o hücreye ait eşleşen resmin görünmesini istiyorum, yani hücre seçildiğinde resim görünsün. Bırakıldığında resim kaybolsun.
 

Ekli dosyalar

cakarem

Forum Yönetimi
Yönetici
Site Yöneticisi
SMS Onaylı
Katılım
1 Eki 2018
Mesajlar
527
Excel Versiyonu, Dili
Excel 2016 TR

Reputation:

Ekli dosyayı inceleyiniz...

İlgili kod yapısı:
Gizlenmiş içerik
Bu içeriği görebilmek için bu yazıya tepki vermeniz gerekir.
Önemli Not: klasor değişkenine kendi fotolarınızın bulunduğu dizini girmelisiniz.
Örnek : klasor="C/users/exceldepo/deskops/foto/"
satir = Target.Row
klasor = "resim klasörün bulunduğu dizini yaz"
For i = 2 To Sayfa1.Range("a65536").End(3).Row
 

Ekli dosyalar

tahsinanarat

Yeni Üye
Kullanıcı
Katılım
26 Nis 2019
Mesajlar
92
Excel Versiyonu, Dili
Excel 2016 TR

Reputation:

Bazı sebeplerden dolayı biraz uzak kaldım, çok teşekkür ederim. işimi gördü. Elinize sağlık.
 

cakarem

Forum Yönetimi
Yönetici
Site Yöneticisi
SMS Onaylı
Katılım
1 Eki 2018
Mesajlar
527
Excel Versiyonu, Dili
Excel 2016 TR

Reputation:

Rica ederim... Sorun çözüldü ise konuyu çözüldü olarak işaretliyorum...
 
Üst