ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   subtotals based on font colour (https://www.excelbanter.com/excel-discussion-misc-queries/193032-subtotals-based-font-colour.html)

sebyjohn73

subtotals based on font colour
 
Hi, can some one help me to do subtotals in an excel column, based on font colour. (There is more than one colour in my sheet)

Pete_UK

subtotals based on font colour
 
As well as lots of notes about counting and sorting with colours, Chip
Pearson has a free download which incorporates the functions described
he

http://www.cpearson.com/excel/colors.aspx

Hope this helps.

Pete

On Jun 29, 4:11*pm, sebyjohn73
wrote:
Hi, can some one help me to do subtotals in an excel column, based on
font colour. (There is more than one colour in my sheet)

--
sebyjohn73



Gord Dibben

subtotals based on font colour
 
See Chip Pearson's site for Function(s) to detect font and background colors.

http://www.cpearson.com/excel/colors.aspx


Gord Dibben MS Excel MVP

On Sun, 29 Jun 2008 16:11:22 +0100, sebyjohn73
wrote:


Hi, can some one help me to do subtotals in an excel column, based on
font colour. (There is more than one colour in my sheet)



pshepard

subtotals based on font colour
 
Hi,

Once the color numbers are determined (using the macro below), you can then
use the sumif worksheet function to subtotal by color.

The following macro assumes that you have a blank column next to the numbers
with different font colors, and that you have activated the first cell in the
range of numbers.

Sub ColorNumber()

x = ActiveCell.Row
y = ActiveCell.Column

Do While Cells(x, y).Value < ""

ActiveCell.Offset(0, 1) = ActiveCell.Font.Color
ActiveCell.Offset(1, 0).Activate
x = x + 1

Loop

End Sub

- Peggy

"sebyjohn73" wrote:


Hi, can some one help me to do subtotals in an excel column, based on
font colour. (There is more than one colour in my sheet)




--
sebyjohn73


sebyjohn73

Thank you very much

regards, seby


All times are GMT +1. The time now is 08:49 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com