Çözüldü Excel Dosyasına Dizinden Resim Çekme

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
M

merakli

Site Üyesi
Excel Versiyonu
Excel 2019
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Excel dosyadaki listede yer alan bilgilere göre oluşturulmuş resim isimlerini excel dosya ile aynı dizindeki resimler klasöründe bulunan resimleri excel dosyada göstermeye çalışıyorum. Tek resim olsa belki yapabilir ancak 1-10 arası farklı resim getirilmeye çalışıldığı için henüz yapabilmiş değilim.
Bu konuda desteklerinizi rica ediyorum.
Örnek dosyada gerekli bilgi ve açıklamaları yapmaya çalıştım.

soru.webp
 

Ekli dosyalar

Çözüm
Ö
@merakli

Yeni belge ekte olup, elden geçirilmiş, toplu silme ve
başka kaynaktan kopyalanıp yapıştırma işlemi de dahil yeniden düzenlendi.
Oluşturulan kod şöyle:

VBA: 
You must log in to view content
(10 satır)
Tarihe göre sırala Oylamaya göre sırala
Bu da alternatif olsun.
Sağ üst kısımdaki açılır listelerden seçim yapıldığında, istenilen işlem gerçekleşecektir.
İlaveten, formüllerle bulunan mevcut verilerin tümü kod içerisinde bulunarak ilgili hücrelere yazdırılır.
Yani belge formüllerden arındırılmış olur.
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
Bu da alternatif olsun.
Sağ üst kısımdaki açılır listelerden seçim yapıldığında, istenilen işlem gerçekleşecektir.
İlaveten, formüllerle bulunan mevcut verilerin tümü kod içerisinde bulunarak ilgili hücrelere yazdırılır.
Yani belge formüllerden arındırılmış olur.
Genişletmek için tıklayın ...

Teşekkür ederim @Ömer BARAN Bey.

Her zamanki gibi bir kaç satırla tüm işlemleri yaptırmışsınız. Emeğinize sağlık.
Orijinal dosya ile örnek dosya arasında sadece tek bir fark vardı.

BK2:BK6 ile BN2:BN6 arasındaki öğrenci numaralarının seçildiği listeler örnekte iyi anlaşılması için listeden seçilir şekilde yazmıştım.

Orijinal dosyada ise BK2:BK6 ile BN2:BN6 arasındaki öğrenci numaraları el ile giriliyor.

Listeleri kaldırıp el ile girdiğimde makro yine çalışıyor.

Ancak hücrelerdeki numaraları sildiğimde silinen numaraya ait bilgiler hücrede kalıyor.

Bunların silinmesini nasıl sağlayabiliriz?

Yani BK2:BK6 ile BN2:BN6 arasındaki öğrenci numaraları silindiğinde o numaralara ait soldaki bilgilerde silinmesi işlemi

Screenshot_1.webp
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
If IsNumeric(Application.Match(numara, o.[C:C], 0)) Then

Else

End If
Genişletmek için tıklayın ...

@Ömer BARAN Bey çok teşekkür ederim. Ellerinize sağlık.

Ancak orijinal dosyamda küçük bir sorunum var.
Tüm sayfa ve kodlar aynı olmasına rağmen bilgiler bana gelmiyor.

Kodlarınızı satır satır çalıştım.
Sorunun kaynağını sanırım buldum.
Orijinal dosyada ogrenci sayfasındaki bilgiler google drive'dan otomatik çekilerek oluşuyor.
üstteki kodda o.[C:C] kısmındaki yani C sütunundaki gelen bilgiler orijinal dosyada sayı formatında gelmiyor (sütundaki veriler sağa yanaşık değil)

ogrenci sayfası otomatik oluştuğu için C sütununu sayı formatına dönüştürerek çekme bilgim henüz yok.
Sizin kodlarda bu problemi nasıl aşabiliriz?
o.[C:C] kısmındaki verileri metin formatından sayı formatına dönüştürmemiz lazım sanırım. Bu şekilde True bir sonuç vermediği için Else kısmına gidiyor kod...

Screenshot_3.webp
 
Oyla 0 Olumsuz oyla
Bir üst kod satırı olan
numara = CStr(XD.Value)
kısmında METNE DÖNÜŞTÜRME işlemi yapılıyor.
Cstr kısmı olmazsa SAYI olarak kalır.
Bir de açılır liste olan hücrelerin durumunu kontrol edin.
Bilgisayarda değilim. Uygun olduğumda tekrar bakarım.
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
Bir de açılır liste olan hücrelerin durumunu kontrol edin.
Genişletmek için tıklayın ...

@Ömer BARAN Bey çok teşekkür ederim.
Ben hep macro üzerinde denemeler yapıyordum.
Ancak üstte belirttiğiniz duruma bakmak aklıma gelmemişti.
Açılır liste olan hücreleri sayısal olarak çevirdim ve numara = CStr(XD.Value) kısmını da numara = XD.Value şeklinde yapınca çalıştı
Teşekkürler.
 
Son düzenleme:
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Benzer Konular Popüler Daha Fazlası

Konuyu başlatan
M
merakli
Site Üyesi
Katılım
Konu Bilgi
Durum
Çözüldü 
Forum
Excel Makro Soruları
Başlangıç tarihi
Son yanıt tarihi
Cevaplar
8
Çözüldü
Çözümü Görüntüle
Üst