| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Value to be given to all cells with black background color
Hello,
I have a certain range of cells in which some of the cells are formatted to have a black background color. None of the cells contain any data. I want to select the whole range of cells and then run a macro which puts a "1" into each black cell. The white cells must stay empty. How can I do this? Regards, Norbert |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Value to be given to all cells with black background color
for each c in selection.cells
if c.interior.colorindex=1 then c.value=1 next c |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Value to be given to all cells with black background color
Dim cell As Range For Each cell In ActiveSheet.UsedRange If cell.Interior.Color = 0 Then cell.Value = 1 cell.Font.Color = RGB(&HFF, &HFF, &HFF) End If Next cell -- HTH RP (remove nothere from the email address if mailing direct) "Norbert Jaeger" wrote in message ... Hello, I have a certain range of cells in which some of the cells are formatted to have a black background color. None of the cells contain any data. I want to select the whole range of cells and then run a macro which puts a "1" into each black cell. The white cells must stay empty. How can I do this? Regards, Norbert |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Value to be given to all cells with black background color
Dim ThisCell as Range
For Each ThisCell in Selection.Cells If ThisCell.Interior.Color = vbBlack Then ThisCell.Value = 1 Next ThisCell "Norbert Jaeger" wrote: Hello, I have a certain range of cells in which some of the cells are formatted to have a black background color. None of the cells contain any data. I want to select the whole range of cells and then run a macro which puts a "1" into each black cell. The white cells must stay empty. How can I do this? Regards, Norbert |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Value to be given to all cells with black background color
Thanks to all of you.
All the code works. Regards, Norbert On Tue, 17 May 2005 10:19:52 -0700, "K Dales" wrote: Dim ThisCell as Range For Each ThisCell in Selection.Cells If ThisCell.Interior.Color = vbBlack Then ThisCell.Value = 1 Next ThisCell "Norbert Jaeger" wrote: Hello, I have a certain range of cells in which some of the cells are formatted to have a black background color. None of the cells contain any data. I want to select the whole range of cells and then run a macro which puts a "1" into each black cell. The white cells must stay empty. How can I do this? Regards, Norbert |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Black out Background of Userform | Excel Discussion (Misc queries) | |||
| How to add cells with a particular background color? | Excel Discussion (Misc queries) | |||
| Excel color-formatted cells printing in black | Excel Worksheet Functions | |||
| The view colors in Excel 2003 cells change from color to black | Excel Discussion (Misc queries) | |||
| Applying background color to cells | Excel Programming | |||
Linear Mode
