Formula in loop stops working

Hi,

I have a problem that I cant seem to find a solution to.

-----------

Do While rowcount < 24

Tbook.Worksheets("Data1").Cells(i, j) =
"=VLOOKUP(RC[-1],Library!R2C[-2]:R192C _ [1],3,FALSE)"
rowount = rowcount + 1
j = j + 1
Loop

-----------

In the first iteration/cell the formula:
=VLOOKUP(B21,Library!A$2:D$192,3,FALSE)
comes up in the cell. (This is the way I want it).

For my next iteration/cell following shows up:
=VLOOKUP(RC[-1],Library!R2C[-2]:R192C[1],3,FALSE)
i.e. it does not change the formula like it should. It fills the cell like
it was text.

Does anyone a solution to this?

Thanx in advance
Jim

Jim,

Perhaps your cell was formatted for text. Try

Do While RowCount < 24
With Tbook.Worksheets("Data1").Cells(i, j)
.NumberFormat = "General"
.FormulaR1C1 = "=VLOOKUP(RC[-1],Library!R2C[-2]:R192C[1],3,FALSE)"
End with
RowCount = RowCount + 1
j = j + 1
Loop

HTH,
Bernie
MS Excel MVP

"Jim73" <[email protected]> wrote in message
news:[email protected]...
> Hi,
>
> I have a problem that I cant seem to find a solution to.
>
> -----------
>
> Do While rowcount < 24
>
> Tbook.Worksheets("Data1").Cells(i, j) =
> "=VLOOKUP(RC[-1],Library!R2C[-2]:R192C _ [1],3,FALSE)"
> rowount = rowcount + 1
> j = j + 1
> Loop
>
> -----------
>
> In the first iteration/cell the formula:
> =VLOOKUP(B21,Library!A$2:D$192,3,FALSE)
> comes up in the cell. (This is the way I want it).
>
> For my next iteration/cell following shows up:
> =VLOOKUP(RC[-1],Library!R2C[-2]:R192C[1],3,FALSE)
> i.e. it does not change the formula like it should. It fills the cell like
> it was text.
>
> Does anyone a solution to this?
>
> Thanx in advance
> Jim
>
>

It worked. Now I dont need to work overtime (today) =)

Thanx

"Bernie Deitrick" wrote:

> Jim,
>
> Perhaps your cell was formatted for text. Try
>
> Do While RowCount < 24
> With Tbook.Worksheets("Data1").Cells(i, j)
> .NumberFormat = "General"
> .FormulaR1C1 = "=VLOOKUP(RC[-1],Library!R2C[-2]:R192C[1],3,FALSE)"
> End with
> RowCount = RowCount + 1
> j = j + 1
> Loop
>
> HTH,
> Bernie
> MS Excel MVP
>
> "Jim73" <[email protected]> wrote in message
> news:[email protected]...
> > Hi,
> >
> > I have a problem that I cant seem to find a solution to.
> >
> > -----------
> >
> > Do While rowcount < 24
> >
> > Tbook.Worksheets("Data1").Cells(i, j) =
> > "=VLOOKUP(RC[-1],Library!R2C[-2]:R192C _ [1],3,FALSE)"
> > rowount = rowcount + 1
> > j = j + 1
> > Loop
> >
> > -----------
> >
> > In the first iteration/cell the formula:
> > =VLOOKUP(B21,Library!A$2:D$192,3,FALSE)
> > comes up in the cell. (This is the way I want it).
> >
> > For my next iteration/cell following shows up:
> > =VLOOKUP(RC[-1],Library!R2C[-2]:R192C[1],3,FALSE)
> > i.e. it does not change the formula like it should. It fills the cell like
> > it was text.
> >
> > Does anyone a solution to this?
> >
> > Thanx in advance
> > Jim
> >
> >
>
>
>