bul seçeneği yapma

[emrebengul]

A sütunundaki malzeme kodları yazıp bir kutucuğa yazıp E sütunundaki depo konum seçeneğinde bulmak isityorum bunun makrosunu yapamadım bir türlü yardımcı olursanız çok iyi olur.http://m.yollayap.com/ba3s/1475265555745.xls

 

[Orion1]

Dosyanız linktedir.

DOSYAYI İNDİR

Private Sub ComboBox1_Change()
Dim k As Range
TextBox1.Value = ""
If ComboBox1.Value = "" Then Exit Sub
Set k = Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).Find(ComboBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then TextBox1.Value = k.Offset(0, 4).Value
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "A2:A" & Cells(Rows.Count, "A").End(xlUp).Row
If ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0
End Sub