combobox list

[jerichey]

Hello,
I have a combobox that is populated from a column(C) in a worksheet. I only want items from that column to show in the dropbox if a value in a corresponding column(F) is greater than zero. is there a way to do this? here is the code that populates the dropbox.

Private Sub cbproducttype_Change()




With Worksheets(cbproducttype.Value)
    cbltnbr.List = Sheets(cbproducttype.Value).Range("c:c").Value
End With


End Sub

 

[Fluff]

Hi & welcome to MrExcel
How about

Private Sub cbproducttype_Change()
   Dim Dic As Object
   Dim Cl As Range
   
   Set Dic = CreateObject("scripting.dictionary")
   With Worksheets(cbproducttype.Value)
      For Each Cl In .Range("C2", .Range("C" & Rows.Count).End(xlUp))
         If Cl.Offset(, 3).Value > 0 Then
            Dic.Item(Cl.Value) = Empty
         End If
      Next Cl
      cbltnbr.List = Dic.Keys
   End With
End Sub

 

[jerichey]

That worked perfectly! Thank you for the help.

 

[Fluff]

You're welcome & thanks for the feedback