Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
vb problem
Sub targetamount()
Dim rowfirstcell as Range Dim currentrow As Long Dim currentcolumn As Integer Dim selectedcell as Range currentrow = 3 Set rowfirstcell = ActiveSheet.Cells(currentrow, 1) While Trim(rowfirstcell.Value) < "" For currentcolumn = 3 To 9 Set selectedcell = ActiveSheet.Cells(currentrow, currentcolumn) If Selectedcell.Value ActiveSheet.Cells(1, 10) Then selectedcell.Interior ColorIndex = 37 Else selectedcell.Interior ColorIndex = 2 End If Next set rowfirstcell = rowfirstcell.offset(1,0) currentrow = rowfirstcell.row Wend End Sub -- Regards, Tom Ogilvy "Jim" wrote in message ... Hello I'm trying to change the color of the cells starting in the 3rd row if the cell is cell (J1) the macro stops at the "If Selected.Value ActiveSheet.Cells(1, 10) Then" I can't get past this point. Please Help Sub targetamount() Dim currentrow As Integer Dim currentcolumn As Integer currentrow = 3 Set rowfirstcell = ActiveSheet.Cells(currentrow, 1) While Trim(rowfirstcell.Value) < "" For currentcolumn = 3 To 9 Set selectedcell = ActiveSheet.Cells(currentrow, currentcolumn) If Selected.Value ActiveSheet.Cells(1, 10) Then selectedcell.Interior ColorIndex = 37 Else selectedcell.Interior ColorIndex = 2 End If Next Wend End Sub Thank You first timer :} |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Colon at the end of excel file name(ex: problem.xls:1, problem.xls | New Users to Excel | |||
Started out as an Access problem. Now an Excel problem | Excel Discussion (Misc queries) | |||
problem with a conditional max problem | Excel Discussion (Misc queries) | |||
Problem when multipple users access shared xl-file at the same time, macrocode for solve this problem? | Excel Programming |