Excel lege regel plaatsen

[athestreet]

Hallo,

Ik zoek iets om automatisch een lege regel onder één of enkel regels elke keer te plaatsen aan de hand van personeelsnummer (B). Voorbeeld bijgevoegd.
Ik heb het geprobeerd met een macro, maar door de afwijkingen komt het niet goed

Bekijk bijlage voorbeeld.xlsalvast bedankt

 

[Cobbe]

Misschien wat kort door de bocht maar waarom plak je deze regels niet onderaan tegen de bestaande gegevens en sorteer gewoon op kolom B?

 

[Roncancio]

Sub LegeRegels()
Dim lRij As Long
Dim lBRij As Long

    Application.ScreenUpdating = False
    lBRij = 5

    lRij = Range("B" & Rows.Count).End(xlUp).Row
    
    While lBRij < lRij
        While Range("B" & lBRij - 1).Value = Range("B" & lBRij).Value
            lBRij = lBRij + 1
        Wend
        Range("B" & lBRij).EntireRow.Insert
        lBRij = lBRij + 2
        lRij = lRij + 1
    Wend
    Application.ScreenUpdating = True
End Sub

Met vriendelijke groet,


Roncancio

 

[athestreet]

Sub LegeRegels()
Dim lRij As Long
Dim lBRij As Long

    Application.ScreenUpdating = False
    lBRij = 5

    lRij = Range("B" & Rows.Count).End(xlUp).Row
    
    While lBRij < lRij
        While Range("B" & lBRij - 1).Value = Range("B" & lBRij).Value
            lBRij = lBRij + 1
        Wend
        Range("B" & lBRij).EntireRow.Insert
        lBRij = lBRij + 2
        lRij = lRij + 1
    Wend
    Application.ScreenUpdating = True
End Sub

Met vriendelijke groet,


Roncancio

 

[athestreet]

Hallo Roncancio,

Bedankt voor je oplossing. Het werkt echt goed!!
Ik ben hier heel blij mee.
Nog een vraagje. Is er een mogelijkheid om eerst een variabel erbij te maken waarin staat in welke kolom de personeelsnummers staan. Dit keer was het B maar soms is het ook een ander kolom.
Tweede vraagje is of er een mogelijkheid bestaat om dit script automatisch in een excel sheet te plaatsen.

Niet dat het noodzakelijk is, want de hoofdzaak is gelukkig opgelost.
Nog een keer hartelijk bedankt hiervoor.

athestreet

 

[athestreet]

Misschien wat kort door de bocht maar waarom plak je deze regels niet onderaan tegen de bestaande gegevens en sorteer gewoon op kolom B?

Bedankt voor je reactie.
Door jou oplossing te doen ben ik nog een tijdje bezig met verplaatsen. (als ik het goed begrijp). Toch wil ik je wel bedanken voor het meedenken.
mvg
athestreet

 

[Warme bakkertje]

Sub LegeRegels()
Dim lRij As Long
Dim lBRij As Long
Dim lKolom As String

    Application.ScreenUpdating = False
    lBRij = 5
    lKolom = Application.InputBox("In welke kolom moeten er een rijen toegevoegd worden?", "Kolomletter invoeren", _
                , , , , , 2)
    lRij = Range(lKolom & Rows.Count).End(xlUp).Row
    
    While lBRij < lRij
        While Range(lKolom & lBRij - 1).Value = Range(lKolom & lBRij).Value
            lBRij = lBRij + 1
        Wend
        Range(lKolom & lBRij).EntireRow.Insert
        lBRij = lBRij + 2
        lRij = lRij + 1
    Wend
    Application.ScreenUpdating = True
End Sub

 

[athestreet]

antwoord

Hallo Warme Bakkertje,

Bedankt ook voor jouw snelle reactie. Inderdaad werkt dit ook weer. Het doet me veel plezier dat men je zo snel op weg helpt.
Nog één vraagje dan. Hoe kan ik deze script nu automatisch in een excelsheet plaatsen. Is daar iets voor. Elke dag worden er excel sheets gemaakt met andere gegevens.

mvg
athestreet

 

[Roncancio]

Tja, er zijn verschillende mogelijkheden.
Je zou met een loop door de geopende bestanden(of de bestanden in een bepaalde directory) kunnen lopen om de gegevens toe te voegen.
Je zou ook de code kunnen kopiëren en plakken in het betreffende bestand.
Of met 1 bestand werken.

Met vriendelijke groet,


Roncancio