Este fórum está sendo desativado

[JeanHard]

Boas feras.
Estou anexando uma planílha e peço um help para o seguinte problema:
Quero imprimir todo o conteúdo que tenha dados na folha porém só quero zebrar a partir da linha 5 pra baixo e esta zebrando tudo.
No aguardo.

[duds]

Boa tarde Jean,

A área que você comenta que não quer que seja zebrada deve ficar em cinza escuro, correto??

Att.

[JeanHard]

Bom dia Duds.
Na verdade essa área eu não preciso mexer em nada. Será o cabeçalho. Alem disso ele esta tirando a mescla das células do cabeçalho.

[alexandrevba]

Bom dia!!

Tente algo assim....

Código: Selecionar todos

Sub AleVBA_308()
    Dim rng As Range, i
    Dim DataRange As Range
    Dim LR As Long
    
    LR = Range("A" & Rows.Count).End(xlUp).Row
    
    On Error Resume Next
    Set DataRange = Range("A5:F" & LR)
    Set rng = DataRange
    For i = 1 To rng.Rows.Count
        If i Mod 2 = 0 Then
            rng.Rows(i).Interior.ColorIndex = 16
        End If
    Next
End Sub

[JeanHard]

Obrigado alexandre. Resolveu!
Só anulei a parte abaixo do código e ficou do jeito que eu queria.
Parte anulada:
'With Selection
' .HorizontalAlignment = xlCenter
' .VerticalAlignment = xlBottom
' .WrapText = False
'.Orientation = 0
'.'AddIndent = False
' .IndentLevel = 0
' .ShrinkToFit = False
'.ReadingOrder = xlContext
'.MergeCells = False
'AJUSTAR AUTOMATICAMENTE AS COLUNAS
'Columns("A:I").EntireColumn.AutoFit

' End With