- Katılım
- 14 Haziran 2006
- Mesajlar
- 129
Aşağıdaki kod da ??? yazan yere sayfa1 D6 da ne yazıyorsa onu yazsın istiyorum.
ChDir "C:\Users\atillaciftci\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Users\atillaciftci\Desktop\ ??? .xlsx", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.Close
ChDir "C:\Users\atillaciftci\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Users\atillaciftci\Desktop\ ??? .xlsx", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.Close
