Página 1 de 1
Imprimir zebrado de um determinado intervalo
Enviado: 30 Jun 2015 às 15:56
por 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.
Imprimir zebrado de um determinado intervalo
Enviado: 30 Jun 2015 às 16:53
por duds
Boa tarde Jean,
A área que você comenta que não quer que seja zebrada deve ficar em cinza escuro, correto??
Att.
Imprimir zebrado de um determinado intervalo
Enviado: 01 Jul 2015 às 08:08
por 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.
Re: Imprimir zebrado de um determinado intervalo
Enviado: 01 Jul 2015 às 08:37
por alexandrevba
Bom dia!!
Tente algo assim....
Código: Selecionar todosSub 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
Imprimir zebrado de um determinado intervalo
Enviado: 01 Jul 2015 às 09:01
por 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