Una famiglia di software per fogli di calcolo Microsoft con strumenti per l'analisi, la creazione di grafici e la comunicazione dei dati.
Eccomi Mauro, ho provato il codice, ho modificato secondo il mio schema, la colonna dei totali e la cella della data e................................sei sempre unMITO.
Un ultima cosa, tu dici
> Se vuoi possiamo limitare la routine ad alcune celle e non a tutta la colonna.
qual'è la sintassi per fare questo?
Grazie, grazie, grazie e grazie ancora. Buona serata. Grande Mauro.
Questa esegue quanto chiedi solo se modifichi F3:F10. Modifica quel riferimento per le tue esigenze.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Range("F3:F10") '<<<====
If Target.Cells.Count = 1 Then
If Not Intersect(Target, rng) Is Nothing Then
If Len(Me.Range("L1").Value) = 0 Then Exit Sub
Select Case Month(Me.Range("L1").Value)
Case 1 To 3
Target.Offset(0, -4).Value = Target.Value
Case 4 To 6
Target.Offset(0, -3).Value = _
Target.Value - Target.Offset(0, -4).Value
Case 7 To 9
Target.Offset(0, -2).Value = _
Target.Value - Target.Offset(0, -4).Value _
- Target.Offset(0, -3).Value
Case 10 To 12
Target.Offset(0, -1).Value = _
Target.Value - Target.Offset(0, -4).Value _
- Target.Offset(0, -3).Value - _
Target.Offset(0, -2).Value
End Select
End If
End If
Set rng = Nothing
End Sub
--
La soluzione, il codice ed i files sono forniti *così come sono* e l’autore declina ogni responsabilità per eventuali problemi causati dalla soluzione proposta se usata impropriamente. Create e utilizzate una copia del file per le vostre prove, *prima* di utilizzare la soluzione in files importanti.
--
Mauro Gamberini - Microsoft© MVP(Excel)