Lege rij na als patroon eindigt

[Ponyoo007]

Hallo allemaal,

In het bijgestuurde document zie je een gedeelte van het originele document. Het originele is 5000 rijen lang.
In rij F zie je een aantal data staan. Wat ik graag wil hebben is dat als 1 datum klaar is een regel wit komt.
Dus na 29-5-12 1 regel wit dan na 10-9-2009 1 regel wit. Dan 4 keer 13-9-2009 bij elkaar en daarna regel wit enzovoort.
Dus alle gelijke datums moeten onder elkaar, en is er een nieuwe dan moet er eerst een regel wit.

Is dit makkelijk te regelen voor 5000 rijen?
Alvast bedankt.Bekijk bijlage Testie.xlsx

 

[Cobbe]

Deze zou dat voor u moeten fixen:

Sub cobbe()
 For i = 1 To ActiveSheet.UsedRange.Rows.Count
  If Cells(i + 1, "F") <> Cells(i, "F") Then
   Rows(i + 1).Insert
    i = i + 1
  End If
 Next
End Sub

 

[Ponyoo007]

Super, waar moet ik dat invoeren?

 

[Cobbe]

Via ALT-F11 kom je in de VB editor - daar kies je voor invoegen Module.
In het nu blanco rechtervenster plak je deze code.
Als je cursor nu op 'cobbe' plaatst en F5 drukt loopt de code.
Als alles goed is is je werk nu gedaan.

 

[edmoor]

Mijn versie:

Sub LegeRegel()
    Dim LastRow As Long
    Dim i As Long
    
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, "F").End(xlUp).Row
        For i = LastRow To 1 Step -1
            If .Cells(i, 6) <> .Cells(i + 1, 6) And .Cells(i + 1, 6) > 0 Then
                .Rows(i + 1).Insert
            End If
        Next
    End With
End Sub

 

[Ponyoo007]

Cobbe, werkt perfect.
Bedankt

 

[sylvester-ponte]

ideetje met voorwaardelijke opmaak:

 

[edmoor]

Netjes en creatief :thumb:

 

[sylvester-ponte]

ietsje vereenvoudigd:

 

[rebmog]

Nog een variant met voorwaardelijke opmaak, maar dan zonder hulpkolom.

 

[plongske]

@Rebmog;
Weer een nieuwe functie bijgeleerd. Bedankt:thumb:

 

[sylvester-ponte]

Rebmog, die is gaaf :thumb: