Can you tell us what is happening that makes you think something is wrong
with code? Does it error out? If so, what error message are you getting? Or
does it work, but produce a wrong result? If so, can you give us some values
along, with the "correct" answer you are expecting, so that we can test it
out?

--
Rick (MVP - Excel)


"Dani Lima" wrote in message
...
Hey, could anyone helpme to find out what is wrong with this code?

'write the quatity of hours we have to deliver special gases

Windows("anc.xls").Activate
Range("I2").Select
ActiveCell.FormulaR1C1 = "=IF(ISERROR(VLOOKUP(RC[-7],'[Prazos de
entrega_matriz.xls]GE'!R2C1:R93C3,3,FALSE)),"",VLOOKUP(VLOOKUP(RC[-7],'[Prazos
de entrega_matriz.xls]GE'!R2C1:R93C3,3,FALSE),'[Tabela Prazos de Entrega -
Anchieta.xls]Prazo de entrega'!R13C1:R16C4,4,FALSE)*24)"
Range("I2").Select
Selection.Copy
Range("L2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False