Fill combobox2 based combobox1

[maabadi]

Hi
I want to create two combobox to both selectable and value of them fill automaticly when select value on another combobox, then I write for Combobox1:

Private Sub UserForm_Initialize()
    Me.ComboBox1.List = Worksheets("Sheet2").Range("B2:B600").Value
    End Sub

AND

Private Sub ComboBox1_Change()
Dim sValue As String
Dim r As Range, rAll As Range

sValue = ComboBox1

Set rAll = Sheet2.Range("B2:C600").End(xlDown)

For Each r In rAll
If r = sValue Then
ComboBox2 = r.Offset(0, 1)
End If
Next r
End Sub

I didn't Define any seperate code for Combobox2
But
1. Combobox1 don't show dropdown list when I type on it.
2. Combobox2 don't show value and dropdown list when Update value of Combobox1.
3. How to reverse this action for combobox2

Thanks

 

[Tinbendr]

Private Sub ComboBox1_Change()
Dim sValue As String
Dim r As Range, rAll As Range

sValue = ComboBox1

Set rAll = Sheet2.Range("B2:B600").End(xlDown)'You just want to search Column B, right?

For Each r In rAll
If r = sValue Then
ComboBox2.AddItem r.Offset(0, 1)
End If
Next r
End Sub

I don't understand Item 3.

 

[maabadi]

Thanks Tinbendr
But I changed Range from "B2:C600" to "B2:B600" but result the same
and I don't anything in combobox2?

 

[Tinbendr]

Have you searched for known values?

Will ANY r = sValue?

 

[maabadi]

I don't know why you say?
and where I define and Input code?

 

[Tinbendr]

You're going to have to step through the code (F8) and when you know you have a known match, see if the code adds it to the combobox.