Vlookup

[kenpcli]

How do I get my vlookup to copy down to last cell in column.

Range("D2").Select
ActiveCell.Formula = "=VLOOKUP(C2,'01-07 TO 01-13'!$C:$E,2,0)"

 

[wideboydixon]

Range("D2:D" & Range("D" & Rows.Count).End(xlUp).Row).Formula = "=VLOOKUP(C2,'01-07 TO 01-13'!$C:$E,2,0)"

Untested ...

WBD

 

[kenpcli]

ok so if I use that add to it say:

=IF(ISNA(VLOOKUP(C2,'12-31 TO 01-06'!$C$1:$E$1000,2,FALSE)),NONE,VLOOKUP(C2,'01-07 TO 01-13'!$C$1:$E$1000,2,FALSE))

how do I get VB to let me input a word? it does like when I put "NONE". IS ERRORS
By the way the first part works great.

 

[wideboydixon]

Range("D2:D" & Range("D" & Rows.Count).End(xlUp).Row).Formula = "=IF(ISNA(VLOOKUP(C2,'12-31 TO 01-06'!$C$1:$E$1000,2,FALSE)),""NONE"",VLOOKUP(C2,'01-07 TO 01-13'!$C$1:$E$1000,2,FALSE))"

WBD

 

[kenpcli]

Thank you, I caught the double quotes I needed last night.