List Box : Showing specific data from Master list

[suhas_shah]

In excel file there are two sheets

1. Enty Sheet
2. Master Sheet

In entry there are following columns

Code | Sub Code | qty.

In Master Sheet there are following columns

Code Sub Code


Master Data is as under

Code | Sub Code
101 | A01
101 | A02
102 | C022
102 | C021
103 | D02
103 | D03
103 | D04
104 | A02
104 | A01

In entry sheet when i ener Code in Column A , a list box showing all related values of CodeFrom Master Sheet to be shown in Column B of Entry Sheet.

Can you help me in this.

Regards

Suhas

 

[Joe Was]

Note: You did not say how the right "code" is to be selected, add the code that works for you for "myCode!"
I just call it "myCode" below!

Dim c As Object, myBottom&, myRng As Range

myBottom = ActiveSheet.Range("B65536").End(xlUp).Row

Set myRng = ActiveSheet.Range(Cells(1, 2), Cells(myBottom, 2))

For Each c In myRng

If c.OffSet(0, -1).Value= myCode Then
Worksheets("Sheet1").ListBox1.AddItem (c.Value)
End If
Next c