Extraction

[vahnx]

What's the simplest/most efficent way to extract data from a giant xlsx database into a seperate xlsx file? I need columns A, K-M, and BM-CT extracted only where AX has no value.

ie:

dim counter as integer
counter = 1
for i = start to end 'loops through every row in database
   if not range("AX" & CInt(i)) = "" then   ' matches criteria
        select range("A" & i), range("K" & i & ":M" & i), range("BM" & i & "CT" & i)
        selection.copy
        counter = counter + 1
        otherdatabase.rows(counter).paste
   end if
next i

 

[pgc01]

Hi

I'd use no code, i'd copy the data directly with the Advanced Filter.