Soru Klasörden Resim Çekme

[Rizelli3]

Merhabalar,

Elimde bir dosya var c:\ klasörü içerisinden belirli hücrelere resim çekmesi gerekiyor ancak çalışmıyor kullanılan kod ve örnek dosya aşağıdadır.
Özet: Örnek dosyada D1 hücresindeki uzantıda bulunan resmi C3 hücresinde bulunan kutu içerisine çekmesini istiyorum.
Amaç: C3 hücresindeki kutuyu farklı sayfalarda farklı kısımlara kopyalayacağım tek seferde resimlerin tamamının değişmesi.
Şimdiden yardımlarınız için teşekkürler.

Örnek dosyayı buradan indirebilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
sat = Target.Row
süt = Target.Column
If sat = 1 And süt = 3 Then
For sayfa = 1 To Sheets.Count
Set s2 = ThisWorkbook.Worksheets(Sheets(sayfa).Name)
s2.Image1.Picture = LoadPicture("")
s2.Image1.Picture = LoadPicture(Cells(1, 4))
s2.Image1.Picture = LoadPicture(Cells(1, 4))
Next sayfa
End If
End Sub

 

[Rizelli3]

Konu günceldir yardımlarınızı rica ederim.

 

[Rizelli3]

Desteklerinizi bekliyorum.

 

[Mdemir63]

Selamlar
Belki size bir fikir verebilir.

İnceleyiniz

 

[Korhan Ayhan]

Ekteki gibi deneyiniz.

Dosya isimlerinde büyük-küçük harf durumuna dikkat ediniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    sat = Target.Row
    süt = Target.Column
    If sat = 1 And süt = 3 Then
        If Dir(Cells(1, 4)) <> "" Then
            For sayfa = 1 To Sheets.Count
            Set s2 = ThisWorkbook.Worksheets(Sheets(sayfa).Name)
            s2.Image1.Picture = LoadPicture("")
            s2.Image1.Picture = LoadPicture(Cells(1, 4))
            Next sayfa
        Else
            Sheets("Operator").Image1.Picture = LoadPicture("")
            MsgBox "Dosya bulunamadı!", vbCritical
        End If
    End If
End Sub

 

[Rizelli3]

@Mdemir63 Hocam çok teşekkür ederim ancak çalışmadı makro @Korhan Ayhan Beyin vermiş olduğu kod çalıştı günlerdir uğraştığım şey oldu sonunda ne kadar teşekkür etsem azdır değerli vaktinizi ayırıp destek oldunuz işiniz gücünüz rast gitsin inşallah hayırlı geceler.

Benim için çok önemli olduğu için üst üste mesaj atıp spam yaptım kusura bakmayın.