| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy data in turqouise colour cells from n to a
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. |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| how do I copy format (eg colour of cells) in a drop down list | Excel Worksheet Functions | |||
| Changing all cells in one colour to a different colour | Excel Discussion (Misc queries) | |||
| how do I get cells to automaticly change colour on data input? | Excel Worksheet Functions | |||
| can the fill colour of a bar be tied to the data font colour data | Charts and Charting in Excel | |||
Threaded Mode
