Create Array From Values in range

  • Thread starter Thread starter Tony Di Stasi
  • Start date Start date
T

Tony Di Stasi

trying to creat a variant with the values in Range(Cells
(1), Cells(1, 9) so that I can run throught another range
and flage matches. Can't seem to get the variant to
work. Thanks!!!

Dim vAGYBOOKS As Variant
Dim vGOVBOOKS As Variant
Dim vGRRBOOKS As Variant
Dim i As Integer
Dim r As Integer


cGOVBOOKS = Array(Range(Cells(1), Cells(1, 9)))

For i = r To 1 Step -1
Debug.Print Cells(i, 4).Formula
If Not IsError(Application.Match(Cells(i,
4).Formula, cGOVBOOKS, 0)) Then
Cells(i, 3) = "GOVTS"
End If
Next i


End Sub
 
You declared vGOVBOOKS and use cGOVBOOKS. Assuming you declare
cGOVBOOKS, change

cGOVBOOKS = Array(Range(Cells(1), Cells(1, 9)))

to

cGOVBOOKS = Range(Cells(1), Cells(1, 9))

I didn't consider the loop.

Alan Beban
 
Thanks!!! Simple typo
-----Original Message-----
You declared vGOVBOOKS and use cGOVBOOKS. Assuming you declare
cGOVBOOKS, change

cGOVBOOKS = Array(Range(Cells(1), Cells(1, 9)))

to

cGOVBOOKS = Range(Cells(1), Cells(1, 9))

I didn't consider the loop.

Alan Beban


.
Click to expand...
 
Back
Top