Condividi:        

cella con data automatica ad ogni modifica file LOOP

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

cella con data automatica ad ogni modifica file LOOP

Postdi Omocaig » 18/02/20 12:55

Ciao, su un vostro thread ( viewtopic.php?t=84745 )
Ho trovato la seguente Macro:

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


La mia esigenza è ottenere:
CheckArea:"A2:G2"
Track:"H2"
E looppare il range per ogni riga fino a X righe.

Esempio:
Codice: Seleziona tutto
CheckArea1:"B2:G2"
Track1:"H2"
CheckArea2:"B3:G3"
Track2:"H3"
CheckArea3:"B4:G4"
Track3:"H4"


Sapreste indicarmi come fare evitando di scrivere 1000 righe di codice ?

Grazie Mille,
Giacomo
Xp + Office 2016 Ita
Omocaig
Utente Junior
 
Post: 93
Iscritto il: 11/05/15 15:08

Sponsor
 

Re: cella con data automatica ad ogni modifica file LOOP

Postdi Anthony47 » 19/02/20 01:55

Dunque vuoi marcare in colonna H data/ora in cui una delle colonne A:G sono state modificate...

Dovresti poter usare questa variante:
Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myC As Range
checkarea = "A2:G1000"      '<<< Area da tenere sotto controllo
track = "H"                 '<<< La COLONNA dove scrive data/Ora
'
Application.EnableEvents = False
For Each myC In Target
    If Not Application.Intersect(myC, Range(checkarea)) Is Nothing Then
        Cells(myC.Row, track).Value = Now
    End If
Next myC
Application.EnableEvents = True
End Sub


Ciao, fai sapere
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


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


Chi c’è in linea

Visitano il forum: Nessuno e 102 ospiti