tranfer array to range

Hello,

Forgive me if this shows up twice. I neglected the subject line.

I am trying to transfer a range to an array, then transfer the values back
to a different range, based on a condition. My array is returning
"subscript out of range" error. Thanks in advance for any help.

Sub TransferData()
Dim i As Integer
Dim x()
x = Range("AG3:AG398")
For i = 0 To 397
If IsEmpty(Cells(i + 3, 7)) Then
Cells(i + 3, 7).Value = x ( i )
End If
Next i

End Sub

Does this make sense for you ?
Dim x As Variant

x = Range("AG3:AG398").Value

Debug.Print LBound(x, 1) & " to " & UBound(x, 1)
Debug.Print LBound(x, 2) & " to " & UBound(x, 2)

NickHK

"AD108" <[email protected]> 撰寫於郵件新聞:%[email protected]...
> Hello,
>
> Forgive me if this shows up twice. I neglected the subject line.
>
> I am trying to transfer a range to an array, then transfer the values back
> to a different range, based on a condition. My array is returning
> "subscript out of range" error. Thanks in advance for any help.
>
> Sub TransferData()
> Dim i As Integer
> Dim x()
> x = Range("AG3:AG398")
> For i = 0 To 397
> If IsEmpty(Cells(i + 3, 7)) Then
> Cells(i + 3, 7).Value = x ( i )
> End If
> Next i
>
> End Sub
>
>

Yes, I've got it working now. Thanks very much

"NickHK" <[email protected]> wrote in message news:[email protected]...
> Does this make sense for you ?
> Dim x As Variant
>
> x = Range("AG3:AG398").Value
>
> Debug.Print LBound(x, 1) & " to " & UBound(x, 1)
> Debug.Print LBound(x, 2) & " to " & UBound(x, 2)
>
> NickHK
>
> "AD108" <[email protected]>
撰寫於郵件新聞:%[email protected]...
> > Hello,
> >
> > Forgive me if this shows up twice. I neglected the subject line.
> >
> > I am trying to transfer a range to an array, then transfer the values
back
> > to a different range, based on a condition. My array is returning
> > "subscript out of range" error. Thanks in advance for any help.
> >
> > Sub TransferData()
> > Dim i As Integer
> > Dim x()
> > x = Range("AG3:AG398")
> > For i = 0 To 397
> > If IsEmpty(Cells(i + 3, 7)) Then
> > Cells(i + 3, 7).Value = x ( i )
> > End If
> > Next i
> >
> > End Sub
> >
> >
>
>