optellen van 15 tot 150 in enkele cell

[johan4b]

Beste leden

Ik hoop dat jullie mij kunnen helpen. Ik heb een onderzoek gedaan of dit mogelijk was heb helaas niks kunnen vinden.


Ik wil in een userform een button creeren die ervoor zorgt dat in cel B2 automatisch van 15 tot 150 gaat tellen. Tevens wil ik dat VBA stopt met tellen wanneer in cel B3 een Yes staat.

Deze yes wordt gegenereerd doormiddel van een excel formule die in die cel is verwerkt: =IF(B2<150;IF(C21>0;"No";"Yes");"Yes").

Sorry als het niet duidelijk is

alvast bedankt

Johan

 

[snb]

Waarvoor wil je dit ?

 

[OctaFish]

En ja, het is niet duidelijk .

 

[johan4b]

Ik zal het hopelijk dit keer duidelijker uitleggen:

1. Userform met button die ervoor zorgt dat in cel b2 vba gaat tellen van 15 tot 150.
2. Terwijl b2 aan het tellen is veranderd er in B3 de waarde elke cijfer in B2 heeft andere waarde in B3. (dit heb ik doormiddel van een excel formule gedaan)
3. Ik wil bijvoorbeeld dat wanneer de waarde in cel B3 bijvoorbeeld op Yes komt de teller gaat stoppen met tellen.
4. tevens wil ik zeg maar een msgbox wanneer deze stopt met tellen.

Alvast bedankt

 

[snb]

Wij houden niet van crossposting:

http://www.vbaexpress.com/forum/sho...atically-increment-single-cell-from-15-to-150

 

[johan4b]

Kan iemand me hiermee helpen ik heb even mee gesleuteld, weet alleen niet hoe ik de incrementing kan stoppen wanneer in cel b4 yes is als waarde:

Private Sub CommandButton4_Click()

For intCount = 15 To 150
Range("B2") = intCount
If (intCount = Range("B4")) = "YES" Then
Range("B2") = "YES"
intCount = 150

End If

Next intCount
End Sub


dank u