lege regel invoegen bij wijzigen art.nr.

[rob91]

Hallo,

Ik heb een sheet met regels gevuld met artikelnummers. (Zie voorbeeldbestandje)
Nu zoek ik een makro die na wijzigen van artikelnummer een lege regel invoegt.
Hoe moet die eruit zien?

Rob

 

[Wigi]

Dat doe je (bvb.) met een lus zoals er hier op het forum met de regelmaat van een klok gepost worden. Zo ook vanmiddag nog:

http://www.helpmij.nl/forum/showthread.php?t=402450, post # 3.

Licht aanpassen en klaar.

Wigi

 

[rob91]

Hallo Wigi,

deze code had ik inderdaad gezien,maar ik zie niet hoe ik deze aan moet passen naar mijn vraagstelling; bij mij komen artikelen meer dan 2x voor en er moet niets verwijderd worden maar een lege regel toegevoegd.
Die code aanpassen is voor mij wat te hoog gegrepen.

rob

 

[Cobbe]

Kan je met deze iets aanvangen?

Sub Opsplitsen()
ondersterij = Sheets("Blad1").Range("A65536").End(xlUp).Row
For rij = ondersterij To 2 Step -1
    If Cells(rij, 1) <> Cells(rij - 1, 1) Then
    Rows(rij).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    End If
Next
End Sub

Cobbe

 

[rob91]

Cobbe, bedankt! :thumb:

Het doet precies wat ik zoek; probleem opgelost.
Dit had ik zelf nooit kunnen bedenken.

:thumb::thumb:

Rob