Combobox ile texbox a veri alma

[vuranoğlu]

Merhaba

sayfa1 deki a1:a12 sütunundaki verileri comboboxa alınan verinin b1:b12 sütunundaki karşılık veriyi texbox a yazma konusunda hata alıyorum .Hata nasıl düzeltilebilir.

 

[Ömer BARAN]

Merhaba.

► Alternatif 1 (aşağıdaki ilk kod satırı) :
KAÇINCI (MATCH) işlevinde arama alanı 1'inci satırdan başladığına ve belgenizde BAŞLIK satırı olMAdığına göre,
işlevin sonundaki +1 kısmını kullanmamanız gerekir.

► Alternatif 2 (aşağıdaki ikinci kod satırı) : Verdiğim ikinci kod satırı ilk alternatif olsun, bu satırı mevcut satırın yerine kullanabilirsiniz.
.

TextBox1 = s.Cells(wf.Match(ComboBox1, s.Range("[B][COLOR="Red"][SIZE="4"]A[/SIZE][/COLOR][/B]1:[B][COLOR="red"][SIZE="4"]A[/SIZE][/COLOR][/B]12"), 0), "B")

TextBox1 = s.Cells([COLOR="Red"]ComboBox1.ListIndex + 1[/COLOR], "B")

► Alternatif 3: Mevcut kod'un yerine aşağıdakini de kullanabilirsiniz.
.

Private Sub ComboBox1_Change()
    TextBox1 = ""
    If ComboBox1 <> "" Then TextBox1 = Sheets("Sayfa1").Cells(ComboBox1.ListIndex + 1, "B")
End Sub

 

[vuranoğlu]

Teşekkürederim.
İyi geceler

 

[Ömer BARAN]

Kolay gelsin.
.