Ik heb een code, die je achter je worksheet moet plakken.
De code wordt uitgevoerd zodra je in kolom A een waarde hebt geplaatst.
Het is wel zaak dat je de formule in B doortrekt naar beneden, zo ook de nullen in C en D
De formule in B is ook aangepast:
Code:
=ALS(AANTAL(E1)=1;SOM('1'!1:1)-(A1+B1);"")
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If Target.Column = 1 Then
Target.copy
Target.Offset(, 1).End(xlToRight).Offset(0, 1).PasteSpecial
Target.Clear
Application.CutCopyMode = True
End If
End If
End Sub
Dit houd wel in dat je de module moet verwijderen, en dus ook de drukknop.
bucky47
Favorieten/bladwijzers