Waarde optellen

[peerke2812]

Hallo allen,

ik heb me suf gezocht op het forum maar ik kan niets vinden over mijn probleem.
Als ik in een cel een waarde heb wil ik met een formule dat hij hem de aantal keren dat hij voorbij komt optelt,dus als ik bv 100 in type en weer verwijder moet hij op 1 uit komen doe ik dit nog 5x doe moet hij op 5 uit komen.
ik kom er niet uit
alvast bedankt.

grt
pieter :thumb:

 

[danny147]

Beste peerke2812

Ik snap je probleem een beetje.
Wat als je iets anders dan 100 typt ?

En wat bedoel je met :"dat hij hem de aantal keren dat hij voorbij komt optelt"

Dit kan enkel met VBA code gedaan worden.

Groetjes Danny. :thumb:

 

[peerke2812]

HoivDanny,

Als ik een andere waarde in type moet hij deze niet optellen
ik ben een ontzettende leek met VBA.

grt
pieter

 

[Roncancio]

Bij het wijzigen van cel A1 in 100 wordt het aantal in cel b1 met 1 verhoogd.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Address = "$A$1" Then
    If Target.Value = 100 Then Application.Evaluate("B1").Value = Range("B1").Value + 1
End If
End Sub

Met vriendelijke groet,


Roncancio

 

[peerke2812]

Hoi Roncancio

Ik weet nu niet wat ik daar nu mee moet.
Kun je me een beetje op weg helpen ?

grt
pieter:thumb:

 

[danny147]

Beste peerke2812

Zie bestandje met daarin de code van Roncancio in verwerkt.

Groetjes Danny. :thumb:

 

[Roncancio]

Hoi Roncancio

Ik weet nu niet wat ik daar nu mee moet.
Kun je me een beetje op weg helpen ?

grt
pieter:thumb:

- Rechtermuisknop op de TAbblad (óf ALT-F11)
- Ga naar Beeld- Projectverkenner (óf CTRL-R)
- Dubbelklik op de naam van het tabblad waar je de code wilt plaatsen
- Kopieer de code naar het naastgelegen veld.

Als je nog vragen hebt, dan hoor ik het wel.

Met vriendelijke groet,


Roncancio

 

[peerke2812]

Hoi Roncancio en Danny

Jaaaa dit is precies wat ik moet hebben,maar nu heb je 1 cel waar je de waarde (100) inzet.
kan je dat met aantal cellen doen,ik bedoel nu heb je hem alleen op cel A1,stel dat ik hem op cellen A1 tot A25 wil doen.
wat moet ik dan doen en met meerdere waardes

Alvast bedankt

grt
pieter :thumb::thumb::thumb::thumb:

 

[Roncancio]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Not Intersect(Target, Range("A1:A25")) Is Nothing Then
    If Target.Value = 100 Then Application.Evaluate("B1").Value = Range("B1").Value + 1
End If
End Sub

Zodra er nu 100 kom te staan in het bereik A1 t/m A25 dan wordt de waarde van B1 met 1 verhoogd.

Indien je met meerdere waardes zou willen werken, zou ik het met Select Case doen.

Met vriendelijke groet,


Roncancio

 

[peerke2812]

Hoi Roncancio

ik heb er een voorbeeldbestandje bij gedaan,zo weet je precies wat ik bedoel.
bij 1 deurnummer(211) heb ik de code van jou in gevuld,hij werkt nog niet zoals ik wil,want hij doet het maar op 1 cel ,maar ik kom al een heel ver.
nu staan er meer deurnummers bij waar de code op moet gaan werken,maar dat is te hoog voor mij gegrepen
ik hoop dat je mij kunt helpen.

grt
pieter

 

[danny147]

Beste peerke2812

Zie bestandje.

Groetjes Danny. :thumb:

 

[peerke2812]

Hoi Danny,

het was de bedoeling dat iedere deur die daar staan afzonderlijk opgeteld worden.


grt
pieter

 

[danny147]

Beste peerke2812

Zoiets ?

De code kan waarschijnlijk korter met "select case"

Groetjes Danny. :thumb:

 

[peerke2812]

Hoi Danny,

Top gedaan:thumb:,dat had ik nooit gekunnen.
Hartelijk dank.

grt
pieter