Vlookup formülünün kodlaması nedir?

[MERDAG]

Benim oluşturduğum bir malzeme listesi var.Buna bir userform ekledim, burada texbox2'ye b sütunundaki verileri süzdürüp listboxa aktarıyorum buradanda seçim yaptığımda seçili hücrenin texbox2'ye hücrenin solundaki de texbox3'e aktarılıyor. Ama hücrenin sağındaki a sütunundaki hücreyi texbox1'e aktaramadım. Bunun kodunu ayrıntılı bir şekilde yazarsanız sevinirim...İlginize şimdiden teşekkürler...

 

[sakoz]

Bir dosya eklerseniz daha çabuk çözümler üretilir....

 

[MERDAG]

Dosya ektedir. İlginiz için teşekkürler...

 

[MERDAG]

HİÇmİ Fİkrİ Olan Yok

 

[gkseren]

Sn. MERDAG,
Sanırım tam dosyayı göndermemişsiniz ama sub ListBox1_Click() kodlarını şu şekilde yazarsanız A sütunundaki değeri Texbox1'e atayacaktır.:

Private Sub ListBox1_Click()

TextBox2 = ListBox1.Value

For Each bul In Range("b1:b" & WorksheetFunction.CountA(Range("b1:b65000")))

If StrConv(bul, vbUpperCase) = StrConv(TextBox2, vbUpperCase) Then

bul.Select

TextBox1.Value = ActiveCell.Offset(0, -1).Value
TextBox2.Value = ActiveCell.Offset(0, 0).Value
TextBox3.Value = ActiveCell.Offset(0, 1).Value


End If

Next
End Sub