P
pswanie
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.
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.