Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Loop Column
I am new to Macros in Excel can someone please help. I am trying to turn this
macro into a loop that will go from column c to column r. Now I have the same Step copyed over and over again. For i = 2 To 200 Step 1 e = "c" & i x = Range(e).Interior.Color Select Case x Case 12632256 Range(e).Value = "" With Range(e).Interior .Pattern = xlNone End With End Select Next For i = 2 To 200 Step 1 e = "d" & i x = Range(e).Interior.Color Select Case x Case 12632256 Range(e).Value = "" With Range(e).Interior .Pattern = xlNone End With |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Loop Column
Not tested, but any ideas here that could help?
Sub Demo() Const lColor As Long = 12632256 Dim Cell As Range For Each Cell In [C2:R200].Cells If Cells.Interior.Color = lColor Then Cells.Value = vbNullString Cells.Interior.Pattern = xlNone End If Next Cell End Sub -- Dana DeLouis "Lisa" wrote in message ... I am new to Macros in Excel can someone please help. I am trying to turn this macro into a loop that will go from column c to column r. Now I have the same Step copyed over and over again. For i = 2 To 200 Step 1 e = "c" & i x = Range(e).Interior.Color Select Case x Case 12632256 Range(e).Value = "" With Range(e).Interior .Pattern = xlNone End With End Select Next For i = 2 To 200 Step 1 e = "d" & i x = Range(e).Interior.Color Select Case x Case 12632256 Range(e).Value = "" With Range(e).Interior .Pattern = xlNone End With |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Loop Column
Thanks.... I'll try it
"Dana DeLouis" wrote: Not tested, but any ideas here that could help? Sub Demo() Const lColor As Long = 12632256 Dim Cell As Range For Each Cell In [C2:R200].Cells If Cells.Interior.Color = lColor Then Cells.Value = vbNullString Cells.Interior.Pattern = xlNone End If Next Cell End Sub -- Dana DeLouis "Lisa" wrote in message ... I am new to Macros in Excel can someone please help. I am trying to turn this macro into a loop that will go from column c to column r. Now I have the same Step copyed over and over again. For i = 2 To 200 Step 1 e = "c" & i x = Range(e).Interior.Color Select Case x Case 12632256 Range(e).Value = "" With Range(e).Interior .Pattern = xlNone End With End Select Next For i = 2 To 200 Step 1 e = "d" & i x = Range(e).Interior.Color Select Case x Case 12632256 Range(e).Value = "" With Range(e).Interior .Pattern = xlNone End With |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
loop thru column and highlight the rows | Excel Discussion (Misc queries) | |||
Loop help | Excel Discussion (Misc queries) | |||
vba loop | Excel Discussion (Misc queries) | |||
Do Loop | Excel Discussion (Misc queries) | |||
Loop | Excel Discussion (Misc queries) |