Can you put the code to see how you load the information in the listbox ListBox3?
Yes, here it is... I will explain this code... it is loaded in the worksheet_change event so when a drop down (Data Validation Drop downs) selects "From" it populates the spread sheet Market with the line of info from the Compare sheet, then the Listbox3. the first group populates the list box2 (in the below code) when "To" is selected, the listbox I am wanting to delete items by double clicking is listbox3
Thanks so much for your help, let me know if it would help if i share the file?
Blake
Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Value = "To" Then
Sheets("Market").Range("z5").Value = ActiveCell.Offset(0, 0).Value
Sheets("Market").Range("aa5").Value = ActiveCell.Offset(0, 1).Value
'Sheets("Market").Range("ab5").Value = ActiveCell.Offset(0, 2).Value
Sheets("Market").Range("ac5").Value = ActiveCell.Offset(0, 3).Value
Sheets("Market").Range("ad5").Value = ActiveCell.Offset(0, 4).Value
Sheets("Market").Range("ae5").Value = ActiveCell.Offset(0, 5).Value
Sheets("Market").Range("af5").Value = ActiveCell.Offset(0, 7).Value
Sheets("Market").Range("ag5").Value = ActiveCell.Offset(0, 8).Value
Sheets("Market").Range("ah5").Value = ActiveCell.Offset(0, 9).Value
If Sheets("Market").Range("ah5").Value = "" Then
Sheets("market").Range("ah5").Value = "-"
End If
Sheets("Market").Range("ai5").Value = ActiveCell.Offset(0, 10).Value
Sheets("Market").Range("aj5").Value = ActiveCell.Offset(0, 11).Value
Sheets("Market").Range("ak5").Value = ActiveCell.Offset(0, 12).Value
Sheets("Market").Range("al5").Value = ActiveCell.Offset(0, 13).Value
Sheets("Market").Range("am5").Value = ActiveCell.Offset(0, 14).Value
Sheets("Market").Range("an5").Value = "-"
ActiveCell.Offset(0, 2).Copy
Sheets("Market").Range("ab5").PasteSpecial
Sheets("Compare").Select
Application.CutCopyMode = False
ItemInfo.ListBox2.List = Sheets("Market").Range("aa5:am5").Value
ItemInfo.TextBox1.Text = "1"
ItemInfo.ListBox3.List = Sheets("Market").Range("aa7:aq26").Value
ItemInfo.Label24.Caption = Sheets("Market").Range("aq1").Value
ItemInfo.Label26.Caption = Sheets("Market").Range("aq2").Value
ItemInfo.Label47.Caption = Sheets("Market").Range("an1").Value
ItemInfo.Label50.Caption = Sheets("Market").Range("an2").Value
'ItemInfo.Label52.Caption = Sheets("Market").Range("at1").Value
'ItemInfo.Label54.Caption = Sheets("Market").Range("at2").Value
ItemInfo.Label24.Caption = Format(ItemInfo.Label24.Caption, "$#,###.00")
ItemInfo.Label26.Caption = Format(ItemInfo.Label26.Caption, "$#,###.00")
ItemInfo.Label47.Caption = Format(ItemInfo.Label47.Caption, "$#,###.00")
ItemInfo.Label50.Caption = Format(ItemInfo.Label50.Caption, "$#,###.00")
'ItemInfo.Label52.Caption = Format(ItemInfo.Label52.Caption, "$#,###.00")
'ItemInfo.Label54.Caption = Format(ItemInfo.Label54.Caption, "$#,###.00")
End If
If ActiveCell.Value = "From" Then
Dim lineoffset As Long
lineoffset = Sheets("compare").Range("a2").Value
Sheets("Market").Range("z6").Offset(lineoffset, 0).Value = ActiveCell.Offset(0, 0).Value
Sheets("Market").Range("aa6").Offset(lineoffset, 0).Value = ActiveCell.Offset(0, 1).Value
Sheets("Market").Range("ab6").Offset(lineoffset, 0).Value = ActiveCell.Offset(0, 2).Value
Sheets("Market").Range("ac6").Offset(lineoffset, 0).Value = ActiveCell.Offset(0, 3).Value
Sheets("Market").Range("ad6").Offset(lineoffset, 0).Value = ActiveCell.Offset(0, 4).Value
Sheets("Market").Range("y6").Offset(lineoffset, 0).Value = ActiveCell.Offset(0, 5).Value 'This is the original case volume
Sheets("Market").Range("af6").Offset(lineoffset, 0).Value = ActiveCell.Offset(0, 7).Value
Sheets("Market").Range("ag6").Offset(lineoffset, 0).Value = ActiveCell.Offset(0, 8).Value
Sheets("Market").Range("ah6").Offset(lineoffset, 0).Value = ActiveCell.Offset(0, 9).Value
If Sheets("market").Range("ah6").Offset(lineoffset, 0).Value = "" Then
Sheets("market").Range("ah6").Offset(lineoffset, 0).Value = "-"
End If
Sheets("Market").Range("ai6").Offset(lineoffset, 0).Value = ActiveCell.Offset(0, 10).Value
Sheets("Market").Range("aj6").Offset(lineoffset, 0).Value = ActiveCell.Offset(0, 11).Value
Sheets("Market").Range("ak6").Offset(lineoffset, 0).Value = ActiveCell.Offset(0, 12).Value
Sheets("Market").Range("al6").Offset(lineoffset, 0).Value = ActiveCell.Offset(0, 13).Value
Sheets("Market").Range("am6").Offset(lineoffset, 0).Value = ActiveCell.Offset(0, 15).Value
Sheets("Market").Range("ao6").Offset(lineoffset, 0).Value = "1"
ItemInfo.ListBox3.List = Sheets("Market").Range("aa7:aq26").Value
ItemInfo.Label24.Caption = Sheets("Market").Range("aq1").Value
ItemInfo.Label26.Caption = Sheets("Market").Range("aq2").Value
ItemInfo.Label47.Caption = Sheets("Market").Range("an1").Value
ItemInfo.Label50.Caption = Sheets("Market").Range("an2").Value
'ItemInfo.Label52.Caption = Sheets("Market").Range("at1").Value
'ItemInfo.Label54.Caption = Sheets("Market").Range("at2").Value
ItemInfo.Label24.Caption = Format(ItemInfo.Label24.Caption, "$#,###.00")
ItemInfo.Label26.Caption = Format(ItemInfo.Label26.Caption, "$#,###.00")
ItemInfo.Label47.Caption = Format(ItemInfo.Label47.Caption, "$#,###.00")
ItemInfo.Label50.Caption = Format(ItemInfo.Label50.Caption, "$#,###.00")
'ItemInfo.Label52.Caption = Format(ItemInfo.Label52.Caption, "$#,###.00")
'ItemInfo.Label54.Caption = Format(ItemInfo.Label54.Caption, "$#,###.00")
ItemInfo.TextBox2.Text = Sheets("Market").Range("ao7").Value
ItemInfo.TextBox3.Text = Sheets("Market").Range("ao8").Value
ItemInfo.TextBox4.Text = Sheets("Market").Range("ao9").Value
ItemInfo.TextBox5.Text = Sheets("Market").Range("ao10").Value
ItemInfo.TextBox6.Text = Sheets("Market").Range("ao11").Value
ItemInfo.TextBox7.Text = Sheets("Market").Range("ao12").Value
ItemInfo.TextBox8.Text = Sheets("Market").Range("ao13").Value
ItemInfo.TextBox9.Text = Sheets("Market").Range("ao14").Value
ItemInfo.TextBox10.Text = Sheets("Market").Range("ao15").Value
ItemInfo.TextBox11.Text = Sheets("Market").Range("ao16").Value
ItemInfo.TextBox12.Text = Sheets("Market").Range("ao17").Value
ItemInfo.TextBox13.Text = Sheets("Market").Range("ao18").Value
ItemInfo.TextBox14.Text = Sheets("Market").Range("ao19").Value
ItemInfo.TextBox15.Text = Sheets("Market").Range("ao20").Value
ItemInfo.TextBox16.Text = Sheets("Market").Range("ao21").Value
ItemInfo.TextBox17.Text = Sheets("Market").Range("ao22").Value
ItemInfo.TextBox18.Text = Sheets("Market").Range("ao23").Value
ItemInfo.TextBox19.Text = Sheets("Market").Range("ao24").Value
ItemInfo.TextBox20.Text = Sheets("Market").Range("ao25").Value
End If