Double click Listbox to edit item

**johan12** · 05-20-2012, 07:31 AM

I have a list box, for search the data, What I want now is after see search rezultats , Double click in row of ListBox want to open example userform1 to edit data.

So I want to edit Data Via list box , after see search rezultats.

See Example in attach.

**HSV** · 05-20-2012, 09:08 AM

Try it once.

The value be found becomes yellow, change it in delete or clearcontents.

Private Sub ListBox_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
  Set c = ws.Columns(1).Find(ListBox.List(ListBox.ListIndex, 0), , xlValues, xlWhole)
   If Not c Is Nothing Then
       If c & c.Offset(, 1) & c.Offset(, 2) & ws.Name = ListBox.List(ListBox.ListIndex, 0) & ListBox.List(ListBox.ListIndex, 1) & ListBox.List(ListBox.ListIndex, 2) & ListBox.List(ListBox.ListIndex, 3) Then
         c.Interior.ColorIndex = 6
       End If
     End If
  Next ws
End Sub