hoe kan ik een volledige rij wissen

[jo geuens]

hallo ik wil een volledige rij wissen bij de code die ik nu gebruik wist hij de inhoud van de geselecteerde cellen

Private Sub CommandButton1_Click()
waarde = Deleteweraanvraag.ListBox1.Value

For I = 9 To 1000
If Cells(I, 1) = "" Then
final = I - 1
Exit For
End If
Next

For I = 9 To final
If waarde = Cells(I, 1) & "  " & Cells(I, 2) & "  " & Cells(I, 6) Then
Range(Cells(I, 1), Cells(I, 250)).Select
Selection.ClearContents
Cells(1, 1).Select
End If
Next
 
    
For I = 9 To final
If Cells(I, 1) = "" And Cells(I + 1, 1) <> "" And Cells(I + 1, 1) <> "Nr." Then
Range(Cells(I + 1, 1), Cells(final, 6500)).Select
 Selection.Cut
    Cells(I, 1).Select
    ActiveSheet.Paste
    Cells(1, 1).Select
End If
Next



DelwerkOK.Hide
Deleteweraanvraag.Hide


End Sub

iemand een idee

 

[HSV]

Dan gebruik je "Delete" i.p.v. "Clearcontents".

Upload anders je bestandje eens met wat je doet en wil bereiken.
Dit kan simpeler dan 1000 keer door die lus heen lopen voor je een lege cel tegenkomt.
Rijen verwijderen door een lus gebeurt vanaf onderen trouwens.

 

[snb]

Zoals je in mijn andere suggestie kunt zien, staan alle gegevens in combobox4.

Verwijderen van een regel doe je door uit die combobox 1 item (rij) te verwijderen.

Private Sub knop_verwijder()
   combobo4.removeitem combobox4.listindex
End Sub

Als je tenslotte de inhoud van die combobox na alle bewerkingen wegschrijft in het werkblad ben je klaar:

Private Sub knop_sla_op()
   sheets("Planning").range("A8",sheets("Planning").cells(rows.count,1).end(xlup).offset(,18).clearcontents
   sheets("Planning").range("A8").resize(combobox4.listcount,18).value=combobox4.list
end sub

Deze methode komt ook aan de orde bij: http://www.snb-vba.eu/VBA_Userform_in_database.html