Condividi:        

Excel, cella con data automatica ad ogni modifica file

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Excel, cella con data automatica ad ogni modifica file

Postdi DERED » 22/10/13 13:51

Salve,
mi sono appena iscritto e leggendo nei vecchi topic ho trovato questo "Excel, cella con data automatica ad ogni modifica file"
le spiegazioni sono tutte esaustive e "Anthony47" ha dato una soluzione che per mè è ottima.

Ora il problema è che questa soluzione è applicabile solo per un "Foglio.." mentre a mè serve all'interno del "Foglio" su di una "riga"
e quindi ogni modifica fatta su un intevallo di celle (ese. B2:G2 e anche B3:G3 e anche B4:G4 ecc.) mi restituisce in un'altra cella il nome utente e data.

Non sò se sia possibile quindi attendo fiducioso ;)

un grazie anticipato.

DERED
WIN 7 Office 2010
Avatar utente
DERED
Utente Junior
 
Post: 15
Iscritto il: 22/10/13 12:03

Sponsor
 

Re: Excel, cella con data automatica ad ogni modifica file

Postdi ricky53 » 22/10/13 14:05

Ciao,
prima di tutto benvenuto nel nostro forum.

Puoi riportare quanto hai visto nell'intervento risolto da Anthony: ci sarà utile per arrivare alla soluzione del tuo quesito.


Riepilogo per vedere se ho capito bene la tua esigenza:
1. hai, nel "Foglio1" un intervallo di celle "B2:Gnn" dove "nn" è un numero che stabilisci tu
2. tu vuoi che ad ogni variazione di una qualunque cella di questo intervallo venga riportato in un altro foglio (ipotizziamo il "Foglio2"):
a) in colonna"A" chi ha fatto la modifica,
b) in "B" quando è stata fatta la modifica,

aggiungo io
c) in "C" quale cella è stata modificata

E' questo ciò che ti occorre?
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Excel, cella con data automatica ad ogni modifica file

Postdi DERED » 22/10/13 15:10

Ciao grazie per il benvenuto, di seguito il post di Anthony47.....

Private Sub Worksheet_Change(ByVal Target As Range)
Dim LogNum As Integer
CheckArea = "A2:C10" '<<< Area da tenere sotto controllo
Track = "Z1" '<<< Cella dove scrive data/Ora
LogNum = 300 '<< N° di blocchi che si conserveranno
'
If Application.Intersect(Target, Range(CheckArea)) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Range(Track).Offset(Range(Track).Value * 2 + 1) <> Environ("UserName") Then
Range(Track).Value = (Range(Track).Value + 1) Mod LogNum
End If
Range(Track).Offset(Range(Track).Value * 2 + 1) = Environ("userName")
Range(Track).Offset(Range(Track).Value * 2 + 2) = Now()
Range(Track).Offset(Range(Track).Value * 2 + 3).Range("A1:A2").Clear
Application.EnableEvents = True
End Sub


Qui vedi come "dovrebbe" funzionare ogni riga un risultato

Grazie
http://i1256.photobucket.com/albums/ii495/I_DERED_I/Immagine008_zpsad500751.png
WIN 7 Office 2010
Avatar utente
DERED
Utente Junior
 
Post: 15
Iscritto il: 22/10/13 12:03

Re: Excel, cella con data automatica ad ogni modifica file

Postdi ricky53 » 22/10/13 15:36

Ciao,
in attesa avevo scritto quanto segue:
Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
    Intervallo = "B2:G21" ' <<====== QUI devi i nserire il tuo intervallo
    If Not Intersect(Range(Intervallo), Target) Is Nothing Then
        Application.EnableEvents = False
        Set Sh_A = Sheets("Foglio2") ' <<===== Questo è il foglio sul quale vengono scritti i dati degli aggiornamenti effettuati
        UR = Sh_A.Range("A" & Rows.Count).End(xlUp).Row + 1
        Sh_A.Cells(UR, 1) = Environ("UserName")
        Sh_A.Cells(UR, 2) = Date
        Sh_A.Cells(UR, 2).HorizontalAlignment = xlCenter
        Sh_A.Cells(UR, 3) = Target.Address(0, 0)
        Application.EnableEvents = True
    End If
