Excel Dosyasına Dizinden Resim Çekme

İki adet resim için düzenledim, Vba kodlarında diğer yerleri siz eklersiniz

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.

mgokmen' Alıntı:

İki adet resim için düzenledim, Vba kodlarında diğer yerleri siz eklersiniz

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(49 satır)

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

Teşekkür ederim @mgokmen Bey

Ö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

Ö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...

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.

Ö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.