Find and Display results VBA Code - Loop to find all Matches

I need VBA code that would search for a Area and give me all zip associated with it.

Rawdata Sheet has 2 columns

Area Zip
1 18240
1 18250
1 18252
1 18706
2 18229
2 18235
2 18250
3 18030
3 18058
3 18071
4 18079
4 18080

User enters in Sheet 2

Area
1
2
3
4


Results are displayed in Sheet3

Area Zip
1 18240
1 18250
1 18252
1 18706
2 18229
2 18235
2 18250
3 18030
3 18058
3 18071
4 18079
4 18080

Why don`t you use filter?

Originally Posted by venkat1926

what is difference between sheet 1 and sheet 3?

Sheet 3 is the result page and sheet 1 is the raw data




For example if I enter in sheet2

Column A
Area
2
4

then the results will be entered in sheet 3 as

Area Zip
2 18229
2 18235
2 18250
4 18079
4 18080

All possible matches based on Area(Column A) on Sheet2 from the rawdata sheet.

Originally Posted by lancer102rus

Why don`t you use filter?

I have too many areas to filter for which is why VBA code will be helpful and a lot quicker.

Event code for Sheet2

Please Login or Register  to view this content.

Thanks, Can this be done via a Macro instead of an Event code?

Maybe:

Please Login or Register  to view this content.