Delete range based on form search list

' the lines below imply a preceeding "For i = x to y" statement which is missing
' it also implies that you know or calculated the number of times the combobox value is
' repeated in the list and that they are all in consecutive cells.

' since i is zero this line will cause an error when run,
Range(Cells(i, "K"), Cells(i, "U")).ClearContents

' however ,since the "For i = x to y" is missing this line won't compile anyway.
Next i

Please Login or Register  to view this content.

If you know that there will be more than one occurrence and that they are in consecutive rows there are several loop options to use. e.g.:

Please Login or Register  to view this content.

awesome! works great. So say if i wanted to transpose the range data to columns instead of rows. I altered all the code from row to columns and xlup to xltoleft, but all I'm getting is the first list item. All other items do not show up. Is there something I need to change in the foundCell line?

Please Login or Register  to view this content.

clear found cell command:

Please Login or Register  to view this content.

After further investigating, it seems the problem is userform activate command:

Please Login or Register  to view this content.

or how do i get the userform to clear list and repopulate?:

Please Login or Register  to view this content.

I've got it to repopulate, but now I get "Run-time error '91': Object variable or With block variable not set" variable (UserForm.Activate) highlighted in the Sub cmdDeleteItem_Click(). What do I need to Dim the variable as? Please help. This is the last piece I need for my form:

[UPDATE: There was a typo in the code "UserForm.Activate" needed to be "UserForm_Activate". Corrected code below.]

Thank you protonLeah!

Please Login or Register  to view this content.