Change status of more than one item selected in Listbox

**CobraLAD** · 02-29-2012, 01:45 AM

I have a Userform with a Listbox, which list items from sheet1 column A. In Column D is the status of each item
The Listbox's MultiSelect is fmMultiSelectMulti and the ListStyle is fmListStyleOption, so I can select more than 1 item
to change the status.

I am using this code with a Commandbutton, but gets an error

Sub Transfer_Item_To_Wash()
Dim TransferItem As Long
For TransferItem = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(TransferItem) = True Then
    Sheet1.Range("A:A").Find(TransferItem, LookIn:=xlValues, lookAt:=xlWhole).Offset(0, 3).Value = "Wash"
    ListBox1.RemoveItem TransferItem
    End If
Next
End Sub

**AlvaroSiza** · 02-29-2012, 02:22 AM

Where does the error occur when debugging?

**CobraLAD** · 02-29-2012, 02:43 AM

error is:

Run-time error '91':
Object variable or With block variable not set

Sheet1.Range("A:A").Find(TransferItem, LookIn:=xlValues, lookAt:=xlWhole).Offset(0, 3).Value = "Wash"

**CobraLAD** · 02-29-2012, 04:35 AM

I have attached the file. The form is in afrikaans. The error is on the Wash Button, you need to select combobox1, 2 & 3 before the button will be enabled

**OnErrorGoto0** · 02-29-2012, 04:44 AM

You know that TransferItem - the value you are searching for - is just a number from 0 to one less than the number of items in the listbox?

**CobraLAD** · 02-29-2012, 04:55 AM

ok whatever that means, but that still does not help me. Is there anybody that can fix the code for me. Please. I only use this forum if I am stuck. I do not do this all the time it is more like a hobby