Sorgu için arama sonuçları: copyfile

...Set fso = VBA.CreateObject("Scripting.FileSystemObject") With Application.FileDialog(msoFileDialogFilePicker) .Title = "Dosya Seçiniz" If .Show = True Then dosya = .SelectedItems(1) End If End With fso.CopyFile dosya, ThisWorkbook.Path & "\Resim Dosyaları\" End Sub

...= "C:\YEDEK\" & Yedek_Dosya_Adı ThisWorkbook.Save On Error Resume Next If Dir("C:\YEDEK\") = "" Then MkDir "C:\YEDEK\" DosyaSistemi.CopyFile Aktif_Dosya_Adı, Kayıt_Yeri MsgBox "Dosyanız aşağıdaki isimle yedeklenmiştir." & Chr(10) & Kayıt_Yeri, vbInformation End Sub

Çok teşekkür ederim Korhan hocam zihnine sağlık sağolasın

...& "*.*") End If If Dosya <> "" Then If FSO.FileExists(Klasor_1 & Dosya) = True Then FSO.CopyFile Source:=Klasor_1 & Dosya, Destination:=Klasor_3 Cells(X, "A").Interior.ColorIndex = 4 Say = Say + 1...

Korhan hocam makroyu denedim next satırında hata verdi sanırım End İf eksikti onu ekledim makro hata vermeden çalıştı. Ancak dosya olduğu halde kopyalama yapmadı, Kopyalanacak dosya bulunamadı uyarısı verdi. İsterseniz örnek dosya paylaşabilirim.

...= Trim(Cells(X, "A").Value) If Dosya <> "" Then If FSO.FileExists(Klasor_1 & Dosya) = True Then FSO.CopyFile Source:=Klasor_1 & Dosya, Destination:=Klasor_3 Cells(X, "A").Interior.ColorIndex = 4 Say = Say + 1...

Korhan Hocam A Sütununa deneme amaçlı 2 adet TC kimlik numarası yazıp (Bu TC kimlik numarası ile isimlendirilmiş dosyalardan biri GKK_PDF diğeri DENEME klasörünün içinde) makroyu çalıştırdığımda GKK_PDF klasöründeki dosyayı bulup KLASOR1 isimli klasöre kopyaladı ancak DENEME isimli klasördeki...

...'dsy = Trim(Cells(i, "A").Value) & ".pdf" 'sadece tc kimlik no If A.FileExists(Klas1 & dsy) = True Then A.copyFile Source:=Klas1 & dsy, Destination:=Klas3 & "\" ' PDF KOPYALAMA Cells(i, "A").Interior.ColorIndex = 4 Else...

..."A").Value) & "*.*", vbDirectory) 'dsy = Trim(Cells(i, "A").Value) & ".pdf" 'sadece tc kimlik no If A.FileExists(Klas1 & dsy) = True Then A.copyFile Source:=Klas1 & dsy, Destination:=Klas2 & "\" ' PDF KOPYALAMA Cells(i, "A").Interior.ColorIndex = 4 Else Cells(i, "A").Interior.ColorIndex = 3...

teşekkürler Hocam iyi akşamalar.

...= False Set flk = CreateObject("Scripting.FileSystemObject") klasor = ThisWorkbook.Path fName = "abc1234" MyPath = ThisWorkbook.Path & "\Rapor\" Kayıt_Yeri = MyPath & fName & ".xls" ActiveWorkbook.Save flk.CopyFile ThisWorkbook.FullName, Kayıt_Yeri End Sub Kodları ile deneyin. İyi çalışmalar.

Merhaba üstadım 1 den fazla dosya almak için ayni kodu nasıl kullanacağını bilirim?

dalgalikur üstadım, çok çok teşekkür ediyorum, harika oldu şimdi. Sağlıcakla kalın

Merhaba. Aşağıdaki gibi yazın. ds.CopyFile thisworkbook.fullname, _ ThisWorkbook.Path & "\" & "EXPENCES_yedek.xlsm"

...iyi çalışıyor. Code: Sub Dosya_Kopyala() Dim ds Set ds = CreateObject("Scripting.FileSystemObject") ActiveWorkbook.Save ds.CopyFile "C:\Users\central\EXPENCES.xlsm", _ ThisWorkbook.Path & "\" & "EXPENCES_yedek.xlsm" End Sub ama bu satırda dosyanın adını değil de...

Yedekleme kodları için teşekkürler

...almak istiyor musun?", vbInformation + vbYesNo, "DURUM") = vbYes Then Dosya_Adi = Yol & Application.PathSeparator & Replace(Now, ":", "_") & "-" & ThisWorkbook.Name FSO.CopyFile ThisWorkbook.FullName, Dosya_Adi End If Set Klasor = Nothing Set FSO = Nothing End Sub

..."D:\YEDEKLER" End If If ThisWorkbook.Path = "D:\YEDEKLER" Then Exit Sub If MsgBox("Dosyanın yedeğini almak istiyor musun?", vbInformation + vbYesNo, "DURUM") = vbYes Then yol = "D:\YEDEKLER\" & Replace(Now, ":", "_") & "-" & ThisWorkbook.Name ds.CopyFile ThisWorkbook.FullName, yol End If End Sub