Funzione che tenga conto della cronologia d'inserimento

alfrimpa, 06/03/2020 14:31:

---

Come detto in precedenza sui forum va sempre allegato un file di esempio con dati non sensibili dove si mostra inserendolo a mano il risultato desiderato.

---

Marius44, 07/03/2020 09:29:

---

Ciao
Potresti spiegare come si intendono i dati, per favore?
In col. A abbiamo un 300 - immagino sia il totale delle 3 quote
In col. B, C e D vi sono 3 nomi; in corrispondenza del primo e del secondo vi è un ok (il terzo è vuoto)
In col E, F e G abbiamo di nuovo i tre nomi; in corrispondenza del primo vi è un 100 mentre le altre due celle sono vuote.

Ora, se il 300 vuole intendersi come totale delle quota di ciascuno, allora il primo nominativo ha pagato e gli altri due no. Perchè nel secondo dovrebbe spuntare "saldato"?

Ciao,
Mario

---

Marius44, 07/03/2020 15:50:

---

Ciao
Spero tu abbia conoscenza del linguaggio VBA.
Nel Modulo di classe del Foglio interessato inserisci questa macro

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim col As Integer, i As Long
If Not Intersect(Target, Range("B:D")) Is Nothing Then
  If Target.Columns.Count > 1 Then Exit Sub
  If Target = "" Then Exit Sub
  If Target = 1 Then   'se è stato inserito 1
    Cells(Target.Row, Target.Column + 3) = Cells(Target.Row, 1) / 3 * 2 'allora metti 200
  ElseIf Target = 2 Then 'se è stato inserito 2
    Cells(Target.Row, Target.Column + 3) = "saldato" 'allora metti saldato
    If Cells(Target.Row, 2) = 1 Then col = 5
    If Cells(Target.Row, 3) = 1 Then col = 6
    If Cells(Target.Row, 4) = 1 Then col = 7
    Cells(Target.Row, col) = Cells(3, 1) / 3 'diminuisci di 100
  ElseIf Target = 3 Then 'se è stato inserito 3
    For i = 5 To 7
      Cells(Target.Row, i) = "saldato" 'in tutte le celle metti saldato
    Next i
  End If
End If
End Sub

Nelle celle dell'intervallo B:D invece di inserire ok inserisci il numero 1 o 2 oppure 3. Nelle cella dell'intervallo E:G vedrai, di volta in volta, il credito residuo ovvero "saldato".

Fai sapere. Ciao,
Mario

---