Cut / Paste Hidden Rows ONLY

[danjw_98]

I was wondering if there was some way to cut and paste ONLY the hidden rows on a sheet and paste them to a different sheet? appreciate any help that could be provided.

 

[Sthrncali]

Try this code:

Sub CopyHidden()
Dim LastRow As Integer
Dim NextRow As Integer
Dim Dest As Worksheet
Set Dest = Worksheets("Sheet2") 'This is where you want your rows copied to.
LastRow = ActiveSheet.Range("A50000").End(xlUp).Row 'Assuming there is data in ColA. If not change A to a Col that has data in your table.
 
For r = LastRow To 1 Step -1
If ActiveSheet.Cells(r, 1).EntireRow.Hidden = True Then
NextRow = Dest.Range("A50000").End(xlUp).Offset(1, 0).Row 'Again assumes your destination worksheet has data in ColA. If not change A to a Col that has data in your table.
Dest.Cells(NextRow, 1).EntireRow.Value = ActiveSheet.Cells(r, 1).EntireRow.Value
ActiveSheet.Cells(r, 1).EntireRow.Delete
End If
Next

End Sub

 

[danjw_98]

it worked....thanks...