sayfada yazılı resim dosyalarının boş bir klasöre kopyalanması

[tahsinanarat]

Arkadaşlar, herkese hayırlı akşamlar; şöyle bir sorum olacak, ekte gönderdiğim resimekle adlı dosyamın sayfa1 kısmında yazılı olan stok kodları, aynı zamanda "D" sürücüsü altında bulunan "foto" adlı kalasör içerisindeki resimler ile kod numaraları eşleşmekte olup, sayfa1'de yazılı bulunan kodlara ait aynı isimdeki resimlerin boş bir klasöre göndermesini istiyorum.
Bu konuda yardımcı olacak arkadaşlarıma şimdiden teşekkür ederim. Saygılarımla. Tahsin Anarat

 

[tahsinanarat]

Sorumu anlaşılabilir bir şekilde tekrar ediyorum, a sutununda yazılı jpg uzantılı aynı klasörde bulunan resimleri başka bir klasöre kopyalamak istiyorum. Yardımlarınız için teşekkürler.

 

[Zeki Gürsoy]

Sub F_Copy()
Dim i%, src$, dest$

src = ThisWorkbook.Path & "\"
dest = "c:\boş_klasör\"

    For i = 2 To 32
        FileCopy src & Cells(i, 1) & ".jpg", _
            dest & Cells(i, 1) & ".jpg"
    Next
    
End Sub

 

[tahsinanarat]

Sn. Zeki Gürsoy, ilginize teşekkür ediyorum, ancak ben bu kodları kullanmayı beceremedim, mümkün ise örnek dosyama uyarlayıp gönderebilirmisiniz.

 

[Zeki Gürsoy]

Dosyanız ektedir..

 

[tahsinanarat]

Sn. Zeki Gürsoy olayı anladım, ilginize çok ama çok teşekkür ediyorum, gerçekten çok işime yarayacak, eline koluna sağlık. Sağolun.

 

[tahsinanarat]

Sn. Zeki Gürsoy

src = ThisWorkbook.Path & "\"

Eğer excel dosyamız resim klasörünün içinde değilde başka bir yerde olsaydı kod nasıl olmalıydı

 

[Zeki Gürsoy]

Klasörün yolunu yazmanız gerekir.

 

[tahsinanarat]

Ne yaptımsa beceremedim. Klasör açıyor ancak resimleri kopyalamıyor