Color visible rows (columns A:R)

[sachavez]

Hi, how can I modify the below code to only color visible rows, but only columns A:R?

With ActiveSheet.UsedRange
.AutoFilter Field:=17, Criteria1:=Array("A", "B", "C", "D", "E"), Operator:=xlFilterValues
.Offset(1).SpecialCells(xlVisible).EntireRow.Interior.Color = 65535
.AutoFilter
End With

 

[Domenic]

Try...

Dim filteredRange As Range

With ActiveSheet.UsedRange
    .AutoFilter Field:=17, Criteria1:=Array("A", "B", "C", "D", "E"), Operator:=xlFilterValues
    On Error Resume Next
    Set filteredRange = .Offset(1, 0).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    If Not filteredRange Is Nothing Then
        .Offset(1, 0).Resize(.Rows.Count - 1, 18).SpecialCells(xlVisible).Interior.Color = 65535
    End If
    .AutoFilter
End With

Hope this helps!

 

[sachavez]

Try...

Dim filteredRange As Range

With ActiveSheet.UsedRange
    .AutoFilter Field:=17, Criteria1:=Array("A", "B", "C", "D", "E"), Operator:=xlFilterValues
    On Error Resume Next
    Set filteredRange = .Offset(1, 0).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    If Not filteredRange Is Nothing Then
        .Offset(1, 0).Resize(.Rows.Count - 1, 18).SpecialCells(xlVisible).Interior.Color = 65535
    End If
    .AutoFilter
End With

Hope this helps!

This worked great! Thanks for solving my issue!!!

 

[Domenic]

That's great, glad I could help.

Cheers!