Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
find cell that contains text and delete entre row | Excel Discussion (Misc queries) | |||
FIND THE CALCULATED VALUE OF A CELL AND DELETE IT FROM ANOTHER | Excel Discussion (Misc queries) | |||
Find cell select row and delete | Excel Programming | |||
Find a cell then delete the row | Excel Programming | |||
Find a cell then delete the row | Excel Programming |