G
Guest
My code is like this
Sub find()
Dim i as long
varr = Evaluate("Vlookup(A18, A344:AR558, {7,10,13,16,19}, False")
If IsArray(varr) then
For i = Lbound(varr) to Ubound(Varr)
Range("C18:G18").Value = Varr(i)
Next
End if
End Sub
Error which I get is you can't changea part of array.
I want the values found from array to be put in cells C18, D18, E18, F18, G18
Any help is highly appreciated
Thanks a lot in advance
Sub find()
Dim i as long
varr = Evaluate("Vlookup(A18, A344:AR558, {7,10,13,16,19}, False")
If IsArray(varr) then
For i = Lbound(varr) to Ubound(Varr)
Range("C18:G18").Value = Varr(i)
Next
End if
End Sub
Error which I get is you can't changea part of array.
I want the values found from array to be put in cells C18, D18, E18, F18, G18
Any help is highly appreciated
Thanks a lot in advance