software

Rangeusing WindowsXP professional and excel 2003 (excel is in Italian) as I
am writing from Rome Italy and I need some help:

What I need is to in put a formula (if,true, false) in the cells of my excel.
the the macro I have used is:
Worksheets(quot;outputquot;).Range(quot;B17quot;)=quot;=SE(O_(B17=quot;quot;;D 17=quot;quot;;D17=0);quot;quot;;CERCA.VERT(B17;input!$A$3:$B$1000; 2;FALSO)*D17)quot;

I get an error (runtime 1004) I do not know if it due to the fact that VBA
macro doesn't recognice the instruction in italian in the formula )
Traslation SE= IF, CERCA.VERT= SEARCH Vertical)

I tried to use IF and VLOOKUP in place of the italian but got same error

Please can any one help me?

Thanks a lot

Francesco

Hi Francesco:

Worksheets(quot;ouputquot;).Range(quot;B17quot;).FormulaLocal =
quot;=SE(O_(B17=quot;quot;quot;quot;;D17=quot;quot;quot;quot;;D17=0);quot;quot;quot;quot;;CERCA.VERT(B 17;input!$A$3:$B$1000;2;FALSO)*D17)quot;
or
Worksheets(quot;ouputquot;).Range(quot;B17quot;).Formula = quot;=IF(O_(B17=quot;quot;quot;quot;;D17=quot;quot;quot;quot;;D17=0);quot;quot;quot;quot;;VLOOKUP(B17; input!$A$3:$B$1000;2;FALSE)*D17)quot;

Note the double quotes between quotes

--
Kind regards,

Niek Otten
quot;Francescoquot; gt; wrote in message ...
gt; Rangeusing WindowsXP professional and excel 2003 (excel is in Italian) as I
gt; am writing from Rome Italy and I need some help:
gt;
gt; What I need is to in put a formula (if,true, false) in the cells of my excel.
gt; the the macro I have used is:
gt; Worksheets(quot;outputquot;).Range(quot;B17quot;)=quot;=SE(O_(B17=quot;quot;;D 17=quot;quot;;D17=0);quot;quot;;CERCA.VERT(B17;input!$A$3:$B$1000; 2;FALSO)*D17)quot;
gt;
gt; I get an error (runtime 1004) I do not know if it due to the fact that VBA
gt; macro doesn't recognice the instruction in italian in the formula )
gt; Traslation SE= IF, CERCA.VERT= SEARCH Vertical)
gt;
gt; I tried to use IF and VLOOKUP in place of the italian but got same error
gt;
gt; Please can any one help me?
gt;
gt; Thanks a lot
gt;
gt; Francesco
small typo

Worksheets(quot;ouputquot;).Range(quot;B17quot;).Formula =
quot;=IF(OR(B17=quot;quot;quot;quot;,D17=quot;quot;quot;quot;,D17=0),quot;quot;quot;quot;,VLOOKUP(B17, input!$A$3:$B$1000,2,FALSE
)*D17)quot;--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

