salvare conditionata
-
- Mesaje: 20
- Membru din: Dum Feb 21, 2016 10:36 pm
salvare conditionata
Buna seara,
ma poate ajuta cineva cu un cod vba de salvare a workbookului cu preluarea denumirii din celulele B2 si B3, iar calea sa fie cea din celula B1(aceasta se schimba periodic).
Multumesc!
ma poate ajuta cineva cu un cod vba de salvare a workbookului cu preluarea denumirii din celulele B2 si B3, iar calea sa fie cea din celula B1(aceasta se schimba periodic).
Multumesc!
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
Re: salvare conditionata
am salvat fisierul dumneavoastra(Book1) in format .xlsb
(sau il salvati .xlsm daca va estemai la indemana)
In VBA Editor, am introdus urmatorul cod ca eveniment pentru obiectul ThisWorkbook (in fereastra Project Explorer dati dublu click pe obiectul ThisWorkbook si introduceti codul)
Daca doriti ca fisierul pe care il salvati sa aiba extensia .xlsx, in loc de xlExcel12 scrieti xlOpenXMLWorkbook
(sau il salvati .xlsm daca va estemai la indemana)
In VBA Editor, am introdus urmatorul cod ca eveniment pentru obiectul ThisWorkbook (in fereastra Project Explorer dati dublu click pe obiectul ThisWorkbook si introduceti codul)
Cod: Selectaţi tot
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.SaveAs Filename:=Sheet1.Cells(1, 2).Value & "\" & Sheet1.Cells(2, 2).Value & Sheet1.Cells(3, 2).Value, FileFormat:=xlExcel12
End Sub
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
D. Tanase
MCT, MCTS
MOS Master Instructor
MCT, MCTS
MOS Master Instructor