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"
FileCopy ThisWorkbook.Path & "\fotograf\kamera.jfif", ThisWorkbook.Path & "\yeni fotografların aktarılacagı yer\" & Sheet1.Cells(1, 1) & "kamera.jfif"