debastaard
Gebruiker
- Lid geworden
- 27 nov 2006
- Berichten
- 29
Beste allemaal,
Ik zit met het volgende:
n zijn waarden die op een ander blad ingevuld worden en die ik wil kopieren naar een ander blad met behulp van een loop. o is het aantal keren dat ie gekopieerd dient te worden, dit los ik op met Resize (met dank aan Wigi). Dit werkt perfect alleen wil ik het graag op een andere manier, reden is dat wanneer ik dit op twee kolommen toe pas, en er een cel leeg is hij door middel van end(xlup) altijd de lege pakt. Ik wilde het daarom op de volgende manier proberen:
Alleen dit werkt niet. Wanneer ik dit doe dan telt VBA telkens 1 bij "i" op zodat de resize functie niet meer werkt. Weet iemand hier een oplossing voor? Alvast bedankt!
Ik zit met het volgende:
Code:
If Blad10.Cells(i + 7, 16) > 0 Then Blad30.Range("G65536").End(xlUp)(2, 1).Resize(o) = n
n zijn waarden die op een ander blad ingevuld worden en die ik wil kopieren naar een ander blad met behulp van een loop. o is het aantal keren dat ie gekopieerd dient te worden, dit los ik op met Resize (met dank aan Wigi). Dit werkt perfect alleen wil ik het graag op een andere manier, reden is dat wanneer ik dit op twee kolommen toe pas, en er een cel leeg is hij door middel van end(xlup) altijd de lege pakt. Ik wilde het daarom op de volgende manier proberen:
Code:
Blad30.Cells(i + 10, 7).Value.resize(o) = n
Alleen dit werkt niet. Wanneer ik dit doe dan telt VBA telkens 1 bij "i" op zodat de resize functie niet meer werkt. Weet iemand hier een oplossing voor? Alvast bedankt!