LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #2   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 11,058
Default Check colour of number, then populate cell

Try this:

Sub coupydown()
For i = 1 To 5
k = 0
For j = 1 To 4
If Cells(j, i).Font.ColorIndex = xlAutomatic Then
k = k + 1
End If
Next
MsgBox (k)
If k = 4 Then
Cells(5, i).Value = Cells(4, i).Value
End If
Next
End Sub
--
Gary''s Student - gsnu200735
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Check dates in spreadsheet against expiry years column and change colour [email protected] Excel Worksheet Functions 4 January 22nd 07 05:14 AM
Colour cell when number changes Jolly Roger Excel Worksheet Functions 6 October 8th 06 11:25 PM
change a cell background colour to my own RGB colour requirements Stephen Doughty Excel Discussion (Misc queries) 4 June 16th 06 01:08 PM
Change cell Colour when a number of days have been passed SR7133 Excel Discussion (Misc queries) 4 March 1st 06 10:49 PM
Change colour of Text if number in cell exceed limit Lewis Koh Excel Worksheet Functions 2 August 2nd 05 02:16 AM


All times are GMT +1. The time now is 12:45 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"