streepjes kode

[belcitas]

Ik heb een simpel programma gekregen om met 1 de baromzet bij te houden
alleen zit ik met het probleem dat elke keer als ik 1 wil toevoegen bij een bestaand aantal dat hij eerst alles verwijdert wat niet de bedoeling is
kan iemand mij helpen dit op te lossen
bijgaand voorbeeld

bij voorbaat mijn dank

 

[jverkerk]

Eerst op de F2 toets drukken.
Of deze gebruiken.
Ik vraag mij meer af hoe het berekend wordt.
Als iemand mij een uitleg kan geven?

 

[AD1957]

Zie de verborgen rijen.
Misschien is bijgevoegd bestand een optie.
Zou ook nog met een inputbox kunnen.

 

[jverkerk]

Die had ik even gemist Ad.
Groetjes

 

[belcitas]

streepjeskode

Dank jullie wel
ik denk dat ik er zo wel uitkom

 

[AD1957]

of met een inputbox

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("C4:L23")) Is Nothing And Target.Count = 1 Then
    Cancel = True
    Target.Value = Application.InputBox("voor toe te voegen aantal in", "consumptie", , , , , , 1) + Target.Value
End If
End Sub

 

[edmoor]

Ik zie in dat document geen streepjescode.

 

[AD1957]

4 pils 4 streepjes
Naam van de topic is inderdaad een beetje vreemd.

 

[HSV]

Of invoeren in dezelfde cel.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim nieuw As Long
If Not Intersect(Target, Range("C4:L23")) Is Nothing And Target.Count = 1 Then
 Application.EnableEvents = False
  nieuw = Target.Value
  Application.Undo
  Target.Value = Target + nieuw
Application.EnableEvents = True
End If
End Sub