Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Cells(row, j).Interior.colorindex
I wanted to set the color for a row to a specific value
for i = 1 to 30 Cells(ActiveCell.row, i).interior.colorindex = colIndex next i which should set the property for the first 30 cells of the current row The debugger aborts when it comes to this line, and I can't figure out why I've tried myRow = ActiveCell.row (which should be the row of the target cell) With Worksheet("target").Cells(myRow, i) .interior.colorindex = 33 .font.colorindex = 2 End with which also doesn't work. I had thought that Cells(i,j) assumed the current worksheet (and of type Range) (ActiveSheet.Cells(i,j) was a Range of one cell also ActiveSheet.Rows(myRow).interior.colorindex also fails how do I specify a range object that is the row that contains the ActiveCell (i've been trying to use the object browser to find a combination that has the right syntax without much success.) |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Cells(row, j).Interior.colorindex
Your first loop works for me in xl2003.
"Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 30)).Interior.ColorIndex = colIndex" also works. How are i and colIndex declared? What is the value of colIndex? Is the sheet protected? Is any part of the row merged? -- Jim Cone Portland, Oregon USA Shade Data Rows add-in: http://tinyurl.com/ShadeData .. .. .. "KT_1010" wrote in message I wanted to set the color for a row to a specific value for i = 1 to 30 Cells(ActiveCell.row, i).interior.colorindex = colIndex next i which should set the property for the first 30 cells of the current row The debugger aborts when it comes to this line, and I can't figure out why I've tried myRow = ActiveCell.row (which should be the row of the target cell) With Worksheet("target").Cells(myRow, i) .interior.colorindex = 33 .font.colorindex = 2 End with which also doesn't work. I had thought that Cells(i,j) assumed the current worksheet (and of type Range) (ActiveSheet.Cells(i,j) was a Range of one cell also ActiveSheet.Rows(myRow).interior.colorindex also fails how do I specify a range object that is the row that contains the ActiveCell (i've been trying to use the object browser to find a combination that has the right syntax without much success.) |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Cells(row, j).Interior.colorindex
Sub setHighlight(row As Long, cindex As Integer)
Dim ix As Long Application.ScreenUpdating = False For ix = 1 To 25 With Cells(row, ix) .Font.ColorIndex = 2 .Interior.ColorIndex = cindex End With Next ix Application.ScreenUpdating = True End Sub and call setHighlight(ActiveCell.Row, 23) ' 23 is one of the 56 possilble indexs to Colors |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Cells(row, j).Interior.colorindex
There's nothing obviously wrong with your routine.
FWIW no need to loop, eg With Cells(row, 1).Resize(1, 25) or With Range(Cells(row, 1), Cells(row, 25)) .Font.ColorIndex = 2 .Interior.ColorIndex = cindex End With and if not looping no need to disable screenupdating just for that Small thing, these days better to use As Long rather than As Integer, not that it'll make any difference in your routine. Regards, Peter T "KT_1010" wrote in message ... Sub setHighlight(row As Long, cindex As Integer) Dim ix As Long Application.ScreenUpdating = False For ix = 1 To 25 With Cells(row, ix) .Font.ColorIndex = 2 .Interior.ColorIndex = cindex End With Next ix Application.ScreenUpdating = True End Sub and call setHighlight(ActiveCell.Row, 23) ' 23 is one of the 56 possilble indexs to Colors |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Select contiguous cells by ActiveCell.Interior.ColorIndex and applyborders | Excel Programming | |||
interior.colorindex does not work? | Excel Programming | |||
problem with interior.colorindex | Excel Programming | |||
Use of Interior.ColorIndex | Excel Programming | |||
Testing for Interior.ColorIndex | Excel Programming |