Excel :: Francesco
Pubblicato da Alexsandra su Novembre 11, 2007
Questa sezione è riservata al problema esposto da Francesco prego gli altri utenti di postare quì consigli, suggerimenti esempi ma non altre problematiche…. Grazie ••• Ritorna alla pagina precedente •••
Questo è il quesito posto:
Come faccio ad aggiornare la data visualizzata in una cella specifica ogni qual volta che si scrive in una cella qualsiasi di un gruppo di celle.
La data deve rimanere visibile fino alla successiva modifica di una cella delc gruppo.
bert01980 detto
per Francesco:
una soluzione può essere questa(artigianale)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
Dim Rng2 As Range
Dim rCell As Range
Set Rng = Me.Range(”A1:A10 “)
Set Rng2 = Intersect(Rng, Target)
If Not Rng2 Is Nothing Then
On Error GoTo XIT
Application.EnableEvents = False
For Each rCell In Rng2.Cells
With rCell
If IsNumeric(.Value) Then
Me.Range(”B1″).Value = Date
End If
End With
Next rCell
End If
XIT:
Application.EnableEvents = True
End Sub
cambia il range A1:A10 con quello che ti serve e B1 è la destinazione della data