About Us

AD108

Thanks,

That worked
"Nigel" wrote in message
...
This works - but not sure if you get the results you expect?

Sub Honolulu()
Dim intPos As Integer
Dim i As Integer, x As Variant, y As Variant
x = Range("BS9:BS300")
y = Range("BT9:BT300")
i = 1
For i = 1 To UBound(x)
intPos = Application.Match(x(i, 1), ActiveSheet.Columns(2))
If Not IsError(intPos) Then
With ActiveSheet
.Cells(intPos, 11) = y(i, 1)
End With
End If
Next i

End Sub

--
Cheers
Nigel

"AD108" wrote in message
...
I am trying to use the following code to:

Transfer a 2 column range into "vertical arrays" two arrays
Find each element of the 1st array in a worksheet range
Print the corresponding element in the second array into a cell offset
from
the range

My code is not working. I am getting an error that I can't track down.

Sub Honolulu()
Dim intPos As Integer
Dim i As Integer
x = Range("BS9:BS300")
y = Range("BT9:BT300")
i = 1
For i = 1 To UBound(x, 1)
intPos = Application.Match(x(i, 1), ActiveSheet.Columns(2))
If Not IsError(intPos) Then
With ActiveSheet
.Cells(intPos, 11) = y(i)
End With
End If
Next i

End Sub

Thanks is advance

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to transfer specific range to another range ?	ghost	Excel Discussion (Misc queries)	0	June 11th 08 05:10 PM
Named Range Transfer	Graham Haughs	Excel Discussion (Misc queries)	9	February 21st 07 02:58 PM
VBA Array Transfer	JAY	Excel Programming	4	June 4th 04 09:01 AM
transfer cell range	gav meredith	Excel Programming	5	April 21st 04 02:08 AM
Transfer Range to Array	Steven Drenker	Excel Programming	1	November 9th 03 06:41 PM

Menu

About Us