PDA

View Full Version : Find all black cells in a range



anthony20069
07-02-2013, 12:44 AM
hi all,

Im trying to find all black cells in the range F3:CZ137 and then add the Value of 1 into the cell - there are quite a few, so would be a very laborious task. Is this possible with VBA?

many thanks

ssingh75
07-02-2013, 02:56 AM
Range("F3:CZ137").select
Selection.SpecialCells(xlCellTypeBlanks).Select

lotuxel
07-02-2013, 02:57 AM
dim rng as range
dim r as range
set rng = range("F3:cz137")
for each r in rng

next

Teeroy
07-02-2013, 03:07 AM
Are the cells formatted black directly or are they the result of a conditional format being applied? The methods to deal with these are quite different.