Proc mi toto makro nefunguje v Exelu 2013
Napsal: 20 dub 2015 10:14
Dobrý den nize uvedene makro mi fungovalo v Exelu 2010 a pri prechodu na Exel 2013 nefunguje. Nevite kde by mohla byt chyba ?
Dekuji Kment
Sub Ulozeni_dokumentu()
Application.ScreenUpdating = False
jmeno = Range("C6")
ActiveWorkbook.SaveAs Filename:="\\192.168.2.248\zlutysanon_vaclavak\Zaměstnanci - seznam\" & jmeno
MsgBox " Prijimaci karta pracovnika " & jmeno & " byla uložena. Děkujeme "
Application.DisplayAlerts = False
Application.Quit
Application.ScreenUpdating = True
End Sub
Dekuji Kment
Sub Ulozeni_dokumentu()
Application.ScreenUpdating = False
jmeno = Range("C6")
ActiveWorkbook.SaveAs Filename:="\\192.168.2.248\zlutysanon_vaclavak\Zaměstnanci - seznam\" & jmeno
MsgBox " Prijimaci karta pracovnika " & jmeno & " byla uložena. Děkujeme "
Application.DisplayAlerts = False
Application.Quit
Application.ScreenUpdating = True
End Sub