quot;Niek Ottenquot; gt; wrote in message
...
gt; Hi Francesco:
gt;
gt; Worksheets(quot;ouputquot;).Range(quot;B17quot;).FormulaLocal =
gt;
quot;=SE(O_(B17=quot;quot;quot;quot;;D17=quot;quot;quot;quot;;D17=0);quot;quot;quot;quot;;CERCA.VERT(B 17;input!$A$3:$B$1000;2;FA
LSO)*D17)quot;
gt; or
gt; Worksheets(quot;ouputquot;).Range(quot;B17quot;).Formula =
quot;=IF(O_(B17=quot;quot;quot;quot;;D17=quot;quot;quot;quot;;D17=0);quot;quot;quot;quot;;VLOOKUP(B17; input!$A$3:$B$1000;2;FALSE
)*D17)quot;
gt;
gt; Note the double quotes between quotes
gt;
gt; --
gt; Kind regards,
gt;
gt; Niek Otten
gt;
gt;
gt;
gt; quot;Francescoquot; gt; wrote in message
...
gt; gt; Rangeusing WindowsXP professional and excel 2003 (excel is in Italian)
as I
gt; gt; am writing from Rome Italy and I need some help:
gt; gt;
gt; gt; What I need is to in put a formula (if,true, false) in the cells of my
excel.
gt; gt; the the macro I have used is:
gt; gt;
Worksheets(quot;outputquot;).Range(quot;B17quot;)=quot;=SE(O_(B17=quot;quot;;D 17=quot;quot;;D17=0);quot;quot;;CERCA.VERT
(B17;input!$A$3:$B$1000;2;FALSO)*D17)quot;
gt; gt;
gt; gt; I get an error (runtime 1004) I do not know if it due to the fact that
VBA
gt; gt; macro doesn't recognice the instruction in italian in the formula )
gt; gt; Traslation SE= IF, CERCA.VERT= SEARCH Vertical)
gt; gt;
gt; gt; I tried to use IF and VLOOKUP in place of the italian but got same
error
gt; gt;
gt; gt; Please can any one help me?
gt; gt;
gt; gt; Thanks a lot
gt; gt;
gt; gt; Francesco
gt;
gt;
Hi Niek Otten
Thanks for your suggestion but neither one of the 2 solution works,
macro stops at that line for a runtime erroro number 9 and a statement quot;
index not inclided in the intervalquot;

Any othe suggestion?

regards Francesco

quot;Niek Ottenquot; wrote:

gt; Hi Francesco:
gt;
gt; Worksheets(quot;ouputquot;).Range(quot;B17quot;).FormulaLocal =
gt; quot;=SE(O_(B17=quot;quot;quot;quot;;D17=quot;quot;quot;quot;;D17=0);quot;quot;quot;quot;;CERCA.VERT(B 17;input!$A$3:$B$1000;2;FALSO)*D17)quot;
gt; or
gt; Worksheets(quot;ouputquot;).Range(quot;B17quot;).Formula = quot;=IF(O(B17=quot;quot;quot;quot;;D17=quot;quot;quot;quot;;D17=0);quot;quot;quot;quot;;VLOOKUP(B17;i nput!$A$3:$B$1000;2;FALSE)*D17)quot;
gt;
gt; Note the double quotes between quotes
gt;
gt; --
gt; Kind regards,
gt;
gt; Niek Otten
gt;
gt;
gt;
gt; quot;Francescoquot; gt; wrote in message ...
gt; gt; Rangeusing WindowsXP professional and excel 2003 (excel is in Italian) as I
gt; gt; am writing from Rome Italy and I need some help:
gt; gt;
gt; gt; What I need is to in put a formula (if,true, false) in the cells of my excel.
gt; gt; the the macro I have used is:
gt; gt; Worksheets(quot;outputquot;).Range(quot;B17quot;)=quot;=SE(O_(B17=quot;quot;;D 17=quot;quot;;D17=0);quot;quot;;CERCA.VERT(B17;input!$A$3:$B$1000; 2;FALSO)*D17)quot;
gt; gt;
gt; gt; I get an error (runtime 1004) I do not know if it due to the fact that VBA
gt; gt; macro doesn't recognice the instruction in italian in the formula )
gt; gt; Traslation SE= IF, CERCA.VERT= SEARCH Vertical)
gt; gt;
gt; gt; I tried to use IF and VLOOKUP in place of the italian but got same error
gt; gt;
gt; gt; Please can any one help me?
gt; gt;
gt; gt; Thanks a lot
gt; gt;
gt; gt; Francesco
gt;
gt;
gt;

Thanks Bob but I get same type of error ( error typequot; 9quot; and index not
included in the interval)

quot;Bob Phillipsquot; wrote:

