Getal uit cel optellen bij andere "totaal" cel.

[bgoo]

Hey mensen,

Ik heb een crediteurenbon voor een vereniging. Stel er wordt een biertje besteld door meneer X, dan moeten we nu het "aantal bier van die persoon voor de maand Juli" elke keer handmatig aanpassen (dus van 45, 50 maken etc.) en dit zorgt af en toe voor fouten.

Wat ik wil is een andere cel "bestelling", waar je dan bijvoorbeeld 2 intypt en op enter drukt. Vervolgens wordt die 2 dan opgeteld bij het totale aantal..

Ik heb iets met cirkelverwijzing geprobeerd maar dat is helaast niet gelukt.

Groet

 

[Roncancio]

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
    If .Column = 3 And IsNumeric(.Value) Then .Offset(0, -1).Value = .Offset(0, -1).Value + .Value
End With
    
End Sub

Als in de C-kolom een getal wordt ingevoerd dan wordt dit geval opgeteld bij de B-kolom van dezelfde regel.

Met vriendelijke groet,


Roncancio

 

[bgoo]

Super! Alleen ik wil dat het van C bij de D cel optelt.
En hoe zorg ik dat deze macro het doet? Of is macro maken al goed?

Heel erg bedankt!

 

[bgoo]

Oh super ik heb het al trouwens!
Nu ga ik het je nog 1 stapje moeilijker proberen te maken haha.

Het zou ook fijn zijn als het ingevoerde getal dan verdween, nadat hij is opgeteld bij het totaal, als je snapt wat ik bedoel.

 

[Roncancio]

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
    If .Column = 3 And .Value <> "" And IsNumeric(.Value) Then
        .Offset(0, 1).Value = .Offset(0, 1).Value + .Value
        .Value = ""
    End If
End With
    
End Sub

Met vriendelijke groet,


Roncancio