[ zage @ 20.08.2012. 15:45 ] @
Pozdrav svima....
Stvar je sledeca.Recimo imam jedan Excel Fajl u kome konstantno upusujem i menjam podatke svakodnevno po nekoliko puta,isti taj fajl koristi mi kao baza podataka.Primer kako da uradim posle obavljenog upisa kada pritisnem na dugme ,,save,, da mi automatski paralelno sacuva podatke u originalnom fajlu(nesto kao normalna stvar ) a ujedno da taj isti fajl snimi pod istim nazivom sa momentalnom datumom i vremenu u sasvim drugi Folder ( Folder gde bi se snimali i sacuvali svi excel fajlovi sa zadatim datumima i vremenima kada je postupak snimanja obavljen...nesto kao bazu podataka za nedaj boze)

Pozdrav
[ pera68 @ 21.08.2012. 11:28 ] @
Sub izvestaj()
Dim adresa As String
Dim fascikla As String
adresa = "C:\Orders\"
fascikla = Dir(adresa, vbDirectory)
If (fascikla = "") Then MkDir (adresa)
ActiveWorkbook.SaveCopyAs adresa & ActiveWorkbook.Name & " " & Format(Now(), "yyyy.mm.dd_hh.mm") & ".xls"
ActiveWorkbook.Save
End Sub