Loop maken

[weusty]

Ben opzoek naar een voorbeeld van een eenvoudige loop.
Heb er al 10-tallen geprobeerd maar krijg de boel maar niet op gang

De bedoeling is:

Elke keer als er een getal tussen de 0 en de 50 in kolom B staat, er een bepaalde macro moet gaan lopen tot hij aan het eind van de kolom is.

Oh ja, de lengte van de kolom is variabel dus je kunt de range niet in stellen.


Samengevat:

For each cell.value in collum ("B:B") between 0 and 50 run "MACRO"
 Do Until End

Thx Weust:thumb:

 

[zapatr]

Eerst maar eens goed de helpfile gaan bekijken naar de opdrachten.
Je moet for-Next en een Loop niet door elkaar gebruiken.
Maar vertel eens: wil je zelf een macro in werking stellen die kolom A controleert, of moet die macro automatisch starten zodra er een waarde tussen 0 en 50 wordt ingevoerd?
En hoe zit het met de randwaarden 0 en 50, doen die ook mee?

 

[weusty]

Ik krijg elke week een enorme lijst met gegevens op het werk.

Bij elke waarde in kolom B tussen groter dan 0 en kleiner dan 50 moet er standaard formulier worden aangepast en afgedrukt. Dit gebeurde voorheen met de hand.
Was een dag werk ofzo.

Voor het automatisch invullen en afrukken van dit formulier heb ik al een macro gemaakt en die wie werk goed. Dit scheelt al een hoop werk.

Moet dus nu alleen nog een macro hebben die begint te lopen als ik op een button in het werkblad druk.
Deze moet dus bij elke waarde in kolom B groter dan 0 en kleiner dan 50 (1t/m49) deze macro uitvoeren en daarna opzoek gaan naar de volgende waarde in kolom B.

En natuurlijk heb ik de helpfile al bekeken,maar daar wordt ik ook niet echt wijzer van.

Groet

 

[zapatr]

Zoiets bv:

Sub macro1()
Dim x as integer
'Deze macro is geschreven door Zapatr
x = 1
Do While x <= Range("B65536").End(xlUp).Row
If Range("B" & x).Value > 0 And Range("B" & x).Value <= 50 Then
macro2
End If
x = x + 1
Loop
End Sub

Maar het kan ook met een subroutine.
Een en ander is afhankelijk van wat je precies met de macro wil doen die in gang moet schieten.

 

[zapatr]

weusty,
als de vraag is opgelost, markeer ze dan als zodanig a.u.b.
zijn er nog vragen, meld ze dan.

 

[weusty]

Hey Zapatr,

je macro werkt perfect. :thumb:

Bedankt voor je hulp. Zal de vraag op opgelost zetten.

Thx.