range and variant

D

Danilo

From 5 different fies i have to fill a sheets("Base") where i have
Cod, Descripton, Amount

I do this
For iFile = 1 to 5
workbook.open "Agent" & trim(str(iFile))
set rng = Range("a10:u500") 'the range i need
arrAgents = rng.value

Call FillSheetBase

next


Now i need to fill form the variant array the sheets base
And i use this code in the sub FillSheetBase


for i = 1 to uBound(arrAgents,1)
Set c = Columns("A").cells.find(arrAgents(i,1))
if not c is nothing then
c.activate
c.offset(0,1) = arrAgents(i,5)
c.offset(0,2) = arrAgents(i,11)
endif
next

Any better idea?
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Dim IndxNum As Long & Dim c As Variant 7
A simple if <> nn then Msgbox "No Match" 5
Tried and true copy code lines fail me here 7
Select Case code error 8
Copy Application.Union(c.Offset(0, 1), c.Offset(0, 2)... to a list onsame & another sheet 27
Array with many cells from a row but not in order or together 11
Sheet to sheet code Type Mismatch 6
Copy row info but not in normal column sequence 6

Top