Kasseapparats celle

sæt denne i arkets modul, jeg går ud fra at du taster ind i C kolonnen

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 And Target.Row < 100 Then ' indtastning i C kolonnen, ned til række 100
        Target.Offset(0, -1) = Target.Offset(0, -1) + Target
        Target = 0
    End If
End Sub

Fantastisk. Det var lige det jeg ledte efter :)

Har et par ekstra små spørgsmål hvis du har lyst:

Kan man nemt få konto-tallet(B-kolonnen) til at blive rødt hvis det bliver negativt?

Hvordan sætter jeg et bestemt beløb ind på ca. 80 udvalgte rækker?
Eks. de 80 udvalgte skal have 30 kr ekstra på deres konto.

1.
"Kan man nemt få konto-tallet(B-kolonnen) til at blive rødt hvis det bliver negativt?"

se på formater på cellen, måske betinget formatering

2.
du kan du markere de celler det drejer sig om, skriv 30 og tryk CTRL + ENTER, så skrives det samme i alle de markerede celler.

og koden skal så ændres til

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 And Target.Row < 100 Then ' indtastning i C kolonnen, ned til række 100
    Dim C As Range
    For Each C In Target.Cells
        C.Offset(0, -1) = C.Offset(0, -1) + C
        C = 0
        Next
    End If
End Sub

Genialt !

Så er det vel også muligt at gøre det samme i kolonne f og i?

Så jeg har 3 input kolonner synligt på skærmen af gangen.

Det passer bedre til de knap 200 børn der har madkonto i den fritidsklub hvor jeg arbejder.

Det ville i alt fald gøre det mere overskueligt. Har bare ikke styr på koder selv. Giver gerne flere point ved ikke hvad standard er herinde?