copy paste code not working(troubleshoot pls)
 

Private Sub CommandButton1_Click()
NewRowCount = 1
Lastrow = Range("N" & Rows.Count).End(xlUp).Row
For RowCount = 1 To Lastrow
If Range("N" & RowCount).Interior.ColorIndex = 8 Then
Range("d" & NewRowCount) = Range("N" & RowCount)
NewRowCount = NewRowCount + 1
End If
Next RowCount

End Sub



i got this string from joel... (thanx) but does not do what i need. in
fact clicking on the command button does nothing.


what i need is to copy all data in the cells with turqoise (8) colour from
column N to colum A.

copy paste code not working(troubleshoot pls)
 

You have column d instead of column A. If you want to preserve the color
than you need to copy the cell rather than equal.

Did you put a break point in the code to make sure the command button was
working?

NewRowCount = 1
Lastrow = Range("N" & Rows.Count).End(xlUp).Row
For RowCount = 1 To Lastrow
If Range("N" & RowCount).Interior.ColorIndex = 8 Then
Range("N" & RowCount).Copy _
Destination:=Range("A" & NewRowCount)
NewRowCount = NewRowCount + 1
End If
Next RowCount

"pswanie" wrote:

Private Sub CommandButton1_Click()
NewRowCount = 1
Lastrow = Range("N" & Rows.Count).End(xlUp).Row
For RowCount = 1 To Lastrow
If Range("N" & RowCount).Interior.ColorIndex = 8 Then
Range("d" & NewRowCount) = Range("N" & RowCount)
NewRowCount = NewRowCount + 1
End If
Next RowCount

End Sub



i got this string from joel... (thanx) but does not do what i need. in
fact clicking on the command button does nothing.


what i need is to copy all data in the cells with turqoise (8) colour from
column N to colum A.

copy paste code not working(troubleshoot pls)
 

break point i did. not to bright on what that mean yet. so i cant say if
what should hapen did..... can i mail a copy of the workbook to you to
check? Please

Phillip

copy paste code not working(troubleshoot pls)
 

Break point will indicate that the button is working.

send to joel dot warburg at itt dot com

"pswanie" wrote:

break point i did. not to bright on what that mean yet. so i cant say if
what should hapen did..... can i mail a copy of the workbook to you to
check? Please

Phillip