Completare data automat
-
- Mesaje: 5
- Membru din: Sâm Mai 19, 2012 9:20 am
Completare data automat
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.
Re: Completare data automat
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
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
Re: Completare data automat
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
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.
-
- Mesaje: 5
- Membru din: Sâm Mai 19, 2012 9:20 am
Re: Completare data automat
multumesc mult
Re: Completare data automat
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
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
Re: Completare data automat
Buna seara
Pornind de la exemplul meu anterior, pentru domeniul de celule C2:C12 codul ar arata astfel:
Dvs. editati in cod cat considerati necesar dar nu recomand folosirea unui astfel de cod pe intreaga coloana.
IP
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
IP
Re: Completare data automat
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.
Modific offset-ul -daca e cu minus numara in stanga range-ului iar pt o valoare pozitiva numara din dreapta range-ului
Ms mult.
-
- Mesaje: 312
- Membru din: Sâm Mai 22, 2010 8:29 am
- Localitate: Oradea
- Contact:
Re: Completare data automat
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?
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?
Omul înțelept nu spune tot ce gândește, dar ce spune, gândește.
-Aristotel-
Filozof al Greciei Antice ~
-Aristotel-
Filozof al Greciei Antice ~
Re: Completare data automat
Buna ziua
Tot pornind de la exemplul meu:
End Sub
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
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
Re: Completare data automat
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,
m-ar interesa cu ce as putea inlocui "date" pentru a-mi afisa user-ul de logare la calculator.
multumesc,