View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Maistrye[_9_] Maistrye[_9_] is offline
external usenet poster
 
Posts: 1
Default Copying Regions with Filters/Hidden Columns


Hi,

I'm trying to copy a region which is has Hidden Columns. For example,
in my sheet, column C is hidden, and I'm trying to copy A1:E5 into
H1:L5. This works fine.

The problem occurs when I filter by a particular column. (Say A).

Now, when I copy A1:E5 into H1:L5, it's only copying 4 columns
(although it is copying all the rows).

Is there any way to avoid this? What am I doing incorrectly?

Here's the actual excerpt of my code.
---------------
Dim tSheet As Worksheet
Dim sSheet As Worksheet
Dim sCol As Long
Dim sRow As Long

Set tSheet = Worksheets("B")
Set sSheet = Worksheets("I")

sCol = 13
sRow = 4

sSheet.Range(sSheet.Cells(6, 2), sSheet.Cells(2505, 38)).Copy

With tSheet
Range(.Cells(sRow + 1, sCol + 1), .Cells(sRow + 2500, sCol +
37)).PasteSpecial Paste:=xlPasteValues, SkipBlanks:=False,
Transpose:=False
End With
---------------

Specifically, I'm ending up with 37 columns of data when I don't
filter, and 36 columns when I do filter (presumably because of the 1
hidden column).

Thanks in advance,
Scott


--
Maistrye
------------------------------------------------------------------------
Maistrye's Profile: http://www.excelforum.com/member.php...o&userid=36078
View this thread: http://www.excelforum.com/showthread...hreadid=573831