Inghetare data in sheet

Informatii despre cum se utilizeaza Microsoft Excel 2003. Calcule, Formule, Functii, Tabele pivot, Analiza datelor, etc
halfbebi
Mesaje: 154
Membru din: Mar Ian 26, 2010 10:25 am

Inghetare data in sheet

Mesaj de halfbebi » Mie Ian 06, 2021 10:02 am

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
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.

Indigo-ONE
Mesaje: 433
Membru din: Mar Dec 11, 2018 8:54 pm

Re: Inghetare data in sheet

Mesaj de Indigo-ONE » Mie Ian 06, 2021 8:31 pm

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.


"I fear the day that technology will surpass our human interaction. The world will have a generation of idiots."
Albert Einstein

halfbebi
Mesaje: 154
Membru din: Mar Ian 26, 2010 10:25 am

Re: Inghetare data in sheet

Mesaj de halfbebi » Joi Ian 07, 2021 9:30 am

-- 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

Indigo-ONE
Mesaje: 433
Membru din: Mar Dec 11, 2018 8:54 pm

Re: Inghetare data in sheet

Mesaj de Indigo-ONE » Joi Ian 07, 2021 11:13 am

........
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

halfbebi
Mesaje: 154
Membru din: Mar Ian 26, 2010 10:25 am

Re: Inghetare data in sheet

Mesaj de halfbebi » Vin Ian 08, 2021 9:24 am

multumesc mult
Stima

Scrie răspuns

Înapoi la “Intrebari despre Excel 2003”