Ciao Enrica ed un saluto a Raffaele.
Volendo si può fare anche con il VBA
Questo codice va nel modulo del foglio "SCARICO"
vb
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ur As Long
Dim rng As Range
Dim cel As Range
If Not Intersect(Target, Range("D:D")) Is Nothing Then
ur = Sheets("MAGAZZINO").Cells(Rows.Count, 2).End(xlUp).Row
Set rng = Sheets("MAGAZZINO").Range("B2:B" & ur)
For Each cel In rng
If cel.Value = Target.Offset(0, -2).Value Then
cel.Offset(0, 2).Value = cel.Offset(0, 2).Value - Target.Value
End If
Next cel
End If
End Sub
e questo nel modulo del foglio "CARICO"
vb
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ur As Long
Dim rng As Range
Dim cel As Range
If Not Intersect(Target, Range("D:D")) Is Nothing Then
ur = Sheets("MAGAZZINO").Cells(Rows.Count, 2).End(xlUp).Row
Set rng = Sheets("MAGAZZINO").Range("B2:B" & ur)
For Each cel In rng
If cel.Value = Target.Offset(0, -2).Value Then
cel.Offset(0, 2).Value = cel.Offset(0, 2).Value + Target.Value
End If
Next cel
End If
End Sub
Ti allego il file.
[Modificato da alfrimpa 12/04/2018 11:12]
Alfredo