Merhaba,
Excel dosyasının o günkü halini arşivlemek için bir klasörün içine kaydetmek üzere makro kaydı yaptım ama dosyayı kaydederken verdiği ismin o günün tarihi olmasını sağlayabilir miyim onu merak ediyorum. yani aşağıdaki kodda "03.06.2019" olan kısım makroyu çalıştırdığım tarihe göre revize olarak işlem yapsın istiyorum, mümkün müdür?
Sub listecekme()
'
' listecekme Macro
'
'
Sheets("YETİŞKİN").Select
Application.CutCopyMode = False
Sheets("YETİŞKİN").Copy
ChDir "C:\Users\Lenovo\Desktop\Hayvan Listeleri Arşivi"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Lenovo\Desktop\Hayvan Listeleri Arşivi\03.06.2019.xlsx", FileFormat _
:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub
Excel dosyasının o günkü halini arşivlemek için bir klasörün içine kaydetmek üzere makro kaydı yaptım ama dosyayı kaydederken verdiği ismin o günün tarihi olmasını sağlayabilir miyim onu merak ediyorum. yani aşağıdaki kodda "03.06.2019" olan kısım makroyu çalıştırdığım tarihe göre revize olarak işlem yapsın istiyorum, mümkün müdür?
Sub listecekme()
'
' listecekme Macro
'
'
Sheets("YETİŞKİN").Select
Application.CutCopyMode = False
Sheets("YETİŞKİN").Copy
ChDir "C:\Users\Lenovo\Desktop\Hayvan Listeleri Arşivi"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Lenovo\Desktop\Hayvan Listeleri Arşivi\03.06.2019.xlsx", FileFormat _
:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub
"C:\Users\Lenovo\Desktop\Hayvan Listeleri Arşivi\" & format(now(),"dd.mm.yyyy") & ".xlsx", FileFormat _
şeklinde değiştirmen yeter.
cakabo
1