VLookup or Index_Match Macro

[izzy]

I'm just getting into VBA.
I need to at the very least do Vlookups with VBA to speed up my workbooks and reduce file size. Though I could be wrong.
My ranges are very large and the number of formulas is outrageous.

All cells from P13:P5000 contain this formula, dynamically.
VLOOKUP(A13,Orders!$Q$7:$S$7000,3,FALSE)

Q4000= IF(P4000="","",VLOOKUP(A4000,Orders!$Q$7:$T$7000,4,FALSE))

ect...

With this much math going on would a macro be helpful with speed and filesize or should I just leave it as it is?

 

[Ekim]

Izzy_Demo.xls
	P	Q	R	S	T	U	V
1
2
3
4
5		00P138751	399	155	98	171
6		00P138752	261	308	258	223
7		00P138753	237	435	100	376
8		00P138754	211	144	342	207
9		00P138755	91	484	389	262
10		00P138756	352	117	198	409
11		00P138757	188	443	398	209
12		00P138758	353	157	168	210
13		00P138759	116	500	279	483
14		00P138760	464	118	205	149
15
16
Orders

 

[izzy]

Private Sub Worksheet_Change Worked fine for what it is.
But My problem has to do with static data(can not be filtered). A database used for material requirments planning and material allocation planning. Bill of materials, ect...

Anyway...
I turn my formulas on and off with buttons/check boxes. if(a1=1,0,sumif_something).
if(E1=TRUE,lookupsomething,"") ect...
I was just curious if VBA could help me using LARGE static data tables.

Book2.xls
	A	B	C	D	E	F	G	H	I	J	K
7	Sheet1							Sheet2
8	Report							Orders
9	PIN	Name	Totalorders	FirstDue	tonmore	formulas>		Pin	Name	QtyOrdered	Due
10	00P138752	nameofpc.	940	3/4/04	suchas	3/4/04		00P138752	nameofpc.	261	3/4/2004
11	00P138753	it's	283	3/29/04	ifdates	notsorted		00P138752	nameofpc.	123	3/12/2004
12	00P138754	who	690	3/15/04				00P138752	nameofpc.	556	4/7/2004
13	00P138755	Big10"	91	12/1/03				00P138753	it's	46	3/29/2004
14	00P138756	AeroSmitty	352	12/30/03				00P138753	it's	237	3/29/2004
15	00P138757	ect	188	3/4/04				00P138754	who	12	3/15/2004
16	00P138758	ect2	353	3/12/04				00P138754	who	467	4/2/2004
17	00P138759	ect3	116	2/1/04				00P138754	who	211	5/1/2004
18	00P138744	NotFound						00P138755	Big10"	91	12/1/2003
19	macro	worked						00P138756	AeroSmitty	352	12/30/2003
20								00P138757	ect	188	3/4/2004
21								00P138758	ect2	353	3/12/2004
22								00P138759	ect3	116	2/1/2004
Sheet1

BTW those formulas turning up errors was due to me changing my part number. Customer contracts demand privacy, maybe I shouldn't have posted sorry. =IF(E1944>0,VLOOKUP(A1944,Orders!$Q$7:$S$599,2,FALSE),"") E1944 does always turn up a real number. Zero or greater.