find value and delete cell and the cell next to it
 

Hi experts,

i have a combobox on a userform. The user selects a value.
Then i have to lookup the value in a range (zoekrange) and delete the cell
containing the value and the cell next to it. I tried resizing the zoekrange
but it did not work.
Here's my code so far...

Private Sub but_verwijder_Click()
Dim zoekrange As Range
Application.ScreenUpdating = False
Sheets("hulpblad").Select
Set zoekrange = Range("b2:c500").Find(cbo_accountnr.Value)
zoekrange.Resize(0, 1).Delete shift:=xlShiftUp
MsgBox "done"
Sheets("nieuwe productie 2006").Select
Application.ScreenUpdating = True
Unload Me
End Sub

any ideas please ?
thanks,
Pierre

--
Message posted via http://www.officekb.com

find value and delete cell and the cell next to it
 

Try

zoekrange.Resize(1, 2).Delete shift:=xlShiftUp

"Pierre via OfficeKB.com" wrote:

Hi experts,

i have a combobox on a userform. The user selects a value.
Then i have to lookup the value in a range (zoekrange) and delete the cell
containing the value and the cell next to it. I tried resizing the zoekrange
but it did not work.
Here's my code so far...

Private Sub but_verwijder_Click()
Dim zoekrange As Range
Application.ScreenUpdating = False
Sheets("hulpblad").Select
Set zoekrange = Range("b2:c500").Find(cbo_accountnr.Value)
zoekrange.Resize(0, 1).Delete shift:=xlShiftUp
MsgBox "done"
Sheets("nieuwe productie 2006").Select
Application.ScreenUpdating = True
Unload Me
End Sub

any ideas please ?
thanks,
Pierre

--
Message posted via http://www.officekb.com

find value and delete cell and the cell next to it
 

Thanks Topper, this works fine !
Pierre

Toppers wrote:
Try

zoekrange.Resize(1, 2).Delete shift:=xlShiftUp

Hi experts,

[quoted text clipped - 19 lines]
thanks,
Pierre

--
Message posted via http://www.officekb.com