Soru Excelde Dinamik Vesikalık Fotoğraf Alanını Nasıl Oluşturabilirim?

[merrrakli]

Örnek Dosya

Merhaba olayı soyutlaştırmak için şöyle bir örnekle anlatayım.
Örneğin bir öğrenci bilgi sayfamız var.
Ve veri sayfalarımız var.

Örnek Dosya

T.C. Numarasını seçim kutusundan seçerek düşey ara ile o TC kimlik numaralı öğrenci bilgilerini ilgili alanlara çekiyorum.
Bu öğrencinin fotoğraf alanına da fotoğrafını yüklemek istiyorum. Her öğrencinin fotoğrafının jpg ismi tc kimlik numarası.. (12345678901.jpg gibi)
Bu resimleri bulunduğu dizinden seçilen tc numarasına göre nasıl alabilirim?
Bu resimleri excel dosyasının bir sayfasına ekleyip oradan bilgi sayfama çağırmak mümkün müdür?

Örnek Dosya

 

[1Al2Ver]

Merhaba,

Öneri ; Dosyanızın, özel bilgi içermeyen bir örneğini foruma ekleyiniz, çabuk ve doğru çözüm elde etmeniz kolaylaşır.

 

[merrrakli]

Merhaba,

Öneri ; Dosyanızın, özel bilgi içermeyen bir örneğini foruma ekleyiniz, çabuk ve doğru çözüm elde etmeniz kolaylaşır.

Örnek Dosya

Teşekkürler.

Örnek Dosya

Küçük bir dosya ile açıklamaya çalıştım.

Örnek Dosya

 

[turist]

Dosya Linki
Deneyin.

 

[Ömer BARAN]

Merhaba.
Bir alternatif de benden olsun.
Dosyaya fareyle buraya tıklayarak de erişilebilir.
Zip belge içeriğini bir klasör içerisine çıkartarak deneyiniz.
.

 

[merrrakli]

Dosya Linki
Deneyin.

Teşekkürler.
Elinize sağlık.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ResimYeri As String: ResimYeri = ThisWorkbook.Path & "\"
Application.EnableEvents = False
Dim Resim As Object
For Each Resim In ActiveSheet.Pictures
Resim.Delete
Next Resim
If Target.Address = [B2].Address Then
With Range("C2:C7")
Me.Shapes.AddPicture ResimYeri & Target.Offset(1, 0) & ".jpg", msoFalse, msoCTrue, .Left, .Top, .Width, .Height
End With
End If
Application.EnableEvents = True
End Sub

 

[merrrakli]

Merhaba.
Bir alternatif de benden olsun.
Dosyaya fareyle buraya tıklayarak de erişilebilir.
Zip belge içeriğini bir klasör içerisine çıkartarak deneyiniz.
.

Teşekkürler.
Elinize sağlık.

Private Sub Worksheet_Change(ByVal Target As Range)
    Set f = Sheets("form")
    Set v = Sheets("veri")
If Target.Address(0, 0) = "B2" And Target <> "" Then
    isim = v.Cells(WorksheetFunction.Match(f.[B2], v.[A:A], 0), "G").Value
Else
    isim = "YOK.jpg"
End If
    yol = ThisWorkbook.Path & "\" & isim
    f.Image1.Picture = LoadPicture(yol)
End Sub

 

[turist]

Teşekkürler.
Elinize sağlık.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ResimYeri As String: ResimYeri = ThisWorkbook.Path & "\"
Application.EnableEvents = False
Dim Resim As Object
For Each Resim In ActiveSheet.Pictures
Resim.Delete
Next Resim
If Target.Address = [B2].Address Then
With Range("C2:C7")
Me.Shapes.AddPicture ResimYeri & Target.Offset(1, 0) & ".jpg", msoFalse, msoCTrue, .Left, .Top, .Width, .Height
End With
End If
Application.EnableEvents = True
End Sub

Sağ olun, iyi çalışmalar.
Not: "veri" sayfasında G sütununa resimlerin adreslerini yazmanıza gerek olmadan dosyanız çalışacaktır.

 

[merrrakli]

Merhaba
2 gündür makro çalışıyorum.
20 yıl öncesinden iyi derecede Asp bildiğim için kodlar yabancı değil.
Sadece excel içinde kullanma prosedürlerini öğrenmek zamanımı alıyor

örneğin belki çok basit bir şey ama aşağoıdaki Image1 in nasıl oluşturulduğunu bilmiyorum.
Bunu ben kendi projemde nasıl isim verip o bölüme yerleştirebilirim

 

[Zeki Gürsoy]

Çalışma sayfası üzerine Image nesnesi çizdiğiniz zaman listeye eklenir.

 

[merrrakli]

Çalışma sayfası üzerine Image nesnesi çizdiğiniz zaman listeye eklenir.

Merhaba,
Hocam soruyu sorduğum zaman yapamadım pes ettim.
Ancak şimdi yine lazım oldu ancak bir türlü sizin örneği kendime uyarlayamadım.
Kullanmak istiyorum ama şu resim alanını kendi excel dosyamda oluşturamıyorum.
Sizin örnekteki form sekmesinde resim gelen kısmı çözemiyorum.
resmi silmeye çalışıyorum içinde ne var formül vb. o resmi o hücredende kaldıramıyorum başka alana bile sürüklenmiyor.
O alanı nasıl oluşturdunuz başlangıç seviyesi birinin anlayacağı tarzda anlatabilir misiniz?

 

[Ömer BARAN]

Merhaba.
Nesneyi;
-- eklemek için, aşağıdaki ekran görüntüsüne bakınız.
-- silmek için ekran görüntüsündeki TASARIM MODU düğmesini aktif hale getirdikten sonra nesneyi fareyle seçerek silebirsiniz.

NOT: Üstteki ana menü çubuğunda GELİŞTİRİCİ'yi göremiyorsanız önce DOSYA>>SEÇENEKLER>>Şeridi Özelleştir'i seçin
açılacak ekranda sağ taraftaki listeden GELİŞTİRİCİ seçeneğine ait ONAY KUTUSUnu işaretleyin.

 

[merrrakli]

Merhaba.
Nesneyi;
-- eklemek için, aşağıdaki ekran görüntüsüne bakınız.
-- silmek için ekran görüntüsündeki TASARIM MODU düğmesini aktif hale getirdikten sonra nesneyi fareyle seçerek silebirsiniz.

NOT: Üstteki ana menü çubuğunda GELİŞTİRİCİ'yi göremiyorsanız önce DOSYA>>SEÇENEKLER>>Şeridi Özelleştir'i seçin
açılacak ekranda sağ taraftaki listeden GELİŞTİRİCİ seçeneğine ait ONAY KUTUSUnu işaretleyin.

Ekli dosyayı görüntüle 205259

Açıklamanız İçin Çok teşekkürler.