gt; small typo
gt;
gt; Worksheets(quot;ouputquot;).Range(quot;B17quot;).Formula =
gt; quot;=IF(OR(B17=quot;quot;quot;quot;,D17=quot;quot;quot;quot;,D17=0),quot;quot;quot;quot;,VLOOKUP(B17, input!$A$3:$B$1000,2,FALSE
gt; )*D17)quot;
gt;
gt;
gt; --
gt; HTH
gt;
gt; Bob Phillips
gt;
gt; (remove nothere from email address if mailing direct)
gt;
gt; quot;Niek Ottenquot; gt; wrote in message
gt; ...
gt; gt; Hi Francesco:
gt; gt;
gt; gt; Worksheets(quot;ouputquot;).Range(quot;B17quot;).FormulaLocal =
gt; gt;
gt; quot;=SE(O_(B17=quot;quot;quot;quot;;D17=quot;quot;quot;quot;;D17=0);quot;quot;quot;quot;;CERCA.VERT(B 17;input!$A$3:$B$1000;2;FA
gt; LSO)*D17)quot;
gt; gt; or
gt; gt; Worksheets(quot;ouputquot;).Range(quot;B17quot;).Formula =
gt; quot;=IF(O_(B17=quot;quot;quot;quot;;D17=quot;quot;quot;quot;;D17=0);quot;quot;quot;quot;;VLOOKUP(B17; input!$A$3:$B$1000;2;FALSE
gt; )*D17)quot;
gt; gt;
gt; gt; Note the double quotes between quotes
gt; gt;
gt; gt; --
gt; gt; Kind regards,
gt; gt;
gt; gt; Niek Otten
gt; gt;
gt; gt;
gt; gt;
gt; gt; quot;Francescoquot; gt; wrote in message
gt; ...
gt; gt; gt; Rangeusing WindowsXP professional and excel 2003 (excel is in Italian)
gt; as I
gt; gt; gt; am writing from Rome Italy and I need some help:
gt; gt; gt;
gt; gt; gt; What I need is to in put a formula (if,true, false) in the cells of my
gt; excel.
gt; gt; gt; the the macro I have used is:
gt; gt; gt;
gt; Worksheets(quot;outputquot;).Range(quot;B17quot;)=quot;=SE(O_(B17=quot;quot;;D 17=quot;quot;;D17=0);quot;quot;;CERCA.VERT
gt; (B17;input!$A$3:$B$1000;2;FALSO)*D17)quot;
gt; gt; gt;
gt; gt; gt; I get an error (runtime 1004) I do not know if it due to the fact that
gt; VBA
gt; gt; gt; macro doesn't recognice the instruction in italian in the formula )
gt; gt; gt; Traslation SE= IF, CERCA.VERT= SEARCH Vertical)
gt; gt; gt;
gt; gt; gt; I tried to use IF and VLOOKUP in place of the italian but got same
gt; error
gt; gt; gt;
gt; gt; gt; Please can any one help me?
gt; gt; gt;
gt; gt; gt; Thanks a lot
gt; gt; gt;
gt; gt; gt; Francesco
gt; gt;
gt; gt;
gt;
gt;
gt;

Bob pointed to a typo (O_ instead of OR), and I misspelled quot;outputquot;

After correction of the typo, the statement works for me from VBE. However, you have circular references (B17); shouldn't they
refer to another sheet?--
Kind regards,

