helpendehand123
Gebruiker
- Lid geworden
- 3 mrt 2011
- Berichten
- 260
Hallo!
Ik zit met een probleempje in m'n vba DO LOOP.
Met deze code wil ik uiteindelijk de =SOM(Airline_1) bepalen.
Nu werkt dit voor de eerste rij wel. Bij Airline_1 pakt ie alle gewenste cellen.
Bij de tweede rij stopt ie echter al na de eerste cel. Alsof hij de tweede loop dus overslaat.
Ik heb ter verduidelijking 3 screenshots toegevoegd.
Ik hoor graag wat het probleem kan zijn.
mvg
Ik zit met een probleempje in m'n vba DO LOOP.
Code:
Sub Test2()
Set sht = Worksheets("Calculations")
LastRow = sht.Cells(sht.Rows.Count, 1).End(xlUp).Row + 1
LastCol = (LastRow - 2) * 3
i = 1
r = 3
c = 5
Do Until r > LastRow
sht.Cells(r, c).Select
RangeName = "Airline_" & i
Set Cell = sht.Cells(r, 5)
sht.Names.Add Name:=RangeName, RefersTo:=Cell
Do Until c > LastCol
RangeName = "Airline_" & i
Set Cell = Application.Union(Range("Airline_" & i), sht.Cells(r, c))
sht.Names.Add Name:=RangeName, RefersTo:=Cell
c = c + 3
Loop
i = i + 1
r = r + 1
Loop
End Sub
Met deze code wil ik uiteindelijk de =SOM(Airline_1) bepalen.
Nu werkt dit voor de eerste rij wel. Bij Airline_1 pakt ie alle gewenste cellen.
Bij de tweede rij stopt ie echter al na de eerste cel. Alsof hij de tweede loop dus overslaat.
Ik heb ter verduidelijking 3 screenshots toegevoegd.
Ik hoor graag wat het probleem kan zijn.
mvg