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
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"