Wit ruimte verwijderen

[Rosevink]

Hallo,

Bestaat er een formule o.i.d. welk automatisch witruimte verwijderd?

Stel ik heb dit op een formulier staan:
--------------------------------------------------------------
- Piet
- Henk
- Arie
- Auto
- Fiets

Alles is voor bassie
---------------------------------------------------------------

Wanneer ik dan 'Arie' t/m 'Fiets' weghaal, ontstaat er +3 regels witruimte tussen 'Henk' en 'Alles is voor Bassie'. Kan een formule dan zorgen dat Alles is voor bassie dan automatisch 3 regels omhoog gaat? Zodat dezelfde tussenruimte aan wit regels blijft bestaan als voorheen.

Alsvast bedankt :thumb:

 

[Gert Bouwmeeste]

Niet de celwaardes Arie t/m Fiets weghalen, maar de hele regels selecteren en die verwijderen.

 

[Rosevink]

Bedankt voor de reactie, maar voor zover had ik dat ook al wel bedacht

Echter, ik zal mijn vraag nog even wat aanscherpen.

Ik zou dus graag willen dat de zin 'Alles is voor Bassie' ALTIJD 1 witregel onder het laatst genoemde woord wordt geplaats. En dan automatisch en niet handmatig regels verwijderen.

 

[Ginger]

Rosevink, een 'formule' hiervoor bestaat niet. Een stukkie VBA-code kan altijd geschreven worden...
Probeer deze maar 'ns (zet 'm in de module van je worksheet waar de code moet werken)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lRealLastRow As Long, lLastRow As Long

    If Target.Column <> 1 Then Exit Sub
    Application.EnableEvents = False

    lRealLastRow = Cells(Rows.Count, 1).End(xlUp).Row
    lLastRow = Cells(lRealLastRow, 1).End(xlUp).Row

    If Cells(lRealLastRow, 1).Offset(-1).Value <> "" Then
        Cells(lRealLastRow, 1).EntireRow.Insert shift:=xlDown
    ElseIf lRealLastRow - lLastRow > 2 Then
        Rows(lRealLastRow - 2 & ":" & lLastRow + 1).EntireRow.Delete shift:=xlUp
     End If

    Application.EnableEvents = True

End Sub

De code voegt na iedere invoer in kolom A een regel tussen de laatste van je tabel en je 'alles is voor Bassie'-regel. Bij het verwijderen van de inhoud van een cel in kolom A zal er een regel worden verwijderd.

Speel d'r maar 'ns mee (in een copie workbook!!!) en kijk maar of dit is wat je bedoelde.

Groet, Leo