End Sub

Copialo nel" Foglio1"
Gli aggiornamenti vengono riportati nel "Foglio2", questa scelta per pulizia di gestione ... se non ti piace si può cambiare ma io la consiglio
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Excel, cella con data automatica ad ogni modifica file

Postdi DERED » 24/10/13 09:15

ciao ricky53 e grazie per la risposta/soluzione, :)
ma è possibile far scrivere NOME - DATA e ORA nello stesso Foglio1?
se è troppo complicato tengo la soluzione 1 che è comunque ottima.

Grazie Antonio ;)
WIN 7 Office 2010
Avatar utente
DERED
Utente Junior
 
Post: 15
Iscritto il: 22/10/13 12:03

Re: Excel, cella con data automatica ad ogni modifica file

Postdi DERED » 24/10/13 11:29

Scusa ricky53,

Dopo molte prove mi sono accorto che mi serve necessariamente che il
risultato (nome-data-ora) venga scritto nello stesso foglio (Foglio1)

Ho provato a modificare la seconda parte del tuo codice ma ci vuole
"uno pratico" e io non lo sono :cry: quindi aspetto con pazienza
una tua risposta :roll:

Grazie Antonio
WIN 7 Office 2010
Avatar utente
DERED
Utente Junior
 
Post: 15
Iscritto il: 22/10/13 12:03

Re: Excel, cella con data automatica ad ogni modifica file

Postdi DERED » 24/10/13 14:06

Questo è quello che mi serve

Immagine
WIN 7 Office 2010
Avatar utente
DERED
Utente Junior
 
Post: 15
Iscritto il: 22/10/13 12:03

Re: Excel, cella con data automatica ad ogni modifica file

Postdi ricky53 » 24/10/13 16:59

Ciao,
proprio al VOLO ... devo scappareeeee ...

Prova questa modifica
Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
    Intervallo = "B2:G21" ' <<====== QUI devi i nserire il tuo intervallo
    If Not Intersect(Range(Intervallo), Target) Is Nothing Then
        Application.EnableEvents = False
        Riga = Target.Row
        Cells(Riga, "J") = Date
        Cells(Riga, "J").HorizontalAlignment = xlCenter
        Cells(Riga, "J").ColumnWidth = 11
        Cells(Riga, "K") = Time
        Cells(Riga, "K").HorizontalAlignment = xlCenter
        Cells(Riga, "K").ColumnWidth = 11
        Cells(Riga, "L") = Environ("UserName")
        Cells(Riga, "M") = Target.Address(0, 0)
        Application.EnableEvents = True
    End If
End Sub
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Excel, cella con data automatica ad ogni modifica file

Postdi DERED » 25/10/13 08:46

ricky53 ha scritto:Ciao,
proprio al VOLO ... devo scappareeeee ...
[/code]



Grande ricky53, e meno male che dovevi scappare, il codice è "PERFETTO" :lol:
proprio quello che mi serviva.

Ti ringrazio per la tua disponibiltà .

Ciao Antonio.
WIN 7 Office 2010
Avatar utente
DERED
Utente Junior
 
Post: 15
Iscritto il: 22/10/13 12:03

Re: Excel, cella con data automatica ad ogni modifica file

Postdi ricky53 » 25/10/13 09:22

Ciao,
grazie ma non l'avevo provato e ... forse si può migliorare ma visto che hai risolto io lascerei così le cose.

Alla prossima.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia


Torna a Applicazioni Office Windows


Topic correlati a "Excel, cella con data automatica ad ogni modifica file":


Chi c’è in linea

Visitano il forum: Nessuno e 37 ospiti