Excel, cella con data automatica ad ogni modifica file

[cristianlorenzon]

Grazie Alfredo;
quello che mi hai scritto va bene per il range di selezione, ma come faccio a far apparire il risultato in celle diverse ( cioè per A:A10 su Track Z1 e per C1:C10 su Track Z2?)
Grazie

[alfrimpa]

Ciao Christian

Puoi allegare un piccolo file di esempio in modo da mostrare "sul campo" quello che vuoi fare/oggenere?

[fantina]

I poteri soprannaturali del web.....

Proprio in questi giorni stavo pensando a dove era finito il mio post su questo argomento dato che mi è appena arrivato fresco fresco un file condiviso a cui sarebbe utile applicare il meccanismo e ..... eccovi qui ....
Il web non solo ci spia i computer, ci legge anche nel cervello!

[Anthony47]

Proprio in questi giorni stavo pensando a dove era finito il mio post su questo argomento dato che mi è appena arrivato fresco fresco un file condiviso a cui sarebbe utile applicare il meccanismo e ..... eccovi qui ....

Cose che succedono solo in questo forum...

Se ho capito bene la richiesta di cristianlorenzon, bisogna modificare la macro di Worksheet_Change come questo esempio:

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
'
Application.EnableEvents = False
CheckArea = "A2:A10" '<<< Area da tenere sotto controllo
Track = "Z1" '<<< Cella dove scrive data/Ora
If Not Application.Intersect(Target, Range(CheckArea)) Is Nothing Then
    Range(Track).Value = Now()
End If
CheckArea = "B2:B10" '<<< Seconda Area da tenere sotto controllo
Track = "Z2" '<<< Cella dove scrive data/Ora
If Not Application.Intersect(Target, Range(CheckArea)) Is Nothing Then
    Range(Track).Value = Now()
End If

'eventuali altri blocchi per altre Aree

Application.EnableEvents = True
End Sub


Ciao

[fantina]

Anthony, lo so che é un macello ma si puo' aggiungere il nome della persona che ha modificato?

[Anthony47]

Ad esempio:

Codice: Seleziona tutto

If Not Application.Intersect(Target, Range(CheckArea)) Is Nothing Then
    Range(Track).Value = Now()
    Range(Track).Offset(0, 1).Value = Environ("ComputerName")
    Range(Track).Offset(0, 2).Value = Environ("USERDOMAIN")
    Range(Track).Offset(0, 3).Value = Environ("UserName")
End If


Vedi tra queste opzioni quale e' la piu' idonea per te.

Ciao

[AciGatsu]

Ciao Anthony ,
in merito a questa sub

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
CheckArea = "F2:G10" '<<< Area da tenere sotto controllo
Track = "Z1" '<<< Cella dove scrive data/Ora
If Application.Intersect(Target, Range(CheckArea)) Is Nothing Then Exit Sub
Application.EnableEvents = False
Range(Track).Value = Now()
Application.EnableEvents = True
End Sub

Volevo chiederti come facevo ad impostare una funzione dinamica invece della sub.

Ho provato a modificarla ma mi da sempre un errore.

Ti ringrazio in anticipo
AciGatsu

[alfrimpa]

Ciao AciGatsu

Perchè non provi a spiegare materialmente quello che vuoi fare e poi si vedrà se modificare la sub di Anthony (che saluto) o scrivere una function ex novo.

[AciGatsu]

Ciao AciGatsu

Perchè non provi a spiegare materialmente quello che vuoi fare e poi si vedrà se modificare la sub di Anthony (che saluto) o scrivere una function ex novo.

Ciao alfrimpa,

intanto ti ringrazio per la tua cortese risposta!

Cercherò di spiegare il mio problema in maniera più chiara possibile e ti chiedo scusa già in anticipo se non riesco !

Fondamentalmente , ho un file di 1 foglio, nel quale ho la necessità di aggiornare una data di aggiornamento, che è nello stesso foglio in un altra cella, al variare del contenuto di una o più celle di una sezione, e devo farlo per più sezioni diverse che , ovviamente , hanno la necessità di rimanere indipendenti.

Quindi cerco di spiegarmi ancora meglio con questo schemino:

Codice: Seleziona tutto

SEZIONE PRINCIPALE
                            Colonna1  Colonna 2 Colonna 3  colonna 4
Macro attività 1
 Sotto attività1       [cella11]  [cella12]   [cella 13]  [cella 14]
 Sotto attività2       [cella21]  [cella22]   [cella 23]  [cella 24]
 Sotto attività3       [cella31]  [cella32]   [cella 33]  [cella 34]
Macro attività  2
 Sotto attività4       [cella41]  [cella42]   [cella 43]  [cella 44]
 Sotto attività5       [cella51]  [cella52]   [cella 53]  [cella 54]
 Sotto attività6       [cella61]  [cella62]   [cella 63]  [cella 64]
Macro attività 3
 ecc.....                                                                             

                                                Macro attività 1 [data da aggiornare]
                                                Macro attività 2 [data da aggiornare]                                     
                                                Macro attività 3 [data da aggiornare]

In sostanza, nelle 4 colonne , per ogni macro attività, vi sono date aggiornabili, e per ogni macro attività vorrei che , ogniqualvolta
venga modificato il contenuto di una delle date, per ogni sezione, si aggiorni automaticamente la "data da aggiornare".

Spero di essermi spiegato in maniera chiara anche se dubito!

ti chiedo cortesemente, se riesci a dirmi se e come modificare la sub di prima, o come impostare l'eventuale funzione.
Grazie per tutti i consigli/ aiuti!

