i am having trouble with this code .. variable sid pulls the company
code from another workbook. this works perfectly. but the error
happens when i enter the do while loop. when i want to place the
getpivotdata formula in the cell.
can someone please help me with this. I think the problem is
happening due to my quotes.. because i am trying to pull values from
variables in my code and insert them into the string. i cant seem to
figure out if my quotes are just in the wrong place.. or if i am just
not doing it correctly. .

I anyone would be kind enough to help me Iwould greatly appriciate it.

Dim sid As Double
Dim amount As Integer

sid = Application.Run("'personal.xlsb'!Numberit",
mybook.Worksheets("Revenue & Product Data").Range("A1"))
i = 20

Do While i < 61
Range("E" & i).Select
ActiveCell.FormulaR1C1 = _
"=GETPIVOTDATA(""YTD Total Units"",[PERSONAL.XLSB]Sheet5!
R3C1,""SIEBELLINKID""," & CStr(sid) & ",""CU_CODE"",$A" & CStr(i) &
")"
i = i + 1

Loop

See possible answer to your later posting of this question.

--
Regards,
Tom Ogilvy


"mithu" wrote:

> i am having trouble with this code .. variable sid pulls the company
> code from another workbook. this works perfectly. but the error
> happens when i enter the do while loop. when i want to place the
> getpivotdata formula in the cell.
> can someone please help me with this. I think the problem is
> happening due to my quotes.. because i am trying to pull values from
> variables in my code and insert them into the string. i cant seem to
> figure out if my quotes are just in the wrong place.. or if i am just
> not doing it correctly. .
>
> I anyone would be kind enough to help me Iwould greatly appriciate it.
>
> Dim sid As Double
> Dim amount As Integer
>
> sid = Application.Run("'personal.xlsb'!Numberit",
> mybook.Worksheets("Revenue & Product Data").Range("A1"))
> i = 20
>
> Do While i < 61
> Range("E" & i).Select
> ActiveCell.FormulaR1C1 = _
> "=GETPIVOTDATA(""YTD Total Units"",[PERSONAL.XLSB]Sheet5!
> R3C1,""SIEBELLINKID""," & CStr(sid) & ",""CU_CODE"",$A" & CStr(i) &
> ")"
> i = i + 1
>
> Loop
>
>