3 cellen verwijderen ipv de hele rij

[rvt1982]

Beste Leden,

Ik heb de volgende code, maar ipv de hele rij zou ik graag 3 cellen willen verwijderen en naar boven aanschuiven.

With Sheets("Drop down").Columns(1)
    .Find(ThisWorkbook.Sheets("Dienstverband Verwijderen").Range("J1"), , xlValues, xlWhole).EntireRow.Delete
    End With

Alvast bedankt.

 

[Warme bakkertje]

En welke 3 cellen zou je dan willen verwijderen ?

 

[Niels28]

Sub test()
With Sheets("Drop down").Columns(1)
    .Find(ThisWorkbook.Sheets("Dienstverband Verwijderen").Range("J1"), , xlValues, xlWhole).Resize(1, 3).Delete shift:=xlUp
    End With
End Sub

Niels

 

[rvt1982]

Bedankt Niels,

Dit is wat ik zocht.

Natuurlijk Rudi bedankt voor de vele hulp tot nu toe.. :thumb: