Sub copyvisiblecells ()

Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste

end sub

This should get you started, substitue your own ranges and sheet names.

The key line of code is

Selection.SpecialCells(xlCellTypeVisible).Select

Best N10

"sefus12"

wrote in message
...

I've been trying to write a macro to copy and paste data from a column
in one spreadsheet over to a column in another spreadsheet. The
problem is that the first spreadsheet has several hidden rows of data
that I do not need in the second spreadsheet scattered within. Is
there a way to copy and paste just the data that is not hidden? Any
help would be appreciated. Thanks.


--
sefus12
------------------------------------------------------------------------
sefus12's Profile:
http://www.excelforum.com/member.php...o&userid=32755
View this thread: http://www.excelforum.com/showthread...hreadid=525853