ComboBox1 le çağırdıgımız verinin yan hucresini TextBox1 de gosterme

[manly]

Sayfamizin A2 hücresini ComboBox1 ile bulduktan sonra B2 hucresini TextBox1 de görmek istiyorum. Makro ile nasıl yapabilirim. Çok satir oldugunu soylemek istiyorum. Benim A1 ve B1 sadece örnekti. A hucresinden veri gelecek yanindaki B sutunundaki veri Textbox1 de gorunecek.

 

[Mahmut Bayram]

Private Sub ComboBox1_Change()
Dim i As Long
If ComboBox1.ListIndex < 0 Then Exit Sub

On Error Resume Next
For i = 1 To Range("A65536").End(3).Row
    If Cells(i, "A") = ComboBox1.Value Then
        TextBox1 = CStr(Cells(i, "B"))
    End If
Next
End Sub

Private Sub UserForm_Activate()
Dim x As Long
    For x = 1 To Range("A65536").End(3).Row
        If WorksheetFunction.CountIf(Range("A1:A" & x), Cells(x, "A")) = 1 Then
            ComboBox1.AddItem Cells(x, "A")
        End If
    Next
End Sub

 

[yanginci34]

Örneği denermisiniz.
Ekli dosyayı görüntüle comboya bağlı tex.xlsm

 

[yanginci34]

Mahmut Bey özür dilerim sizin cevap verdiğinizi görmedim. Benim ki de alternatif olsun.

 

[manly]

Teşekkür ederim. Ellerinize sağlik.

 

[manly]

Çok teşekkür ederim. Ellerinize sağlık...

 

[yanginci34]

Rica ederim. Kolay gelsin.