<div>
Sub ACOPY()<br />
s2row=1<br />
&nbsp;For i=1 to Sheet1.UsedRange.Rows.Coun<wbr />t<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;if Sheet1.Cells(i,1).Interior<wbr />.Color &lt;&gt;&nbsp;RGB(255,255,255)<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Sheet1.Rows(i).Copy Destination:= Sheet2.Rows(s2row)<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;s2row = s2row+1<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;End if <br />
End Sub<br />

</div>


Sub ACOPY()
s2row=1
 For i=1 to Sheet1.UsedRange.Rows.Count
         if Sheet1.Cells(i,1).Interior.Color <> RGB(255,255,255)
            Sheet1.Rows(i).Copy Destination:= Sheet2.Rows(s2row)
             s2row = s2row+1
         End if
End Sub


<div>
sorry<br />
missed a next<br />
Sub ACOPY()<br />
s2row=1<br />
&nbsp;For i=1 to Sheet1.UsedRange.Rows.Coun<wbr />t<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;if Sheet1.Cells(i,1).Interior<wbr />.Color &lt;&gt;&nbsp;RGB(255,255,255)<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Sheet1.Rows(i).Copy Destination:= Sheet2.Rows(s2row)<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;s2row = s2row+1<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;End if <br />
Next <br />
End Sub<br />
<br />

</div>


sorry
missed a next
Sub ACOPY()
s2row=1
 For i=1 to Sheet1.UsedRange.Rows.Count
         if Sheet1.Cells(i,1).Interior.Color <> RGB(255,255,255)
            Sheet1.Rows(i).Copy Destination:= Sheet2.Rows(s2row)
             s2row = s2row+1
         End if
Next
End Sub



<div>
I get an error.<br />
<br />
Cant execute code in break mode.
</div>


I get an error.

Cant execute code in break mode.

<div>
<div class="content wysiwyg-content">
Hi,<br />
<br />
In the Excel sheet i want to find all rows which are colored and copy all contents in the row to a new sheet.<br />
<br />
Regards<br />
Sharath
</div>
</div>


Hi,

In the Excel sheet i want to find all rows which are colored and copy all contents in the row to a new sheet.

Regards
Sharath

Excel sheet find all rows which are colored and copy all contents in the row

The Microsoft Legacy Operating System topic includes legacy versions of Microsoft operating systems prior to Windows 2000: All versions of MS-DOS and other versions developed for specific manufacturers and Windows 3/3.1, Windows 95 and Windows 98, plus any other Windows-related versions, and Windows Mobile.

Microsoft Legacy OS

The Microsoft Server topic includes all of the legacy versions of the operating system, including the Windows NT 3.1, NT 3.5, NT 4.0 and Windows 2000 and Windows Home Server versions.

Microsoft Server OS

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.