[alfrimpa]

Scusa Aci

Nel mio intervento precedente avevo dimenticati di dire che dovresti allegare un file di esempio con dati (non sensibili), spiegazione e risultato che vorresti ottenere (e dove) inserito manualmente.

Questo faciliterebbe molto chi volesse risponderti.

P.S. Forse è meglio che apri una nuova discussione con il tutto.

[AciGatsu]

Scusa Aci

Nel mio intervento precedente avevo dimenticati di dire che dovresti allegare un file di esempio con dati (non sensibili), spiegazione e risultato che vorresti ottenere (e dove) inserito manualmente.

Questo faciliterebbe molto chi volesse risponderti.

P.S. Forse è meglio che apri una nuova discussione con il tutto.

Ciao,

mi puoi dire come fare ad uploadare il piccolo file di esempio estrapolato?

[alfrimpa]

Devi usare un sito di file sharing tipo filedropper, dropcanvas o simili

[AciGatsu]

Devi usare un sito di file sharing tipo filedropper, dropcanvas o simili

Ecco il link da dove scaricarlo!

Grazie mille!!!

http://www.filedropper.com/nuovomicrosoftexcelworksheet

[alfrimpa]

Ciao Aci

Scusa ma in "Data Ultimo Aggiornamento Stato della macro attività" la data di quale campo deve apparire? Inizio attività teorica Inizio attività reale Fine attività teorica Fine attività reale?

[AciGatsu]

Ciao Aci

Scusa ma in "Data Ultimo Aggiornamento Stato della macro attività" la data di quale campo deve apparire? Inizio attività teorica Inizio attività reale Fine attività teorica Fine attività reale?

Ciao,

scusa non mi sono piegato bene.

In quel campo, deve esserci la data di aggiornamento della modifica di una qualunque cella , in quella sezione.

In sostanza, in una determinata sezione, se una di quelle date viene modificata, deve rimanere traccia della data in cui si effettua tale modifica, indipendentemente dalla cella in cui si è effettuata la modifica.

[alfrimpa]

Ciao Aci

Prova a vedere il file allegato dove ho inserito la macro qui sotto

http://dropcanvas.com/qv1dt

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Dim attività As String
Dim scarto As Integer
If Not Intersect(Target, Range("c4:G18")) Is Nothing Then
Select Case Target.Column
    Case Is = 3
        scarto = -1
    Case Is = 4
        scarto = -2
    Case Is = 5
        scarto = -3
    Case Is = 6
        scarto = -4
End Select
attività = Target.Offset(0, scarto).Value
 With Sheets("Foglio1").Range("k20:k24")
            Set rng = .Find(What:=attività, _
                           After:=.Cells(.Cells.Count), _
                           LookIn:=xlValues, _
                           LookAt:=xlWhole, _
                           SearchOrder:=xlByRows, _
                           SearchDirection:=xlNext, _
                           MatchCase:=False)
           If Not rng Is Nothing Then
               rng.Offset(0, -2).Value = Target.Value
           End If
   End With
End If
End Sub


Ovviamente va ampliata e completata con tutto l'elenco delle attività

[AciGatsu]

Ciao Aci

Prova a vedere il file allegato dove ho inserito la macro qui sotto

http://dropcanvas.com/qv1dt

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Dim attività As String
Dim scarto As Integer
If Not Intersect(Target, Range("c4:G18")) Is Nothing Then
Select Case Target.Column
    Case Is = 3
        scarto = -1
    Case Is = 4
        scarto = -2
    Case Is = 5
        scarto = -3
    Case Is = 6
        scarto = -4
End Select
attività = Target.Offset(0, scarto).Value
 With Sheets("Foglio1").Range("k20:k24")
            Set rng = .Find(What:=attività, _
                           After:=.Cells(.Cells.Count), _
                           LookIn:=xlValues, _
                           LookAt:=xlWhole, _
                           SearchOrder:=xlByRows, _
                           SearchDirection:=xlNext, _
                           MatchCase:=False)
           If Not rng Is Nothing Then
               rng.Offset(0, -2).Value = Target.Value
           End If
   End With
End If
End Sub


Ovviamente va ampliata e completata con tutto l'elenco delle attività

Ciao ancora,

intanto ti ringrazio davvero per la tua collaborazione.

Il mio problema, è che vorrei fosse dinamica la scelta del range , quindi è per questo che chiedevo se c'era la possibilità di crearsi da soli una funzione . Inoltre la data che deve ritornare , non è quella che si scrive nella cella , ma la data di modifica che di norma corrisponde alla data odierna.

[alfrimpa]

Per la seconda domanda basta modificare questa istruzione

Codice: Seleziona tutto

rng.Offset(0, -2).Value = Target.Value

in

Codice: Seleziona tutto

rng.Offset(0, -2).Value = Now

Non ho capito la prima.

Fai un esempio più concreto della tua situazione reale.

[alfrimpa]

Ed aggiungo cosa intendi quando dici: "vorrei che fosse dinamica la scelta del range"

[AciGatsu]

Ed aggiungo cosa intendi quando dici: "vorrei che fosse dinamica la scelta del range"

Grazie ancora per la tua risposta!

Facendo in questo modo, il range di controllo , è ovviamente deciso a priori nella subroutine, ma se dovessi aggiungere delle righe dovrei nuovamente modificare la subroutine. Se non sono io ad usare il file , e una persona aggiunge una riga questa in teoria non aggiorna, se non cambio io manualmente il range giusto?