The value of combobox1 is not shown on combobox2 when changing

[sofas]

Hello, I have two combobox elements on the user form whose data is fetched from the same column. What I am looking for is that when a specific value is chosen in combobox1, it is not automatically shown on combobox2. Can I do this dynamically?

Private Sub UserForm_Initialize()
Set f = Sheets("Sh2")
  Set j = CreateObject("Scripting.Dictionary")
  a = f.Range("B4:B" & f.[B65000].End(xlUp).Row)
  For i = LBound(a) To UBound(a)
    If a(i, 1) <> "" Then j(a(i, 1)) = ""
  Next i
  n = j.keys
  Me.ComboBox1.List = n
  Me.ComboBox2.List = n
End Sub

Private Sub ComboBox2_Click()
''''Here I am trying to put a code that fetches the column data except the value on combobox1
End Sub

 

[Tetra201]

Maybe

Private Sub ComboBox1_AfterUpdate()
    Set f = Sheets("Sh2")
    Set j = CreateObject("Scripting.Dictionary")
    a = f.Range("B4:B" & f.[B65000].End(xlUp).Row)
    For i = LBound(a) To UBound(a)
        If (a(i, 1) <> "") And (Format(a(i, 1), "@") <> Me.ComboBox1.Value) Then j(a(i, 1)) = ""
    Next i
    Me.ComboBox2.List = j.keys
    Set j = Nothing
End Sub

 

[sofas]

Maybe

Private Sub ComboBox1_AfterUpdate()
    Set f = Sheets("Sh2")
    Set j = CreateObject("Scripting.Dictionary")
    a = f.Range("B4:B" & f.[B65000].End(xlUp).Row)
    For i = LBound(a) To UBound(a)
        If (a(i, 1) <> "") And (Format(a(i, 1), "@") <> Me.ComboBox1.Value) Then j(a(i, 1)) = ""
    Next i
    Me.ComboBox2.List = j.keys
    Set j = Nothing
End Sub

Thank you, it works very efficiently