Change activeX combo box values depending on cell value

[brendalpzm]

Hello everyone~

I have a problem with a task that I'm not sure how to do it.

I have an excel file where I make quotations and it brings a total quotation at the end. According to that quotation result I have an ActiveX combo box that should bring a specific range of values, for example:

Sheet1 name : DB

Sheet2 name : Quotation

Quotation total cell: C4

Logic:

If quotation is >= 200 then ComboBox1 brings platinum values
If quotation is >= 500 then ComboBox1 brings gold values
If quotation is >= 800 then ComboBox1 brings diamond values

I'm not sure how to do it, maybe with vba?

 

[DanteAmor]

Put the following code in the events of the sheet "Quotation"

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  Dim lr As Long
  Dim db As Worksheet
  Set db = Sheets("DB")
  
  If Target.Address = "$C$4" Then
    With ComboBox1
      Select Case Target.Value
        Case Is >= 800: .ListFillRange = db.Name & "!C2:C" & db.Range("C" & Rows.Count).End(3).Row
        Case Is >= 500: .ListFillRange = db.Name & "!B2:B" & db.Range("B" & Rows.Count).End(3).Row
        Case Is >= 200: .ListFillRange = db.Name & "!A2:A" & db.Range("A" & Rows.Count).End(3).Row
      End Select
    End With
  End If
End Sub

SHEET EVENT
Right click the tab of the sheet you want this to work, select view code and paste the code into the window that opens up.

The above is assuming that in cell C4 you write a value, if it is a formula then I need to do another solution, similar, because everything changes if it is a formula.

Note: What happens if the value is less than 200?