Página 1 de 1

Reset e apagando no formata baseado em valor já formatado

Enviado: 24 Nov 2017 às 14:56
por Angra
O osvaldomp, criou a solução pretendida no tópico "formatar baseado em valor já formatado" mas por falha minha esqueci de perguntar como tirar a formatação quando clicar no botão reset.
Código do reset:
Sub Resetar_1()
Application.EnableEvents = False
Range("B:D,CB:CD").Interior.ColorIndex = -4142 'aqui não deveria tirar a formatação geral
Columns("AM:AR").ClearContents
Application.EnableEvents = True
End Sub

Imagem

Re: Reset e apagando no formata baseado em valor já formatad

Enviado: 24 Nov 2017 às 20:03
por osvaldomp
Você quer pintar as células AM4:AR30 de preto, é isso?
Se sim, acrescente a segunda linha abaixo.
Código: Selecionar todos
...
...
Columns("AM:AR").ClearContents
Range("AM4:AR30").Interior.Color = vbBlack
...
...

Re: Reset e apagando no formata baseado em valor já formatad

Enviado: 24 Nov 2017 às 21:09
por Angra
Perfeito, era isso mesmo. Muito agradecido. :D :D