restrict populating values into textbox based on combobox & condition

[leap out]

Hi experts
I need add condition to my code when I select item from combobox1 based on matching column D should populate values into textbox1 based on matching column I , but the populated values into textbox1 should be bigger or equal 1,000.00 .
this is my code

Private Sub combobox1_Change()
Dim f As Range
  With Worksheets("bmn")
    Set f = .Columns(4).Find(combobox1.Value, , xlValues, xlWhole)
    If Not f Is Nothing Then
       Me.TextBox1.Value=.Cells(f.Row, "I") 
    End If
  End With
End Sub

any suggestion guys ?

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.