cella con data automatica ad ogni modifica file LOOP

[Omocaig]

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

[Anthony47]

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