VBA code for search and print the form

Hi, i think that i need big help here.
I have a sheet named Numbers which it having an area with numbers, and a sheet named Form with a range for printing. In this range, cell E13 is for numbers from sheet Numbers, and cell D11 is for type of each number. Now, may i have a button, and when i click on it doing the following,
look at the sheet Numbers for the first number and put it to cell E13, and in D11 put the type of this number, and print the range B2:M73 from sheet Form.
Then again for the second listed number etc
This needed to be made for all numbers that exist in the range in sheet Numbers.
Is this possible?
Thanks in advance.

Up for view

Please Login or Register  to view this content.

Works great Ben!
I have two questions,
In With Sheets("Numbers") TypeList = .Range("A4:AB4").Value the range is the types but the types are in D4:AB4. Can you please explain this to me, because i have no idea from vba code.
is it easy to modify the code to search in D5:AB29 by list? Example, First in D5:D29 ,next E5:E29, next F5:F29, ... Until AB5:AB29?
Thanks for help again!

TypeList is an array. When I fill the array starting at column D the first Type will go into row #1. However, I'm starting the number search in sheet column D (i.e. column #4). I wanted to use the column number of the found string to return the Type from the array. So I could have subtracted 3 from the found column to get the correct array row number. Since I chose to fill the TypeList starting with Column A, the array row corresponds to the column of the found numberstring without the subtraction.

There would only be a small change in the code:

TypeList = .Range("A4:AB4").Value would change to TypeList = .Range("D4:AB4").Value

and
.Range("D11").Value = TypeList(1, NumStr.Column) would change to .Range("D11").Value = TypeList(1, NumStr.Column-3)

Doing it without the array for the types:

Please Login or Register  to view this content.

If you want to search by columns you need two loops (something like):

Please Login or Register  to view this content.

Thank you for the info and for your help! I wil try it and i will inform you for the results.