Inghetare data in sheet
Inghetare data in sheet
Buna ziua si La multi ani!
Va rog sa ma ajutati la problema mea, cu o idee sau ...
in sheetul DATE iun B6 ia data automat din sistem si este transferata in sheetul FISA R5 si F54
In momentul printarii paginii 2 se salveaza fisierul .xls automat intr`o cale
dar la redeschidere document peste ceva timp, as dori ca data sa se mentina, adica in DATE B6 sa inghete acea "date now" in momentul salvarii
este posibil?
Va rog, multumesc anticipat
Va rog sa ma ajutati la problema mea, cu o idee sau ...
in sheetul DATE iun B6 ia data automat din sistem si este transferata in sheetul FISA R5 si F54
In momentul printarii paginii 2 se salveaza fisierul .xls automat intr`o cale
dar la redeschidere document peste ceva timp, as dori ca data sa se mentina, adica in DATE B6 sa inghete acea "date now" in momentul salvarii
este posibil?
Va rog, multumesc anticipat
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
-
- Mesaje: 437
- Membru din: Mar Dec 11, 2018 8:54 pm
Re: Inghetare data in sheet
La multi ani !!!
halfbebi, nu pot descarca fisierul tau acum, sa vad despre ce e vorba, sunt cu masina si ajung tarziu la hotel....dar
presupun ca celula cu data, are o formula in ea (care probabil este cu TODAY() sau NOW())
Cand se salveaza fisierul se salveaza cu acea formula si de aici actualizarea datei.
Posibila solutie:
presupunand ca data este in celula A3, atunci, inainte de a salva fisierul, transforma acea formula in valoarea ei, adica:
[a3]=[a3]
Daca nu te descurci, spune si vom rezolva.
halfbebi, nu pot descarca fisierul tau acum, sa vad despre ce e vorba, sunt cu masina si ajung tarziu la hotel....dar
presupun ca celula cu data, are o formula in ea (care probabil este cu TODAY() sau NOW())
Cand se salveaza fisierul se salveaza cu acea formula si de aici actualizarea datei.
Posibila solutie:
presupunand ca data este in celula A3, atunci, inainte de a salva fisierul, transforma acea formula in valoarea ei, adica:
[a3]=[a3]
Daca nu te descurci, spune si vom rezolva.
藍
"I fear the day that technology will surpass our human interaction. The world will have a generation of idiots."
Albert Einstein
"I fear the day that technology will surpass our human interaction. The world will have a generation of idiots."
Albert Einstein
Re: Inghetare data in sheet
-- secventa din cod
' Aici fac salvarea fisierului
Sheets("FISA").[R5] = [R5] --- aici am pus
Dim Path As String
Dim NumeFisier
NumeFisier = Range("R5").text
' Sheets("FISA").Copy
' Sheets("Date").Copy
ActiveWorkbook.SaveAs Filename:="d:\01012011\FISA Inchidere\" & "Fisa_op_inchidere_zi_" & NumeFisier & ".xls", FileFormat:=xlNormal
Application.DisplayAlerts = True
---------------
pare sa fie ok, testez zi pe zi, revin
Multumesc mult
' Aici fac salvarea fisierului
Sheets("FISA").[R5] = [R5] --- aici am pus
Dim Path As String
Dim NumeFisier
NumeFisier = Range("R5").text
' Sheets("FISA").Copy
' Sheets("Date").Copy
ActiveWorkbook.SaveAs Filename:="d:\01012011\FISA Inchidere\" & "Fisa_op_inchidere_zi_" & NumeFisier & ".xls", FileFormat:=xlNormal
Application.DisplayAlerts = True
---------------
pare sa fie ok, testez zi pe zi, revin
Multumesc mult
-
- Mesaje: 437
- Membru din: Mar Dec 11, 2018 8:54 pm
Re: Inghetare data in sheet
........
Dim Path As String
Dim NumeFisier
[c5] = [c5]
NumeFisier = Range("R5").text
ActiveWorkbook.SaveAs Filename:=........
.......
Nu este necesar
Sheets("FISA").[R5] = [R5]
deoarece esti in foaia "FISA"
idem si pentru:
Sheets("Fisa").Select
de la inceputul codului.
In general nu este necesara folosirea [b].select[/b], deoarece adresarile se pot face direct...
Dim Path As String
Dim NumeFisier
[c5] = [c5]
NumeFisier = Range("R5").text
ActiveWorkbook.SaveAs Filename:=........
.......
Nu este necesar
Sheets("FISA").[R5] = [R5]
deoarece esti in foaia "FISA"
idem si pentru:
Sheets("Fisa").Select
de la inceputul codului.
In general nu este necesara folosirea [b].select[/b], deoarece adresarile se pot face direct...
藍
"I fear the day that technology will surpass our human interaction. The world will have a generation of idiots."
Albert Einstein
"I fear the day that technology will surpass our human interaction. The world will have a generation of idiots."
Albert Einstein
Re: Inghetare data in sheet
multumesc mult
Stima
Stima