Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
macro that loops to multiple columns
it's a simple macro that i've created, because I'm still a newbie at all of
this. basically, the macro goes down each cell in a column, and if the cell's value is greater than 300, then it puts in a background color into the cell. the macro stops when the cell has nothing in it (the end of the column). I'd like it to jump to the next column and repeat the macro, but not sure how to do it. Here's what I've got so far: Sub testcolors() ActiveCell.Select Do Until ActiveCell = "" If ActiveCell = "" Then End ActiveCell.Select If ActiveCell 300 Then With Selection.Interior .ColorIndex = 6 .Pattern = xlSolid .PatternColorIndex = xlAutomatic End With End If ActiveCell.Offset(1,0).Activate Loop End Sub Not even sure if this is the right way to write the macro..... Any help is greatly appreciated. Thanks. Brad |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
macro that loops to multiple columns
Brad
If you can select the entire range, then the following should give you what you are chasing. Tony Sub aaa() Range("a1:c10").Select ActiveCell.CurrentRegion.Select For Each ce In Selection If ce.Value 300 Then With ce.Interior .ColorIndex = 6 .Pattern = xlSolid .PatternColorIndex = xlAutomatic End With End If Next ce End Sub -----Original Message----- it's a simple macro that i've created, because I'm still a newbie at all of this. basically, the macro goes down each cell in a column, and if the cell's value is greater than 300, then it puts in a background color into the cell. the macro stops when the cell has nothing in it (the end of the column). I'd like it to jump to the next column and repeat the macro, but not sure how to do it. Here's what I've got so far: Sub testcolors() ActiveCell.Select Do Until ActiveCell = "" If ActiveCell = "" Then End ActiveCell.Select If ActiveCell 300 Then With Selection.Interior .ColorIndex = 6 .Pattern = xlSolid .PatternColorIndex = xlAutomatic End With End If ActiveCell.Offset(1,0).Activate Loop End Sub Not even sure if this is the right way to write the macro..... Any help is greatly appreciated. Thanks. Brad . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro to add Multiple columns | Excel Discussion (Misc queries) | |||
I need a macro to transpose multiple columns A1-Z1, A2-X2 etc | Excel Discussion (Misc queries) | |||
For next loops | Excel Discussion (Misc queries) | |||
macro to compile columns on multiple sheets | Excel Discussion (Misc queries) | |||
Macro to align and compare multiple rows and columns | New Users to Excel |