+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Exceldeki Veriye Göre Tek Bir Fotoğrafı İsimlendirip Çoğaltmak (/konu-exceldeki-veriye-gore-tek-bir-fotografi-isimlendirip-cogaltmak.html)
RE: Exceldeki Veriye Göre Tek Bir Fotoğrafı İsimlendirip Çoğaltmak - berduş - 15/03/2021
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
RE: Exceldeki Veriye Göre Tek Bir Fotoğrafı İsimlendirip Çoğaltmak - enginbeyy - 15/03/2021
(15/03/2021, 11:18)berduş yazdı: abc.xlsm
hocam bu fotograf mı
RE: Exceldeki Veriye Göre Tek Bir Fotoğrafı İsimlendirip Çoğaltmak - berduş - 15/03/2021
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"RE: Exceldeki Veriye Göre Tek Bir Fotoğrafı İsimlendirip Çoğaltmak - enginbeyy - 15/03/2021
(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.
RE: Exceldeki Veriye Göre Tek Bir Fotoğrafı İsimlendirip Çoğaltmak - berduş - 15/03/2021
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"RE: Exceldeki Veriye Göre Tek Bir Fotoğrafı İsimlendirip Çoğaltmak - enginbeyy - 15/03/2021
hocam bu hatayı veriyor
[img]