Private Sub UserForm_Initialize()
ComboBox1.RowSource = "REHBER!ÜNVAN"
Dim MyRng As Range
Set MyRng = Range("M2:M" & ComboBox1.ListCount)
MyRng = ComboBox1.List
MyRng.Sort Key1:=Range("M2"), Order1:=xlAscending
ComboBox1.RowSource = MyRng.Address
Set MyRng = Nothing
End Sub
Bu kodla acemi olarak verileri önce M sütununda sıralıyor sonra ComboBox1'e alıyorum. Yine bu şekilde ComboBox2'ye REHBER!İSİM'den verileri alıp N hücresine nasıl sıralayıp ComboBox2'ye nasıl alabilirim.
ComboBox1.RowSource = "REHBER!ÜNVAN"
Dim MyRng As Range
Set MyRng = Range("M2:M" & ComboBox1.ListCount)
MyRng = ComboBox1.List
MyRng.Sort Key1:=Range("M2"), Order1:=xlAscending
ComboBox1.RowSource = MyRng.Address
Set MyRng = Nothing
End Sub
Bu kodla acemi olarak verileri önce M sütununda sıralıyor sonra ComboBox1'e alıyorum. Yine bu şekilde ComboBox2'ye REHBER!İSİM'den verileri alıp N hücresine nasıl sıralayıp ComboBox2'ye nasıl alabilirim.
