HWV
Terugkerende gebruiker
- Lid geworden
- 19 feb 2009
- Berichten
- 1.183
Beste,
Ik zou het volgende willen bereiken via een script.
In kolom F heb ik het volgende staan:
16230
16230
16230
16230
16230
16230
16230
16230
16250
16250
16250
16250
16250
16250
16250
16250
16250
16270
Nu wil ik na 16230, 16250,enz een regel invoegen het bestand is 11.000 regels.
Hoe krijg ik dit voor elkaar ik heb nu:
Maar werkt niet.
Hoe los ik dit op
Bekijk bijlage Regel invoegen.xlsm
Groet HWV
Ik zou het volgende willen bereiken via een script.
In kolom F heb ik het volgende staan:
16230
16230
16230
16230
16230
16230
16230
16230
16250
16250
16250
16250
16250
16250
16250
16250
16250
16270
Nu wil ik na 16230, 16250,enz een regel invoegen het bestand is 11.000 regels.
Hoe krijg ik dit voor elkaar ik heb nu:
Code:
Sub invoegen()
For I = 170 To 60000
If Cells(I, 5) > Cells(I, 5 + 1) Then
Cells(I, 1).EntireRow.Rows.Insert
Else
End If
Next I
End Sub
Maar werkt niet.
Hoe los ik dit op
Bekijk bijlage Regel invoegen.xlsm
Groet HWV