Comboboxta seçilen verinin eşini textboxa alma

[doremi51]

Arkadaşlar merhaba. Daha yeniyim ve size bir sorum olacak. Excel de data sayfasında ikili değerlerim var. Örneğin A1 hücresi 5600 B1 hücresi Niğde.
Ben userformda combobax ve textbox oluşturdum. Combobox 'a 5600 yazdığımda ve command butona bastığımıda textbox a niğde yazmasını istiyorum. Nasıl yapabilirim. Yardımcı olursanız çok sevinirm. Saygılar.

 

[Korhan Ayhan]

Aşağıdaki kodu kullanabilirsiniz.

Private Sub TextBox1_Change()
    TextBox1 = ""
    Set Bul = Range("A:B").Find(ComboBox1, , , xlWhole)
    If Not Bul Is Nothing Then TextBox1 = Bul.Offset(0, 1)
End Sub