Completare data automat

Informatii despre cum se utilizeaza Microsoft Excel 2003. Calcule, Formule, Functii, Tabele pivot, Analiza datelor, etc

Re: Completare data automat

Mesajde IPP » Dum Dec 16, 2012 9:55 pm

Incercati sa inlocuiti in cod Date cu Environ("username")

Cod: Selectaţi tot
Private Sub Worksheet_Change(ByVal Target As Range)
   
If Not Intersect(Target, Range("C2:C12")) Is Nothing Then

    If Len(Target) = 0 Then
     Target.Offset(0, -2) = ""
        Else
     Target.Offset(0, -2) = Environ("username")

    End If
   
End If

End Sub]
IPP
Moderator
Moderator
 
Mesaje: 3675
Membru din: Mie Iul 29, 2009 7:26 am
Localitate: Cluj-Napoca

Re: Completare data automat

Mesajde dobre ionel » Mie Noi 04, 2015 7:53 am

Bună dimineaţa. Domnule IIP, se poate modifica acest cod pentru a introduce în afară de dată şi ora, fie în aceiaşi celulă fie în una alăturată? Mulţumesc.
dobre ionel
 
Mesaje: 36
Membru din: Lun Feb 16, 2015 9:30 pm

Re: Completare data automat

Mesajde IPP » Mie Noi 04, 2015 10:37 am

Buna ziua

Pentru a introduce atat data cat si ora in aceeasi celula, inlocuiti in cod Date cu Now

Obs. In aceasta forma ora va fi completa (adica ore minute si secunde). Daca va deranjeaza vizual secundele, acest lucru se poate rezolva prin formatare.

IP
IPP
Moderator
Moderator
 
Mesaje: 3675
Membru din: Mie Iul 29, 2009 7:26 am
Localitate: Cluj-Napoca

Re: Completare data automat

Mesajde dobre ionel » Mie Noi 04, 2015 5:46 pm

Mulţumesc domnule IPP. Exact ce doream.
dobre ionel
 
Mesaje: 36
Membru din: Lun Feb 16, 2015 9:30 pm

Re: Completare data automat

Mesajde ValentinCiulei » Joi Mai 11, 2017 12:28 pm

Buna ziua,
Doar in celula alaturata se poate face sa completeze automat data? Daca eu de exemplu am de completat coloana D, nu se poate face sa imi afiseze data in coloana A?
Eu sunt interesat de o asemenea formula pentru mii de randuri in excel.
Multumesc!
ValentinCiulei
 
Mesaje: 12
Membru din: Vin Mar 06, 2015 1:03 pm

Re: Completare data automat

Mesajde IPP » Joi Mai 11, 2017 12:38 pm

Buna ziua

Se poate. Codul dvs. (plasat in editorul macro la nivelul foii dorite) ar trebui sa arate cam asa (pentru 10000 de randuri, incepand de la randul 2; editati pentru cat aveti nevoie dar evitati sa folositi pentru toate randurile)

Cod: Selectaţi tot
Private Sub Worksheet_Change(ByVal Target As Range)
   
If Not Intersect(Target, Range("D2:D10000")) Is Nothing Then

    If Len(Target) = 0 Then
     Target.Offset(0, -3) = ""
        Else
     Target.Offset(0, -3) = Date

    End If
   
End If

End Sub


IP
IPP
Moderator
Moderator
 
Mesaje: 3675
Membru din: Mie Iul 29, 2009 7:26 am
Localitate: Cluj-Napoca

Re: Completare data automat

Mesajde ValentinCiulei » Sâm Mai 13, 2017 10:53 am

Multumesc frumos!
ValentinCiulei
 
Mesaje: 12
Membru din: Vin Mar 06, 2015 1:03 pm

Re: Completare data automat

Mesajde viorel33 » Mar Ian 30, 2018 10:38 am

Buna ziua. Am incercat acest cod functioneaza dar nu se salveaza cand inchid foaia.
viorel33
 
Mesaje: 36
Membru din: Sâm Oct 29, 2016 10:43 am

Re: Completare data automat

Mesajde IPP » Mar Ian 30, 2018 10:52 am

Buna ziua

Daca, la deschiderea fisierului, nu e activat macro, codul nu va functiona
Daca veti pune codul intr-un fisier de tip .xlsx, la inchiderea fisierului nu se va salva odata cu fisierul.
Daca informatia nu e introdusa de la tastatura sau prin editare manuala a unei celule, probabil ca nu va functiona
Daca se va modifica celule care nu sunt cuprinse explicit in referintele din codul macro... nu va functiona

Codul nu contine instructiuni de salvare automata. Deci fie salvati manual cel putin la inchiderea fisierului, fie introduceti in cod o linie suplimentara: ThisWorkbook.Save

IP
IPP
Moderator
Moderator
 
Mesaje: 3675
Membru din: Mie Iul 29, 2009 7:26 am
Localitate: Cluj-Napoca

Re: Completare data automat

Mesajde viorel33 » Mar Ian 30, 2018 10:56 am

Multumesc.
viorel33
 
Mesaje: 36
Membru din: Sâm Oct 29, 2016 10:43 am

Anterior

Înapoi la Intrebari despre Excel 2003

Cine este conectat

Utilizatorii ce navighează pe acest forum: Bing [Bot] şi 5 vizitatori