Match en select entirerow

[Mosselman]

Beste lezers,

Met onderstaande code zoek ik naar een getal in kolom A, welke is opgegeven in Textbox 1. Excel geeft vervolgens aan in welke regel het opgegeven getal voorkomt.
Nu wil ik dat hij daarbij direct de gehele row selecteert en de inhoud wist. (Deletecontents).

Wie kan mij helpen?

--------------------------------------------

With Me.TextBox1
On Error Resume Next
rowNumber = Application.Match(Val(.Value), ThisWorkbook.Sheets("BUGS - ZIR").Range("A5:A65536"), 0)
On Error GoTo 0
If rowNumber = 0 Then
MsgBox .Value & " is niet gevonden..."
VERWIJDER_BUGZIR.TextBox1.Value = ""
VERWIJDER_BUGZIR.Hide
GoTo Stopverwijderen
Else

---> Selecteer gehele ROW en wis inhoud.

-----------------------------------------

 

[Hoornvan]

Mosselman,

Kun je hier wat mee?

EntireRow.Delete

 

[Mosselman]

Mosselman,

Kun je hier wat mee?

EntireRow.Delete

Dan kiest Excel niet de juiste regel, maar de regel waarin de cursor staat.
Dus; Hij moet eerst een match vinden, daarna de betreffende regel selecteren.

 

[snb]

sub snelweg()
  On error resume next
  ThisWorkbook.Sheets("BUGS - ZIR").columns(1).find(TextBox1.Text,,xlvalues,xlwhole).entirerow.clearcontents
End Sub

 

[Wigi]

On Error Resume Next
Sheets("BUGS - ZIR").Columns(1).Find(Val(TextBox1.Text), , xlValues, xlWhole).Delete

 

[Mosselman]

On Error Resume Next
Sheets("BUGS - ZIR").Columns(1).Find(Val(TextBox1.Text), , xlValues, xlWhole).Delete

Super, hier kan ik wat mee.
Nog een vraagje:
Hoe zorg ik ervoor dat niet de hele regel word verwijderd, maar alleen de cellen in kolom A t/m E ?

Alvast bedankt!!!

 

[Wigi]

Super, hier kan ik wat mee.
Nog een vraagje:
Hoe zorg ik ervoor dat niet de hele regel word verwijderd, maar alleen de cellen in kolom A t/m E ?

Alvast bedankt!!!

Gebruik .Resize(1,5) of .Resize(,5)

 

[Mosselman]

Gebruik .Resize(1,5) of .Resize(,5)

Ok, maar hoe pas ik dat toe in bovenstaande VBA codes?

 

[Wigi]

On Error Resume Next
Sheets("BUGS - ZIR").Columns(1).Find(Val(TextBox1.Text), , xlValues, xlWhole).[B]Resize(,5)[/B].ClearContents

Toch weeral een stukje hogere wiskunde

Wigi

 

[Mosselman]

On Error Resume Next
Sheets("BUGS - ZIR").Columns(1).Find(Val(TextBox1.Text), , xlValues, xlWhole).[B]Resize(,5)[/B].ClearContents

Toch weeral een stukje hogere wiskunde

Wigi

Super, bedankt en gelukt!!!!