Kodda sadece dosya adresi var dosya adı yok ki ayrica dosya yolu metinsel ifadedir dolayısıyla tırnak içinde olmali
FileCopy "C:\Users\Desktop\SD\abc.xlsm","C:\Users\Desktop\deneme" & Ahucredegeri & "abx.xlsm" gibi

(15/03/2021, 11:18)berduş yazdı: abc.xlsm

hocam bu fotograf mı

yalnız dosyanızı indirip inceledim de bir şey anlamadım hangi resmi neye göre hangi satırdaki veriyle kopyalayacağım?
ayrıca kopyalama nasıl olacak ? bir butona basınca mı?

FileCopy ThisWorkbook.Path & "\fotograf\kamera.jfif", ThisWorkbook.Path & "\yeni fotografların aktarılacagı yer\" & Sheet1.Cells(1, 1) & "kamera.jfif"

(15/03/2021, 13:06)berduş yazdı: hangi resmi neye göre hangi satırdaki veriyle kopyalayacağım?

hocam resim sadece1 tane ve bu resmi a sutunundaki verilere göre adlandırıp çoğaltmak istiyorum.

SonStr = Worksheets("Sayfa1").Cells(Rows.Count, "A").End(xlUp).Row

    For x = 1 To SonStr

        FileCopy ThisWorkbook.Path & "\fotograf\kamera.jfif", ThisWorkbook.Path & "\yeni fotografların aktarılacagı yer\" & Sheet1.Cells(x, 1) & "kamera.jfif"

    Next x

MsgBox "bitti"

hocam bu hatayı veriyor

[img][/img]