Regel invoegen

[HWV]

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:

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

 

[edmoor]

Probeer deze eens:

Sub invoegen()

For i = 170 To 60000
    If Cells(i + 1, 5) > Cells(i, 5) Then
        i = i + 1
        Cells(i, 1).EntireRow.Rows.Insert
    End If
Next i

End Sub

 

[HWV]

Gelukt

Beste edmoor,

Top dank voor het script, werkt als een trein.
Was op de goede weg, maar had deze duw even nodig.

HWV

 

[edmoor]

Treinen van de NS hebben ook weleens een duwtje nodig

 

[HSV]

Het is dat je een ruime marge hebt genomen @edmoor (60000 → 11000), anders stopt je trein ergens waar je het niet verwacht.
Je zou de code vanaf onderen kunnen laten lopen.

For i = 11000 To 170 Step -1

 

[edmoor]

De getallen komen van het voorbeeld van TS.

 

[HSV]

Maakt niet uit.

Wat ik bedoel is;
Je voegt bv. 3000 rijen in waardoor rij 60000 → 63000 wordt.
Je variabel i loopt maar tot 60000.
Dus stopt je trein wat eerder en komt niet bij de laatste 3000 cellen.

 

[edmoor]

Daar heb je helemaal gelijk in.