refer to same cell in other worksheet

rnCell.Formula = Worksheets("Sheet2").Range(rnCell.Address).Formula

HTH
--
AP

"JW Rutgers" <j.rutgers@chello.nl> a écrit dans le message de
news:d624f$4428fc8a$d55dddf0$28589@news.chello.nl...
> I am analyzing various ranges in a worksheet. If a cell in the range is
> empty, I want this cell to have the value of the same cell reference in
> another worksheet.
> Up to now I picked the value by using a relative reference within the
> worksheet, but I now have to pick the value from the same cell reference
in
> another worksheet
>
> For Each rnCell In rnArea
> If rnCell.Value = "" Then
> rnCell.Formula = rnCell6.offset(23, 0).FormulaR1C1
> End If
> Next
>
> Is there a solution?
>
>

Thanks! It works great


"Ardus Petus" <ardus.petus@laposte.net> schreef in bericht
news:%234o9AfkUGHA.1204@TK2MSFTNGP12.phx.gbl...
> rnCell.Formula = Worksheets("Sheet2").Range(rnCell.Address).Formula
>
> HTH
> --
> AP
>
> "JW Rutgers" <j.rutgers@chello.nl> a écrit dans le message de
> news:d624f$4428fc8a$d55dddf0$28589@news.chello.nl...
> > I am analyzing various ranges in a worksheet. If a cell in the range is
> > empty, I want this cell to have the value of the same cell reference in
> > another worksheet.
> > Up to now I picked the value by using a relative reference within the
> > worksheet, but I now have to pick the value from the same cell reference
> in
> > another worksheet
> >
> > For Each rnCell In rnArea
> > If rnCell.Value = "" Then
> > rnCell.Formula = rnCell6.offset(23, 0).FormulaR1C1
> > End If
> > Next
> >
> > Is there a solution?
> >
> >
>
>