Niek Otten
quot;Francescoquot; gt; wrote in message ...
gt; Hi Niek Otten
gt; Thanks for your suggestion but neither one of the 2 solution works,
gt; macro stops at that line for a runtime erroro number 9 and a statement quot;
gt; index not inclided in the intervalquot;
gt;
gt; Any othe suggestion?
gt;
gt; regards Francesco
gt;
gt; quot;Niek Ottenquot; wrote:
gt;
gt;gt; Hi Francesco:
gt;gt;
gt;gt; Worksheets(quot;ouputquot;).Range(quot;B17quot;).FormulaLocal =
gt;gt; quot;=SE(O_(B17=quot;quot;quot;quot;;D17=quot;quot;quot;quot;;D17=0);quot;quot;quot;quot;;CERCA.VERT(B 17;input!$A$3:$B$1000;2;FALSO)*D17)quot;
gt;gt; or
gt;gt; Worksheets(quot;ouputquot;).Range(quot;B17quot;).Formula = quot;=IF(O(B17=quot;quot;quot;quot;;D17=quot;quot;quot;quot;;D17=0);quot;quot;quot;quot;;VLOOKUP(B17;i nput!$A$3:$B$1000;2;FALSE)*D17)quot;
gt;gt;
gt;gt; Note the double quotes between quotes
gt;gt;
gt;gt; --
gt;gt; Kind regards,
gt;gt;
gt;gt; Niek Otten
gt;gt;
gt;gt;
gt;gt;
gt;gt; quot;Francescoquot; gt; wrote in message ...
gt;gt; gt; Rangeusing WindowsXP professional and excel 2003 (excel is in Italian) as I
gt;gt; gt; am writing from Rome Italy and I need some help:
gt;gt; gt;
gt;gt; gt; What I need is to in put a formula (if,true, false) in the cells of my excel.
gt;gt; gt; the the macro I have used is:
gt;gt; gt; Worksheets(quot;outputquot;).Range(quot;B17quot;)=quot;=SE(O_(B17=quot;quot;;D 17=quot;quot;;D17=0);quot;quot;;CERCA.VERT(B17;input!$A$3:$B$1000; 2;FALSO)*D17)quot;
gt;gt; gt;
gt;gt; gt; I get an error (runtime 1004) I do not know if it due to the fact that VBA
gt;gt; gt; macro doesn't recognice the instruction in italian in the formula )
gt;gt; gt; Traslation SE= IF, CERCA.VERT= SEARCH Vertical)
gt;gt; gt;
gt;gt; gt; I tried to use IF and VLOOKUP in place of the italian but got same error
gt;gt; gt;
gt;gt; gt; Please can any one help me?
gt;gt; gt;
gt;gt; gt; Thanks a lot
gt;gt; gt;
gt;gt; gt; Francesco
gt;gt;
gt;gt;
gt;gt;
Hi Niek Otten

Wow !!! Thanks finally worked fine. The macro I used is the one in which you
suggested quot;FormulaLocalquot;

thanks a lot again
Francesco

quot;Niek Ottenquot; wrote:

gt; Hi Francesco:
gt;
gt; Worksheets(quot;outputquot;).Range(quot;B17quot;).FormulaLocal =
gt; quot;=SE(O_(B17=quot;quot;quot;quot;;D17=quot;quot;quot;quot;;D17=0);quot;quot;quot;quot;;CERCA.VERT(B 17;input!$A$3:$B$1000;2;FALSO)*D17)quot;
gt; or
gt; Worksheets(quot;ouputquot;).Range(quot;B17quot;).Formula = quot;=IF(O_(B17=quot;quot;quot;quot;;D17=quot;quot;quot;quot;;D17=0);quot;quot;quot;quot;;VLOOKUP(B17; input!$A$3:$B$1000;2;FALSE)*D17)quot;
gt;
gt; Note the double quotes between quotes
gt;
gt; --
gt; Kind regards,
gt;
gt; Niek Otten
gt;
gt;
gt;
gt; quot;Francescoquot; gt; wrote in message ...
gt; gt; Rangeusing WindowsXP professional and excel 2003 (excel is in Italian) as I
gt; gt; am writing from Rome Italy and I need some help:
gt; gt;
gt; gt; What I need is to in put a formula (if,true, false) in the cells of my excel.
gt; gt; the the macro I have used is:
gt; gt; Worksheets(quot;outputquot;).Range(quot;B17quot;)=quot;=SE(O_(B17=quot;quot;;D 17=quot;quot;;D17=0);quot;quot;;CERCA.VERT(B17;input!$A$3:$B$1000; 2;FALSO)*D17)quot;
gt; gt;
gt; gt; I get an error (runtime 1004) I do not know if it due to the fact that VBA
gt; gt; macro doesn't recognice the instruction in italian in the formula )
gt; gt; Traslation SE= IF, CERCA.VERT= SEARCH Vertical)
gt; gt;
gt; gt; I tried to use IF and VLOOKUP in place of the italian but got same error
gt; gt;
gt; gt; Please can any one help me?
gt; gt;
gt; gt; Thanks a lot
gt; gt;
gt; gt; Francesco
gt;
gt;
gt;

