excel ismi seçince otomatik vesikalık resmi gelmesi

[asiiiruzgar]

Merhaba Arkadaşlar Ekte Göndermiş olduğum dosyayı incelerseniz daha iyi anlarsınız ben daha önce yapmıştım ama yapmış olduğum makroyu kaybettim şimdikte bir türlü beceremedim bir yerde hata var ama bulamadım
ben excelde kişinin adını seçince otomatik tüm bilgileri geliyor ama
resimininde gelmesini istiyorum makroları bi incelerseniz iyi olur
lütfen bana yardımcı olun acil... çünkü....
şimdiden teşekkürler..... ekteki dosya zipsiz dir xls.
ekteki dosya son hali ile değişmiştir 1 den 4 kadar güzel çalışıyor ama 5 kişiyi seçtiğim an gene 1 ci kişideki resmi koyuyor ben 5 ci remi koymasını istiyorum.....
TEŞEKKÜR EDERİM İLGİNİZE KONU KAPATILMIŞTIR....... SORUN ÇÖZÜLMÜŞTÜR.... SON HALİYLE RESİMSİZ BİR ŞEKİLDE BURDADIR..

 

[hamitcan]

Verdiğiniz bilgiler içinde gerçek bilgiler var mı ? Varsa, lütfen eki değiştirin.

 

[Zeki Gürsoy]

Sub Test()
Dim shp As Shape

With Sheets("uye kayit defteri")
    For i = 1 To .Shapes.Count
        If .Shapes(i).Type = 13 Then .Shapes(i).Delete
    Next
    
    Set shp = Sheets("resimler").Shapes("Resim " & [p1].Value)
    
    shp.Copy
    .Range("B8").PasteSpecial
    .Range("B8").Select
End With

Set shp = Nothing

End Sub

 

[asiiiruzgar]

teşekkür ederim vermiş olduğunuz kodu yazdım ama olmadı istediğim gibi ben 1 den 250 kadar değişik isimler olacak ve 1 nci kişiyi seçtiğim zaman 1 . resim gelecek 2. resmi seçtiğim zaman 2 ci resmi seçecek ör. 100 kişiyi seçtim sıra no 100 o zamanda resim kısmında 100 resmi gösterecek...
bu arada bilgilerin gerçekle alakası yoktur.. saygılar....

 

[Zeki Gürsoy]

Ekli dosyayı inceleyin...

 

[asiiiruzgar]

ilk mesajımı değiştirdim sorun var gene bir bakarsanız zeki bey
ilginize teşekkürler

 

[LCexcel]

hocam benim anladıgım ilk 4 fotografın tanımı resim1,2,3,4 ancak sonrakiler picture 9.10.11 gibi ancak macro da resim diye tanımlanmış oyuzden ilk 4 resmi açıyor picture'lara gelince de hata veriyor.

 

[asiiiruzgar]

tamam hocam sorunu buldum ve çok güzel çalışıyor pictureleri düzelttim ve oldu teşekkürler şimdidedn ilginize