makro ile resim ekleme

[tiger3156]

excel de fotoğraf eklediğinde otomatik olarak fotoğrafa bir sıra veriyor (Resim 1) gibi daha sonra ben bu eklediğim fotoğrafları excelin diğer bir sayfasında kişinin sicil numarasını girdiğimde otomatik gelmesini istiyorum, bu makro ile

[Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.ScreenUpdating = False
Shapes("resim").Delete
If Target.Address <> "$I$3" Then Exit Sub
Sheets("Resim").Select
ActiveSheet.Shapes([I3]).Copy
[r19].PasteSpecial
Sheets("prg").Select
Selection.ShapeRange.Name = "resim"
[I3].Select
End Sub] bunu yapabiliyorum ama resmin adını değiştirtdiğimde örnek(Resim 1 - 2200156 yaptığımda) çalışmıyor yukarıdaki makroda belirttiğin hücredeki değeri okuyup belirttiğin hücreye resmi yapıştırıyor. o değer okuduğu hücreye metin yazı şeklinde yazarasam ve resmin adınıda metin olarak yaparsam çalışıyor, ama bunu sayı ile yapmaya çalıştığımda olmuyor işte benimde derdim sayı ile çalıştırmam gerekiyor. eğer yardımcı olabilirseniz çok sevinirim şimdiden çok teşekkürler

 

[tiger3156]

Resim ekleme ile başka makrolar var ise lütfen bana yardımcı olun

 

[tahsinanarat]

ÖRNEK bir dosya ile pekiştirirseniz, eminip cevap gelecektir. Ne istediğiniz tam olarak anlaşılmıyor.

 

[tiger3156]

resim ekleme

işte size bir örnek

 

[Merhum İdris SERDAR]

işte size bir örnek

Resimlerin adları sayısal olmamaktadır. Yine de bu şekilde kullanmak istiyorsanız bu numaraların başına ve sonuna bir harf veya herhangi bir işaret getirerek kullanırsanız çalışır.

.

 

[tiger3156]

yurttaş sağol arkadaşım dediğin gibi yapıyorum ama sicil numarasına bağlı birçok çalışan komutlar var bunların hepsini değiştirmem gerekir formül ile sicil numarasının yanına dediğiniz gibi bir harfte ekliyorum, bu sferde makro formülden önce çalıştığı için formül sonucunu beklemeden değerlendiriyor ve yine hata veriyor.

 

[tahsinanarat]

resimlerin herhangi bir klasörden gelmesi olurmu, öyle olurse numaralarda herhangi bir problem yok, ama resimler illaki dosya içerisinde gömülü olması gerekiyorsa, başka kodlar bakabiliriz.

 

[tiger3156]

farketmez başka klasörden alsamda olur tam olarak 3116 adet fotoğraf ekleyecem bir karşma olmaz değilmi?

 

[tiger3156]

Bu arada herkezin Kurban Bayramını Kutlar, sevdiklerinizle beraber Daha nice bayramlara dileğimle.

 

[tahsinanarat]

Ekli dosyayı kendisinize uyarlayın

Fotoğraflarınızın D:\foto klasöründe olduğu varsayılmıştır, dosya yolunu kendinize göre uyarlayın, resim sayfanızdaki resim isimlerini getir butonuna tıkladıktan sonra prg sayfanızda açılan kutudan istediğiniz resmi (numarayı) seçmek veya girmek suretiyle resimleriniz gelecektir.

 

[tiger3156]

sağol arkadaşım bu işimi görür süpersin