Alternating row colors while sorting???
Hello all,
I have got a workbook that I have alternating the row colors from .Interior.ColorIndex = xlnone to .Interior.ColorIndex = 15. This runs when I use a macro that adds a new line at the top of the workbook.
Code:
With Range("B11")
If .Interior.ColorIndex = xlNone Then
With Range("B10:J10").Interior
.ColorIndex = 15
.Pattern = xlSolid
.PatternColorIndex = xlSolid
End With
ElseIf .Interior.ColorIndex = 15 Then
With Range("B10:J10").Interior
.ColorIndex = xlNone
.Pattern = xlSolid
.PatternColorIndex = xlNone
End With
End If
End With
It works great but what I want to do is be able to sort Range("B10:J50") in my workbook first by the decending value in column B (which is a date), then by the ascending value in column F (which is a credited dollar amount) then by the ascending value in column E (which is a debited dollar amount).
Code:
ActiveSheet.unprotect
Range("B10:J100").Sort Key1:=Range("C10"), Order1:=xlDescending, Header:=xlNo
Dim c As Range
Set c = Range("C11")
While c > Range("K1")
c.Offset(0, -1).Resize(1, 4).Copy
c.Offset(-1, -1).PasteSpecial Paste:=xlValues
c.Offset(0, -1).Resize(1, 6).ClearContents
With c.Offset(0, -1).Resize(1, 5)
.Locked = False
.FormulaHidden = False
End With
With c.Offset(0, -1).Resize(1, 5)
.Locked = True
.FormulaHidden = True
End With
Set c = c.Offset(1, 0)
Wend
c.Offset(-1, -1).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Protect Structure:=True, Windows:=False
What happens when I sort it is the alternating row colors do not follow the new sort grouping greys with other greys and whites with other whites instead of alternating the row color from grey to white and so on. Is there anyone that could take a look at this and let me know what I can do to make this work? Thank you so much!
