need VB code for vlookup

[ushaanu]

hi ,
i have some data in excel sheets sheet 1 is main sheet and Sheet A,B,C ,i need vlook VB code for main sheet ,main sheet whole data unique value in column B i need mark
C D E F
Column data took from sheet A,B,C against unique no.

thanks
Anu

 

[Deepak]

Hope! you have reposted the same issue.

http://chandoo.org/forum/threads/need-macro-for-complie-3-sheets.15842/

 

[ushaanu]

hi deepak,

Actually i hve huge data and if i drag this formula in excel file . it`s become very

Heavy .if it`s convert to Macro i am very gratefull to you .

Regards

 

[Deepak]

Is formula giving the right output?

 

[ushaanu]

yes..Deepak

 

[Deepak]

Try this.

Sub Data_Fill()
Dim lrow As Long
lrow = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row
Range("AA2:AA" & lrow) = Evaluate("IFERROR(INDEX(A!AA:AA,MATCH(B2,A!B:B,0)),0)+IFERROR(INDEX(B!AA:AA,MATCH(B2,B!B:B,0)),0)+IFERROR(INDEX('C'!AA:AA,MATCH(B2,'C'!B:B,0)),)")
End Sub