Combobox

[zulfuernek]

combobox1 de seçtiğim değeri SYSTEM SAYFASINDA A2:I10 arasında bulup yanındaki satırı textbox1 e yazdıracak.

düşeyara formülü gibi

 

[Ömer BARAN]

combobox1 de seçtiğim değeri SYSTEM SAYFASINDA A2:I10 arasında bulup yanındaki satırı textbox1 e yazdıracak.
düşeyara formülü gibi

Merhaba.

Sorunuzdaki, yanındaki satırı kısmı biraz net değil.
Sanırım B sütunundaki değerin gelmesini istiyorsunuz.
Örneğin aşağıdaki gibi olabilir.

Set wf = Application.WorksheetFunction:Set s =Sheets("SYSTEM")
If wf.Countif(s.Range("A2:I10"), Combobox1)=1 Then
    TextBox1=s.Cells(wf.Match(Combobox1, s.Range("A2:I10"),0)+1, [B][COLOR="red"]"B"[/COLOR][/B])
Else
    TextBox1=""
End If