Hi guys,
I'm trying to create a macro which would copy all cells that are shaded light green and paste them where the cell shading is light blue. I just can't seem to figure this out, any help would be appreciated!
The code below is what i am currently using to clear all data in any cells that are shaded blue.
Also please note that i did NOT write that macro, unfortunately i cannot remember where i got it from so can't give the proper credit
.
Sub Clear_Previous_MTD_Activity()
' Clears out previous days activity in the MTD_Activity tab
Application.ScreenUpdating = False
Dim rwIndex, colIndex As Integer
For rwIndex = 1 To 100 ' rows 1 to 100
For colIndex = 10 To 17 ' columns K to R
With Worksheets("MTD_Activity").Cells(rwIndex, colIndex)
If .Interior.ColorIndex = 33 Then .ClearContents
End With
Next colIndex
Next rwIndex
Application.ScreenUpdating = True
End Sub
I'm trying to create a macro which would copy all cells that are shaded light green and paste them where the cell shading is light blue. I just can't seem to figure this out, any help would be appreciated!
The code below is what i am currently using to clear all data in any cells that are shaded blue.
Also please note that i did NOT write that macro, unfortunately i cannot remember where i got it from so can't give the proper credit
.Sub Clear_Previous_MTD_Activity()
' Clears out previous days activity in the MTD_Activity tab
Application.ScreenUpdating = False
Dim rwIndex, colIndex As Integer
For rwIndex = 1 To 100 ' rows 1 to 100
For colIndex = 10 To 17 ' columns K to R
With Worksheets("MTD_Activity").Cells(rwIndex, colIndex)
If .Interior.ColorIndex = 33 Then .ClearContents
End With
Next colIndex
Next rwIndex
Application.ScreenUpdating = True
End Sub
