Aktualizece dat pri ulození
Napsal: 09 led 2013 14:36
Dobrý den ,
mám toto makro potřeboval bych do nej doprogramovat uložení jedné vybrané bunky, do vybraného sešitu AAA kódy číselných zámků.xlsx(souhrné tabulky).
Tato tabulka je umistnen na "\\Filesrv\zlutysanon_vaclavak\"AAA kódy číselných zámků.xlsx".
Potřebuji aby se podle čísla skřínky doplnilo kod zamku k teto skřínce po každem uložení noveho zaměstnance + přidáni tohoto jmena k císlu skříńky.
Pokud se číslo skřínky bude opakovat (jako že se lidi vyhazují a prichazeji ) takže bude - potom potřebuji aby platilo VZDY to pozdeji uložené. Viz datum nástupu.
Zasílám jak vychozi sesit (AAA Zakladaci podklady nového pracovníka verze 4.xlsm) tak koncový (AAA kódy číselných zámků.xlsx).
Jak vychozi tak koncový jsou na této adrese \\Filesrv\zlutysanon_vaclavak\(vychozi) i (koncový).
Ve vychozim sesitu v listu agenda jsem zlute oznacil zdroje.
Prosim o ukladani behem Sub ulozeni_dokument() (viz).
Sub ulozeni_dokumentu()
jmeno = Range("C4")
ActiveWorkbook.SaveAs Filename:="\\Filesrv\zlutysanon_vaclavak\" & jmeno
MsgBox " Prijimaci karta pracovnika " & jmeno & " byla uložena. Děkujeme "
Application.DisplayAlerts = False
Application.Quit
End Sub
Potom prosím o makro ,které by odeslalo sešit (AAA kódy číselných zámků.xlsx). v pravidelném intervalu (jednou týdně) na specifikované adresy. Šlo by to bez otevření tohoto sešitu ?
Snad to pujde predem dekuji.
mám toto makro potřeboval bych do nej doprogramovat uložení jedné vybrané bunky, do vybraného sešitu AAA kódy číselných zámků.xlsx(souhrné tabulky).
Tato tabulka je umistnen na "\\Filesrv\zlutysanon_vaclavak\"AAA kódy číselných zámků.xlsx".
Potřebuji aby se podle čísla skřínky doplnilo kod zamku k teto skřínce po každem uložení noveho zaměstnance + přidáni tohoto jmena k císlu skříńky.
Pokud se číslo skřínky bude opakovat (jako že se lidi vyhazují a prichazeji ) takže bude - potom potřebuji aby platilo VZDY to pozdeji uložené. Viz datum nástupu.
Zasílám jak vychozi sesit (AAA Zakladaci podklady nového pracovníka verze 4.xlsm) tak koncový (AAA kódy číselných zámků.xlsx).
Jak vychozi tak koncový jsou na této adrese \\Filesrv\zlutysanon_vaclavak\(vychozi) i (koncový).
Ve vychozim sesitu v listu agenda jsem zlute oznacil zdroje.
Prosim o ukladani behem Sub ulozeni_dokument() (viz).
Sub ulozeni_dokumentu()
jmeno = Range("C4")
ActiveWorkbook.SaveAs Filename:="\\Filesrv\zlutysanon_vaclavak\" & jmeno
MsgBox " Prijimaci karta pracovnika " & jmeno & " byla uložena. Děkujeme "
Application.DisplayAlerts = False
Application.Quit
End Sub
Potom prosím o makro ,které by odeslalo sešit (AAA kódy číselných zámků.xlsx). v pravidelném intervalu (jednou týdně) na specifikované adresy. Šlo by to bez otevření tohoto sešitu ?
Snad to pujde predem dekuji.