Code's great, but the cells that got copied to Sheet2 almost all
showed up as #REF!

Have I done something wrong? Changing the code to xlCellTypeVisible
to xlCellTypeAllFormatConditions produces a 1004 error.

Craig

On Aug 12, 4:09*pm, Simon Lloyd
wrote:
How would you want to trigger the code without buttons?, anyway for now
here's the code that you need, it does as before but now copies all
visible in the range thats left to a new sheet, try it :)

Code:
--------------------
* * Public Sw As Long
* Sub HideRows()
* Dim Rng As Range, MyCell As Range
* Set Rng = Sheets("Sheet1").Range("B1:B" & Range("B" & Rows.Count).End(xlUp).Row)
* If Sw = 1 Then
* Rng.Rows.Hidden = False
* Sw = 0
* Exit Sub
* End If
* For Each MyCell In Rng
* If MyCell.Value = 0 Then
* MyCell.Rows.Hidden = True
* Sw = 1
* End If
* Next MyCell
* Rng.SpecialCells(xlCellTypeVisible).EntireRow.Copy Destination:=Sheets("Sheet2").Range("A1")
* End Sub
--------------------
TheMilkGuy;450148 Wrote:



Hi Simon,

Thanks for the code, I realize my request is a bit wordy...

Your solution is exactly half of what I need :) instead of hiding the
cells with a "0" in Column B, I would like to take all of the cells
that were NOT to be hidden and copy them to another worksheet.

Here's an example of the chart if only One row was necessary:

A B C D E F G H
CYBG CYRJ 30000 300 260 53 283 287
CYRJ 0 30000 300

Since the second row is unnecessary, only row 1 would need to be
copied to my other worksheet.

Also, is it possible to make this work without any buttons? I can
live with them, don't get me wrong... Just curious.

Sorry to hijack so much of your time.

Cheers!
Craig

--
Simon Lloyd

Regards,
Simon Lloyd
'Microsoft Office Help' (http://www.thecodecage.com)
------------------------------------------------------------------------
Simon Lloyd's Profile:http://www.thecodecage.com/forumz/member.php?userid=1
View this thread:http://www.thecodecage.com/forumz/sh...d.php?t=124504