Completare data automat

Informatii despre cum se utilizeaza Microsoft Excel 2003. Calcule, Formule, Functii, Tabele pivot, Analiza datelor, etc
cristian.laur
Mesaje: 5
Membru din: Sâm Mai 19, 2012 9:20 am

Completare data automat

Mesaj de cristian.laur » Sâm Mai 19, 2012 10:05 am

Am un fisier in care in anumite celula trebuie sa completez date despre un client. Cum fac sa imi apara intr-o celula alaturata data completarii datelor automat.

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

Re: Completare data automat

Mesaj de IPP » Sâm Mai 19, 2012 10:46 am

Buna ziua

In principiu, completarea automata si conditionata a unei celule in functie de valoarea din alta celula se face folosind functia IF.

Daca nu aveti undeva in fisier stocata data calendaristica dorita, ceea ce vreti sa faceti nu cred ca se poate face fara macro.

Poate reveniti cu precizari si cu un fisier exemplu

IP

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

Re: Completare data automat

Mesaj de IPP » Sâm Mai 19, 2012 12:05 pm

Buna ziua

Atasat aveti spre testare un fisier in care am folosit macro.
Astfel, completand orice celula din domeniul de celule A2:A12 din Sheet1, dupa confirmarea cu Enter, in celula imediat invecinata (de pe coloana B) se va insera data curenta.
De asemenea, daca se va sterge continutul unei celule se va sterge si eventuala informatie din celula alaturata.

Pentru testare: deschideti fisierul atasat, activati macro, scrieti ceva intr-o celula aflata in domeniul de celule amintit mai sus.

Atentie! Orice eventuala informatie aflata in celula alaturata celei in care scrieti va fi suprascrisa definitiv.
Tipul de eveniment si codul ca atare va da eroare daca incercati sa completati/stergeti continutul mai multor celule in acelasi timp.

IP
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.

cristian.laur
Mesaje: 5
Membru din: Sâm Mai 19, 2012 9:20 am

Re: Completare data automat

Mesaj de cristian.laur » Vin Iun 01, 2012 10:21 pm

multumesc mult

catalinho
Mesaje: 188
Membru din: Dum Feb 21, 2010 11:30 am

Re: Completare data automat

Mesaj de catalinho » Sâm Dec 15, 2012 9:36 pm

salut,

ce modificare este necesara in cod pentru schimba coloana unde doresti sa-ti afiseze data?

de ex as dori sa introduc datele in coloana C si sa introduca data respectiva in coloana a.

multumesc,
Catalin

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

Re: Completare data automat

Mesaj de IPP » Sâm Dec 15, 2012 9:59 pm

Buna seara

Pornind de la exemplul meu anterior, pentru domeniul de celule C2:C12 codul ar arata astfel:

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) = Date
    End If
    
End If

End Sub
Dvs. editati in cod cat considerati necesar dar nu recomand folosirea unui astfel de cod pe intreaga coloana.

IP

catalinho
Mesaje: 188
Membru din: Dum Feb 21, 2010 11:30 am

Re: Completare data automat

Mesaj de catalinho » Sâm Dec 15, 2012 10:35 pm

An inteles,

Modific offset-ul -daca e cu minus numara in stanga range-ului iar pt o valoare pozitiva numara din dreapta range-ului

Ms mult.

bvlucretiu
Mesaje: 306
Membru din: Sâm Mai 22, 2010 8:29 am
Localitate: Oradea
Contact:

Re: Completare data automat

Mesaj de bvlucretiu » Dum Dec 16, 2012 9:26 am

Bună!
Am în coloana ”B” să-mi afișeze data în momentul când inserez ceva în coloana ”A”, dar doresc să am în plus tot în aceeași foaie să-mi afișeze data în coloana ”E” atunci când modific coloana ”D”, am copiat încă o dată codul cu modificările respective dar îmi dă eroare!
Ce modificări trebuie să fac în cod?
Fii bun, dar fereşte-te să creadă lumea că eşti numai bun !
~ Nicolae Iorga ~

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

Re: Completare data automat

Mesaj de IPP » Dum Dec 16, 2012 9:52 am

Buna ziua

Tot pornind de la exemplul meu:

Cod: Selectaţi tot

Private Sub Worksheet_Change(ByVal Target As Range)
    
If Not Intersect(Target, Range("A2:A12")) Is Nothing Then

    If Len(Target) = 0 Then
     Target.Offset(0, 1) = ""
        Else
     Target.Offset(0, 1) = Date
    End If
 
End If

If Not Intersect(Target, Range("D2:D12")) Is Nothing Then

    If Len(Target) = 0 Then
     Target.Offset(0, 1) = ""
        Else
     Target.Offset(0, 1) = Date
    End If
 
End If
End Sub
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.

catalinho
Mesaje: 188
Membru din: Dum Feb 21, 2010 11:30 am

Re: Completare data automat

Mesaj de catalinho » Dum Dec 16, 2012 7:38 pm

revin si eu cu o intrebare:D

m-ar interesa cu ce as putea inlocui "date" pentru a-mi afisa user-ul de logare la calculator.

multumesc,

Scrie răspuns

Înapoi la “Intrebari despre Excel 2003”