Excel, cella con data automatica ad ogni modifica file

[DERED]

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

[ricky53]

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?

[DERED]

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

[ricky53]

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

[DERED]

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

[DERED]

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 quindi aspetto con pazienza
una tua risposta

Grazie Antonio

[DERED]

Questo è quello che mi serve

[ricky53]

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

[DERED]

Ciao,
proprio al VOLO ... devo scappareeeee ...
[/code]

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

Ti ringrazio per la tua disponibiltà .

Ciao Antonio.

[ricky53]

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

Alla prossima.