Barkodlu Zimmet FORMU

[ecaparo]

Merhaba Ekteki dosyamda personele günlük sayaç zimmeti yapıyoruz yanlız yapılan zimmetleri personel ismi ve tarih olarak bi klasöre kaydetmesini yapamadım. yani şu şekilde
forma girdigim verileri butona basınca c: de bir klasöre tarih ve isim olarak kaydedecek ve yazdırıp tekrar form temizlenip başka personele geçmem gerekli yardımcı olursanız sevinirim.

 

[ecaparo]

yardım lutfen

 

[kemal turan]

Merhaba,
Aşağıdaki kodu uygulayın, veya dosyayı kullanın.
D sürücüsüne sayaç arşivi diye bir klasör açar, A4 hücresindeki kişi adı ve tarih adlı çalışma kitabı olarak kaydeder.
Kolay gelsin

Sub YAZDIRKAYDET()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    
Set ds = CreateObject("Scripting.FileSystemObject")
ThisWorkbook.Save
If ds.FolderExists("D:\SAYAÇ ARŞİV") = False Then
ds.CreateFolder "D:\SAYAÇ ARŞİV"
End If
If ThisWorkbook.Path = "D:\SAYAÇ ARŞİV" Then Exit Sub
yol = "D:\SAYAÇ ARŞİV\" & Replace(Range("A4").Value & Now, ":", "_") & "-" & ThisWorkbook.Name
ds.CopyFile ThisWorkbook.FullName, yol
MsgBox "dosya yedekleme yapıldı"
Range("A4:P50").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-12
    Range("A4:G4").Select
End Sub

 

[kemal turan]

yardım lutfen

:???::???:

 

[ecaparo]

çok tesekkurler
allah razı olsun