Voorraad beheer in hoeveelheid en percentage ingeven

[WMZ2020]

In de bijlage staat een voorbeeldje van voorraadbeheer, nu kan ik wel mijn voorraad aanpassen wanneer ik het percentage wijzig.
Maar is het mogelijk om het zo op te zetten,dat ik de hoeveelheid kan aanpassen en dan het percentage meegaat, en ook wanneer ik b.v. het percentage ingeef de voorraad wordt aangepast?

Dus ongeacht wat er wordt gewijzigd, percentage of werkelijke hoeveelheid dat het beide mogelijk is??

 

[JEC.]

Ja als je deze achter je werkblad module zet

Private Sub Worksheet_Change(ByVal Target As Range)
 Application.EnableEvents = False
 If Not Intersect(Target, Me.ListObjects(1).DataBodyRange) Is Nothing And Target.Count = 1 Then
   Select Case Target.Column
      Case 8: Target.Offset(, 1).Value = Target.Value / Target.Offset(, -2).Value
      Case 9: Target.Offset(, -1).Value = Target.Offset(, -3).Value * Target.Value
   End Select
 End If
 Application.EnableEvents = True
End Sub