strange range access

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

tom taol - 25 Sep 2007 06:23 GMT

Set r = Union([a2], [a4], [a9])
r.FormulaR1C1 = "=r[-1]c"
r.Value = r.Value

i want to chang result value of function of non continuous cells to
value....

Reply to this Message

Tim Williams - 25 Sep 2007 07:45 GMT

Sub Tester()
Dim a As Range, r As Range

Set r = Union([a2], [a4], [a9:b9])

For Each a In r.Areas
a.Value = a.Offset(-1, 0).Value
Next a
End Sub

Tim

> Set r = Union([a2], [a4], [a9])
> r.FormulaR1C1 = "=r[-1]c"
[quoted text clipped - 4 lines]
>
> *** Sent via Developersdex http://www.developersdex.com ***

Reply to this Message

tom taol - 25 Sep 2007 08:06 GMT

Using of for loop, no, no...
I want to do once. express access

Reply to this Message