data verwijderen in werkblad

[jo geuens]

Ik wil data verwijderen op een ander werkblad

ik doe dit eerst door in een listbox de waarde van de 1ste kolom optevragen in een listbox wanneer ik daar mijn keuze heb gemaakt word een bevestiging gevraagd en daar loopt het fout bij deze regel Range(Sheet3.Cells(i, 1), Sheet3.Cells(i, 3)).Select

Private Sub UserForm_Activate()
waarde = Deluitvoerder.ListBox1.Value
DeluitvoerderOK.Label1 = "Ben je zeker dar je deze uitvoerderwenst te verwijderen " & waarde & "?."
End Sub

Private Sub CommandButton1_Click()
Dim i As Integer
Dim final As Integer
Dim waarde As String

waarde = Deluitvoerder.ListBox1.Value

For i = 2 To 1000
If Sheet3.Cells(i, 1) = "" Then
final = i - 1
Exit For
End If
Next

For i = 2 To final
If waarde = Sheet3.Cells(i, 1) Then
Range(Sheet3.Cells(i, 1), Sheet3.Cells(i, 3)).Select
Selection.ClearContents
Sheet3.Cells(1, 2).Select
End If
Next

For i = 2 To final
If Sheet3.Cells(i, 1) = "" And Sheet3.Cells(i + 1, 1) <> "" And Sheet3.Cells(i + 1, 1) <> "uitvoerder" Then
Range(Sheet3.Cells(i + 1, 1), Sheet3.Cells(final, 4)).Select
 Selection.Cut
    Sheet3.Cells(i, 1).Select
    ActiveSheet.Paste
    Sheet3.Cells(1, 1).Select
End If
Next



DeluitvoerderOK.Hide
Deluitvoerder.Hide


End Sub

Private Sub CommandButton2_Click()
DeluitvoerderOK.Hide

End Sub

 

[Elsendoorn2134]

Jo Geuens,

Ik heb gekeken en volgens mij werkt de macro prima, kun je de foutmelding opgeven zodat ik weet in welke richting
het fout gaat?
Waar om verwijder je trouwens niet gewoon de hele regel (Selection.EntireRow.Delete) in plaats van Selection.ClearContents
Scheelt weer een stuk van je macro.

Veel Succes.

 

[jo geuens]

hoi ik heb ondertussen l een oplossing gevonden maar toch bedankt voor de tip om de hele rij te verwijderen toch weer wat bijgeleerd

Thanx