Vb en macro in Excel

23-01-2019 15:39 9 berichten
Alle reacties Link kopieren
Ik hoop dat iemand hier een simpele oplossing voor heeft.
Ik heb in Excel een tabel van iets van 100 regels.
Nu heb ik een macro gemaakt voor een regel uit die tabel. Wat ik graag zou willen is dat die macro dat achtereenvolgens voor alle regels gaat doen. Volgens mij moet dat kunnen in VB.
Hoe pak ik dit aan?
Alle reacties Link kopieren
Ik snap je niet. Voor een regel of voor een rij? Wat doet die macro? Kan je het niet gewoon als formule die hele rij 'in slepen'? Of heb je in het hele blad cellen met een regel staan, waar je die macro op los wil laten?
Alle reacties Link kopieren
https://www.youtube.com/watch?v=uAVNlvMet5c
Ik begrijp je ook niet helemaal, maar misschien helpt dit je op weg?
Silence is golden. Duct tape is silver.
Alle reacties Link kopieren
Sorry waar ik regel zei bedoelde ik rij.
De macro is nogal ingewikkeld en het komt er op neer dat er per rij een bestandje komt waarvan de inhoud afhangt van de gegevens in de rij.

Volgens mij gaat het filmpje al een heel eind helpen. Bedankt!
Je moet eerst de macro voor de huidige regel variabel maken. Zoiets als onderstaand. Is wel uit mn hoofd, maar even voor het idee. Wellicht helpt het.

Dim r as integer
R = 1
range(a, r).select (dan pakt hij dus A1)
Entirerow.select

*Je code voor die rij*

R = r+ 1
Loop until r = 100

Dus dan loopt het tot regel 100.
Simpele loop:


Laatste = ActiveSheet.UsedRange.Rows.Count ' aantal regels in actieve sheet

For LoopCntr = 1 To Laatste Step 1 ' doe van eerste tot laatste regel

Iets = ActiveSheet.Cells(LoopCntr, KolomNummer).Value 'haal waarde op uit cel

doe er mee wat je wil

Next LoopCntr ' hoog counter op
Alle reacties Link kopieren
mieniemie schreef:
23-01-2019 17:15
Je moet eerst de macro voor de huidige regel variabel maken. Zoiets als onderstaand. Is wel uit mn hoofd, maar even voor het idee. Wellicht helpt het.

Dim r as integer
R = 1
range(a, r).select (dan pakt hij dus A1)
Entirerow.select

*Je code voor die rij*

R = r+ 1
Loop until r = 100

Dus dan loopt het tot regel 100.
Tip:

Gebruik geen hoofd- en kleine letters door elkaar.
Of alles hoofdletters of alles kleine letters
Niet geschoten is altijd mis
Bitje93 schreef:
23-01-2019 18:36
Tip:

Gebruik geen hoofd- en kleine letters door elkaar.
Of alles hoofdletters of alles kleine letters
Ja, gaat wat makkelijk in excel dan op een telefoon. ;) die maakt er zelf hoofdletters van.
Alle reacties Link kopieren
Super
Allemaal bedankt!
Gaat vast lukken zo.

Dit is een oud topic. Het topic is daarom gesloten.
Maak een nieuw topic aan om verder praten over dit onderwerp.

Terug naar boven