Macro uitvoeren in x aantal cellen

[Pier35486]

Als beginner zijnde had ik graag het volgende gevraagd:
Onderstaand progje vermindert het aantal verkochte artikels in B2 in A2.
Ik heb datzelfde gedaan voor cellen A3 en B3.
Is er een mogelijkheid om de macro te laten werken van B2 tot B200 bijvoorbeeld zonder een ellenlange macro te maken zoals voor de twee rijen in het bijgevoegde programma.
THx voor jullie hulp

Private Sub CommandButton1_Click()
    Range("B2").Select
    Verkocht = [CELL("contents")]
    Range("A2").Select
    Voorraad = [CELL("contents")]
    Voorraad = Voorraad - Verkocht
    ActiveCell.FormulaR1C1 = Voorraad
    Range("B2").Select
    Selection.ClearContents
    
    Range("B3").Select
    Verkocht = [CELL("contents")]
    Range("A3").Select
    Voorraad = [CELL("contents")]
    Voorraad = Voorraad - Verkocht
    ActiveCell.FormulaR1C1 = Voorraad
    Range("B3").Select
    Selection.ClearContents
   
End Sub

 

[wampier]

for i = 2 to 200
cells(i,1).value = cells(i,1).value - cells(i,2).value
cells(i,2).clearcontents
next i

Even op een veilige sheet uitproberen, daar ik dit even uit het hoofd heb gedaan.

 

[bontekite]

misschien heb je hier iet aan

Private Sub CommandButton1_Click()


For x = 2 To 200


Range("B" & x & "").Select
Verkocht = [CELL("contents")]
Range("A" & x & "").Select
Voorraad = [CELL("contents")]
Voorraad = Voorraad - Verkocht
ActiveCell.FormulaR1C1 = Voorraad
Range("B" & x & "").Select
Selection.ClearContents



Next x
End Sub

groeten bontekite

 

[Pier35486]

Bedankt Wampier, en Bontekite , dit laatste is wat ik wilde. Had ook al iets met de for next loop geprobeerd maar gaf een fout. Wellicht zit de laatste & "" daar voor iets tussen. wat is de betekenis hier van aub.

 

[huijb]

Voor beide, code dient tussen de codetags (#) geplaatst te worden.

 

[Pier35486]

Sorry, moderator, beginnersfout.

 

[bontekite]

de betekens van ("a" & x & "")

met het teken & kan je teksten en variabelen aan elkaar plakken.

de tweede & "" weet ik ook niet wat de echte betekenis is .
maar ander werkt het niet .

probeer maar eens alle varianten dan zal je merken dat dit de enige manier is om het werkend te krijgen.

het is ook afhankelijk waar deze & gebruikt wordt .
bijv
msgbox "de variabele is " & x

dus het is af en toe wat uitproberen om het juiste resultaat te krijgen.

Private Sub CommandButton1_Click()


For x = 2 To 200
MsgBox "de variabele is " & x
Range("B" & x & "").Select
Verkocht = [CELL("contents")]
Range("A" & x & "").Select
Voorraad = [CELL("contents")]
Voorraad = Voorraad - Verkocht
ActiveCell.FormulaR1C1 = Voorraad
Range("B" & x & "").Select
Selection.ClearContents



Next x
End Sub

 

[Pier35486]

Bedankt, ben weer iets slimmer geworden.
Have a nice weekend.