wrong code

D

Dani Lima

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
 
R

Rick Rothstein

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?
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top