Completare data automat

Informatii despre cum se utilizeaza Microsoft Excel 2003. Calcule, Formule, Functii, Tabele pivot, Analiza datelor, etc
IPP
Moderator
Moderator
Mesaje: 4196
Membru din: Mie Iul 29, 2009 7:26 am
Localitate: Cluj-Napoca

Re: Completare data automat

Mesaj de 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]

dobre ionel
Mesaje: 43
Membru din: Lun Feb 16, 2015 9:30 pm

Re: Completare data automat

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

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

Re: Completare data automat

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

dobre ionel
Mesaje: 43
Membru din: Lun Feb 16, 2015 9:30 pm

Re: Completare data automat

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

Mulţumesc domnule IPP. Exact ce doream.

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

Re: Completare data automat

Mesaj de 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!

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

Re: Completare data automat

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

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

Re: Completare data automat

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

Multumesc frumos!

viorel33
Mesaje: 38
Membru din: Sâm Oct 29, 2016 10:43 am

Re: Completare data automat

Mesaj de viorel33 » Mar Ian 30, 2018 10:38 am

Buna ziua. Am incercat acest cod functioneaza dar nu se salveaza cand inchid foaia.

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

Re: Completare data automat

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

viorel33
Mesaje: 38
Membru din: Sâm Oct 29, 2016 10:43 am

Re: Completare data automat

Mesaj de viorel33 » Mar Ian 30, 2018 10:56 am

Multumesc.

Închis

Înapoi la “Intrebari despre Excel 2003”