sonicreflex
Gebruiker
- Lid geworden
- 9 sep 2009
- Berichten
- 7
Hallo,
Ik ben al een tijdje aan het stoeien om een aantal rijen in mijn werkblad middels een vba script te groepen. Ik gebruik nu de volgende code:
bij de declariet van de variabelen heb ik startgroup = 7 gezet
Het idee is het volgende:
1. Iedere rij wordt afgelopen
2. Indien kolom A van die rij een waarde bevat dan moeten de voorgaande rijen worden gegroepeerd (de eerste rij met een waarde is rij 7 vandaar de variabele declaratie)
Met bovenstaande code is echter het resultaat dat alles vanaf rij 7 in een grote groep wordt gestopt. Ik heb een vermoeden dat er iets in de selectie niet goed gaat.
Maar ik moet toegeven dat ik een rookie ben, dus hulp is welkom.
Thx!
Ik ben al een tijdje aan het stoeien om een aantal rijen in mijn werkblad middels een vba script te groepen. Ik gebruik nu de volgende code:
Code:
Sub grouping()
lastrow = Cells(Rows.Count, 5).End(xlUp).Row
For i = firstplanrow + 1 To lastrow
Call Group(i)
Next
End Sub
Code:
Sub Group(i)
If ActiveSheet.Cells(i, 1).Value <> "" Then
oldstartgroup = startgroup
startgroup = i
Rows(oldstartgroup & ":" & i - 1).Select
Selection.Rows.Group
End If
End Subbij de declariet van de variabelen heb ik startgroup = 7 gezet
Het idee is het volgende:
1. Iedere rij wordt afgelopen
2. Indien kolom A van die rij een waarde bevat dan moeten de voorgaande rijen worden gegroepeerd (de eerste rij met een waarde is rij 7 vandaar de variabele declaratie)
Met bovenstaande code is echter het resultaat dat alles vanaf rij 7 in een grote groep wordt gestopt. Ik heb een vermoeden dat er iets in de selectie niet goed gaat.
Maar ik moet toegeven dat ik een rookie ben, dus hulp is welkom.
Thx!
Laatst bewerkt:
