AccessTr.neTMicrosoft ExcelExcel Cevaplanmış Soruları

Exceldeki Veriye Göre Tek Bir Fotoğrafı İsimlendirip Çoğaltmak

1 2 3
15/03/2021, 11:18

berduş

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, 12:38

enginbeyy

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

hocam bu fotograf mı
15/03/2021, 13:06

berduş

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:22

enginbeyy

(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.
15/03/2021, 13:43

berduş

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"
15/03/2021, 14:11

enginbeyy

hocam bu hatayı veriyor

[img]
[/img]
1 2 3