Açılan kutuyu user formda combobox la eşitleme

[cdroy1]

herkeze selamlar
excel sayfa1 de kullandığım bi açılır kutu var ve bunu user formda ki bir combobox la eşitlemek istiyorum ikiside aynı şekilde çalışmalı birbirine bağlantılı olmalı yardım ve önerilerinizi belkiyorum

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin.

 

[cdroy1]

sayın levent bey öncelikle çok teşekkür etmek istiyorum elinize sağlık çok güzel oldu fakat şimdi şöyle bi sorun ortaya çıktı
aynı userform üzerinde iki combobax var ikiside aynı listede aynı sırada çalışıyorlar öyle onunca çakışıyorlar ve birisi pasif duruma düşüyor bunu nasıl düzeltebiliriz aceba

ekli dosyada uygulama mevcuttur

 

[cdroy1]

Sayın üstadım umarım bu mesajımı görür ve es geçmezsiz :roll:

 

[abdi]

Private Sub UserForm_Initialize()
ComboBox2.RowSource = "LİSTE!B4:B2000"
ComboBox1.RowSource = "LİSTE!B4:B2000"

End Sub

Private Sub CommandButton11_Click()
 Sheets("LİSTE").Select
 Dim bak As Range
    For Each bak In Range("B1:B" & WorksheetFunction.CountA(Range("B1:B65000")))
        If StrConv(bak.Value, vbUpperCase) = StrConv(ComboBox2.Value, vbUpperCase) Then
            bak.Select
           TextBox42.Value = ActiveCell.Offset(0, -1).Value
           TextBox22.Value = ActiveCell.Offset(0, 0).Value
           TextBox23.Value = ActiveCell.Offset(0, 2).Value
           TextBox24.Value = ActiveCell.Offset(0, 7).Value
           TextBox25.Value = ActiveCell.Offset(0, 3).Value
           TextBox26.Value = ActiveCell.Offset(0, 5).Value
           TextBox27.Value = ActiveCell.Offset(0, 26).Value
           TextBox28.Value = ActiveCell.Offset(0, 39).Value
           TextBox29.Value = ActiveCell.Offset(0, 8).Value
           TextBox30.Value = ActiveCell.Offset(0, 32).Value
           TextBox31.Value = ActiveCell.Offset(0, 33).Value
           TextBox38.Value = ActiveCell.Offset(0, 40).Value
           TextBox39.Value = ActiveCell.Offset(0, 24).Value
           TextBox32.Value = ActiveCell.Offset(0, 34).Value
           TextBox33.Value = ActiveCell.Offset(0, 35).Value
           TextBox34.Value = ActiveCell.Offset(0, 37).Value
           TextBox35.Value = ActiveCell.Offset(0, 38).Value
           TextBox41.Value = ActiveCell.Offset(0, 41).Value
           TextBox36.Value = ActiveCell.Offset(0, 25).Value
           TextBox37.Value = ActiveCell.Offset(0, 1).Value
           TextBox40.Value = ActiveCell.Offset(0, 36).Value
           
           Exit Sub
        End If
    Next bak
    MsgBox "Aradığınız isimde bir kayıt bulunamadı"

End Sub