Yes Niek, you are right with the circular reference B17 infact I mispelled
it, it must have been E17
the formula that work perfectly and that I implemented is:
Worksheets(quot;outputquot;).range(quot;E17:E32quot;).FormulaLocal =

quot;=SE(O(B17=quot;quot;quot;quot;;D17=quot;quot;quot;quot;;D17=0);quot;quot;quot;quot;;CERCA.VERT(B1 7;input!$A$3:$B$1000;2;FALSO)*D17)quot;
quot;Niek Ottenquot; wrote:

gt; Bob pointed to a typo (O_ instead of OR), and I misspelled quot;outputquot;
gt;
gt; After correction of the typo, the statement works for me from VBE. However, you have circular references (B17); shouldn't they
gt; refer to another sheet?
gt;
gt;
gt; --
gt; Kind regards,
gt;
gt; Niek Otten
gt;
gt;
gt;
gt; quot;Francescoquot; gt; wrote in message ...
gt; gt; Hi Niek Otten
gt; gt; Thanks for your suggestion but neither one of the 2 solution works,
gt; gt; macro stops at that line for a runtime erroro number 9 and a statement quot;
gt; gt; index not inclided in the intervalquot;
gt; gt;
gt; gt; Any othe suggestion?
gt; gt;
gt; gt; regards Francesco
gt; gt;
gt; gt; quot;Niek Ottenquot; wrote:
gt; gt;
gt; gt;gt; Hi Francesco:
gt; gt;gt;
gt; gt;gt; Worksheets(quot;ouputquot;).Range(quot;B17quot;).FormulaLocal =
gt; gt;gt; quot;=SE(O_(B17=quot;quot;quot;quot;;D17=quot;quot;quot;quot;;D17=0);quot;quot;quot;quot;;CERCA.VERT(B 17;input!$A$3:$B$1000;2;FALSO)*D17)quot;
gt; gt;gt; or
gt; gt;gt; Worksheets(quot;ouputquot;).Range(quot;B17quot;).Formula = quot;=IF(O(B17=quot;quot;quot;quot;;D17=quot;quot;quot;quot;;D17=0);quot;quot;quot;quot;;VLOOKUP(B17;i nput!$A$3:$B$1000;2;FALSE)*D17)quot;
gt; gt;gt;
gt; gt;gt; Note the double quotes between quotes
gt; gt;gt;
gt; gt;gt; --
gt; gt;gt; Kind regards,
gt; gt;gt;
gt; gt;gt; Niek Otten
gt; gt;gt;
gt; gt;gt;
gt; gt;gt;
gt; gt;gt; quot;Francescoquot; gt; wrote in message ...
gt; gt;gt; gt; Rangeusing WindowsXP professional and excel 2003 (excel is in Italian) as I
gt; gt;gt; gt; am writing from Rome Italy and I need some help:
gt; gt;gt; gt;
gt; gt;gt; gt; What I need is to in put a formula (if,true, false) in the cells of my excel.
gt; gt;gt; gt; the the macro I have used is:
gt; gt;gt; gt; Worksheets(quot;outputquot;).Range(quot;B17quot;)=quot;=SE(O_(B17=quot;quot;;D 17=quot;quot;;D17=0);quot;quot;;CERCA.VERT(B17;input!$A$3:$B$1000; 2;FALSO)*D17)quot;
gt; gt;gt; gt;
gt; gt;gt; gt; I get an error (runtime 1004) I do not know if it due to the fact that VBA
gt; gt;gt; gt; macro doesn't recognice the instruction in italian in the formula )
gt; gt;gt; gt; Traslation SE= IF, CERCA.VERT= SEARCH Vertical)
gt; gt;gt; gt;
gt; gt;gt; gt; I tried to use IF and VLOOKUP in place of the italian but got same error
gt; gt;gt; gt;
gt; gt;gt; gt; Please can any one help me?
gt; gt;gt; gt;
gt; gt;gt; gt; Thanks a lot
gt; gt;gt; gt;
gt; gt;gt; gt; Francesco
gt; gt;gt;
gt; gt;gt;
gt; gt;gt;
gt;
gt;
gt;