Cel bevat x dan rij verwijderen tot bepaalde kolom

[Tweety1]

Hi,

Ben opzoek naar een macro die een rij verwijderd.

In kolom A staat bv test dan wil ik de rij verwijderen tot kolom D en de cellen eronder naar boven. Rij 1 mag niet mee doen.


mvg

Kasper

 

[Haije]

Kasper,

staan er na kolom D nog gegevens op die betreffende rij?

Indien nee, dan zou dit kunnen werken:

Sub verwijder()
Application.ScreenUpdating = False
    rgl = ActiveSheet.UsedRange.Rows.Count
For r = rgl To 2 Step -1
    If Range("A" & r) = "test" Then Range("A" & r).EntireRow.Delete
Next r
Application.ScreenUpdating = True
End Sub

 

[Tweety1]

Klopt na kolom D staan nog meer gegevens die niet verwijderd mogen worden

 

[Haije]

Oké,

dan zou deze het moeten doen:

Sub verschuif()
Application.ScreenUpdating = False
    rgl = ActiveSheet.UsedRange.Rows.Count
For r = rgl To 2 Step -1
    If Range("A" & r) = "test" Then
    Range("A" & r) = Range("A" & r + 1)
    Range("B" & r) = Range("B" & r + 1)
    Range("C" & r) = Range("C" & r + 1)
    Range(Range("A" & r + 1), Range("C" & r + 1)).ClearContents
    End If
Next r
Application.ScreenUpdating = True
End Sub

 

[Tweety1]

Als ik de macro uitvoer dan verwijder hij wel de cellen en gaat de volgen cel omhoog. Daarna komt er een blanke regel. Wat doe ik fout?

 

[Haije]

Kasper,

doe deze wel wat je wenst?

Sub verschuif()
Application.ScreenUpdating = False
    rgl = ActiveSheet.UsedRange.Rows.Count
For r = rgl To 2 Step -1
    If Range("A" & r) = "test" Then
    Range(Range("A" & r + 1), Selection.End(xlDown).End(xlToRight)).Cut Destination:=Range("A" & r)
    End If
Next r
Application.ScreenUpdating = True
End Sub

 

[Tweety1]

Het werkt bedankt