Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Enumerating SpecialCells
Can anyone help with showing how to enumerate a SpecialCells range using a
counter? For example: with some text in cells B2, D2 and E5 For each cell in ActiveSheet.UsedRange.SpecialCells(xltextValues) cell.Font.Bold = True next cell works just fine. However, For i = 1 to ActiveSheet.UsedRange.SpecialCells(xlTextValues) ActiveSheet.UsedRange.SpecialCells(xlTextValues).I tem(i).Font.Bold = True next i does not work. That is, it bolds cell B2 but not the others. In fact, if you printout the rows and columns of the returned cells, then B2, B3 and B4 are returned by the counter method (and these are the cells that actually get bolded)! Is this just a bug with SpecialCells and if so, is there a workaround? Thank you |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Enumerating SpecialCells
Sorry, the second example that does not work should read:
For i = 1 to ActiveSheet.UsedRange.SpecialCells(xlTextValues).C ount ActiveSheet.UsedRange.SpecialCells(xlTextValues).I tem(i).Font.Bold = True next i |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Enumerating SpecialCells
You need to loop thru each area in the range. '-- Sub vert() Dim i As Long Dim j As Long With ActiveSheet.UsedRange.SpecialCells(xlTextValues) For i = 1 To .Areas.Count For j = 1 To .Areas(i).Cells.Count .Areas(i).Cells(j).Font.Bold = True Next 'j Next 'i End With End Sub -- Jim Cone Portland, Oregon USA "davea" wrote in message Sorry, the second example that does not work should read: For i = 1 to ActiveSheet.UsedRange.SpecialCells(xlTextValues).C ount ActiveSheet.UsedRange.SpecialCells(xlTextValues).I tem(i).Font.Bold = True next i |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Enumerating SpecialCells
Thank you so much Jim :-)
I understood that there was a problem with non-contiguous cells but I didn't think about areas as a solution. Thanks again. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Enumerating the names of *subs* and *functions* | Excel Programming | |||
Enumerating PivotItems collection fails to display duplicate values | Excel Programming | |||
SpecialCells help | Excel Programming | |||
Enumerating Printers | Excel Programming | |||
Enumerating a multi-dimensional array | Excel Programming |