Span Border and Colors Across

[vahnx]

I've been writing code to do this but numerous bugs etc. and I've wasted too much time on it now. How do I span the following background colors across the rest of the respective rows? I need the color/background scheme/everything seen in the image below to be copied, not values or formulas within the cells, just the looks.

Sub SetRowUnifiedStyle()
    For i = 2 To 15571				
        If Range("AN" & CStr(i)) <> 0 Then
       		Range("AN" & CStr(i) & ":CA" & CStr(i)).Interior.Color = Range("B" & CStr(i)).Interior.Color
        	Range("AN" & CStr(i) & ":CA" & CStr(i)).Interior.Pattern = Range("B" & CStr(i)).Interior.Pattern
        End If
    Next i
End Sub

 

[doofusboy]

You could try something like this:

    For i = 2 To 15571
        If Range("AN" & i).Value <> 0 Then
            ActiveSheet.Rows(i).EntireRow.Interior.Color = Range("B" & i).Interior.Color
            ActiveSheet.Rows(i).EntireRow.Interior.Pattern = Range("B" & i).Interior.Pattern
        End If
    Next i

 

[vahnx]

It only copied the background and not the border/theme.