Guru do Excel e Power BI

Prezados,

Como diariamente formato várias tabelas em um padrão interno para utilização em relatórios do WORD, desenvolvi uma macro que executa esta formatação de forma automática. Contudo, o que eu não consegui fazer, é o seguinte:

Após a macro executar a formatação, gostaria que ela pintasse as linhas da tabela de forma alternada, para que uma linha fique branca (sem preenchimento), e a próxima fique cinza, e assim sucessivamente até o final da tabela. A primeira e última linha devem ser desconsideradas, visto que tratam-se do cabeçalho e totalizador.

Se alguém conseguir me auxiliar com esta questão, agradeço.

Atenciosamente,
Michael Freitas Day

Sugestão: disponibilize diretamente aqui no fórum uma amostra do seu arquivo Excel com algumas linhas com dados, com estrutura exatamente igual ao arquivo original, com as linhas pintadas conforme desejado e com o código atual instalado.

Não é possível disponibilizar o código de formatação da tabela, visto que eu o utilizo como suplemento do excel.
Contudo, segue abaixo uma imagem de como fica a tabela após a execução da macro.

Segue

Boa tarde.
Deixo mais uma opção.
Até

Foxtri

Boa tarde,

Agradeço as contribuições. Porém, para que a macro seja funcional, ela deve atuar apenas dentro das células selecionadas.

Atenciosamente,
Michael Freitas Day

Forneça exemplos e os resultados desejados.

Bom dia.
Veja se o resultado desta macro, atende a sua necessidade.
Sub Pintar()
Dim cel As Range
For Each cel In Selection
If cel.Interior.ColorIndex <> 1 And cel.Value <> "" Then
If cel.Row Mod 2 = 0 Then
cel.Interior.ColorIndex = 15
End If
End If
Next
End Sub

Você pode selecionar quantas células quiser , inclusive os cabeçalhos.
O único detalhe é que dependendo do numero da linha onde os dados iniciam, a formatação pode inverter
ou seja inicia ou com linha em branco ou em cinza.
Até
Foxtri

Boa tarde Foxtri,

Muito obrigado pela sua ajuda. Realmente, a macro funcionou conforme você descreveu.
Em todos os testes que eu apliquei, a primeira linha ficou cinza. Em um cenário perfeito, a primeira linha deveria ser branca (padrão da empresa). Caso alguém possa ajudar, seria muito útil.

De qualquer forma, agradeço sua atenção.
Micsterminador.

Boa tarde
Faça um novo teste, com essa nova macro.
A única condição é que você sempre deve selecionar uma as células com fundo preto do cabeçalho.
Sub Pintar()
Dim cel As Range, i As Integer
For Each cel In Selection
If cel.Interior.ColorIndex = 1 Then i = IIf(cel.Row Mod 2 = 0, 0, 1)
If cel.Interior.ColorIndex <> 1 And cel.Value <> "" Then
If cel.Row Mod 2 = i Then
cel.Interior.ColorIndex = 15
End If
End If
Next
End Sub

Até
Foxtri

Bom dia Foxtri,

Funcionou perfeitamente conforme proposto. Apenas alterei a tonalidade do cinza que a macro pinta as células.

Agradeço a ajuda.
Att,
Micsterminador