Exclude certain columns from being copied

I'm using this code to copy data to a new worksheet.

Is it possible to exclude certain columns, say the 15th column?

For Each r In rngDb
   rngOut.Offset(i).Value = r.Resize(, 24).Value
   i = i + 1     
Next r

Open in new window

LVL 2
mcnuttlawAsked:
Who is Participating?
 
Rory ArchibaldCommented:
You would have to loop through the cells rather than using resize, or perform the action in two blocks:

For Each r In rngDb
   with rngOut.Offset(i)
       .resize(, 14).Value = r.Resize(, 14).Value
       .offset(, 15).resize(, 8).value = r.offset(, 15).Resize(, 8).value
   End With
   i = i + 1     
Next r

Open in new window


Note: this assumes you leave a gap in the range you copy to; if you don't want that, then the first offset should be by 14 not 15.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.