Loop Column

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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
 
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
 
Thanks.... I'll try it

Dana DeLouis said:
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 said:
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
Click to expand...
Click to expand...
 
Back
Top