In vba Return value of sheet 3 to sheet 1 if sheet 2 value is same to sheet 3 through array

[Khan kashaf]

In VBA I have 3 sheets (output, source,city) city sheet contains 2 column city id and city name .. and my source sheet have random city id .then I have to print city name of those source id in output sheet through array

Sub fetch()
Dim arr()
Dim arr2()
last = Worksheets("source").Range("A1").End(xlDown).Row
arr = Range("A1:D" & last)
ActiveWorkbook.Sheets("Source").Select
Range("A1:D" & last).Value = arr


For i = LBound(arr, 1) To UBound(arr, 1)
Count = Count + 1
ReDim Preserve arr2(1 To last, 1 To 3)
arr2(Count, 1) = Trim(arr(i, 1))
arr2(Count, 2) = Trim(arr(i, 2))
arr2(Count, 3) = Trim(arr(i, 3))


ActiveWorkbook.Sheets("Output").Select
Sheets("Output").Columns("A:C").AutoFit
Range("A1:C" & Count).Value = arr2
Next


lastrow = Worksheets("City").Range("A1").End(xlDown).Row
arr3 = Range("A1:B" & last)


Here I have created array of sheet city and source sheet.. pls guide me

 

[DanteAmor]

In VBA I have 3 sheets (output, source,city) city sheet contains 2 column city id and city name .. and my source sheet have random city id .then I have to print city name of those source id in output sheet through array

Your description is very clear to me.
But what you have in your macro I don't understand.
Let's forget your code for a moment.

You could give an example of what you have in your source and city sheets. And the result you want in the output sheet.
Use the XL2BB tool minisheet to put the examples.

 

[Khan kashaf]

Your description is very clear to me.
But what you have in your macro I don't understand.
Let's forget your code for a moment.

You could give an example of what you have in your source and city sheets. And the result you want in the output sheet.
Use the XL2BB tool minisheet to put the examples.

Thank you for the reply.. I have solved it