Guru do Excel e Power BI

Enviado: **18 Jul 2019 às 15:50**

Boa tarde
A formatação funciona e preciso apenas replicar a formatação em outras colunas, sem copiar os valores que existem dentro da célula formatada

Enviado: **23 Jul 2019 às 10:26**

Bom dia
Alguém se habilita a desenvolver essa macro, please

Enviado: **23 Jul 2019 às 11:22**

Código: Selecionar todos

Range("B5:C50").Copy: Range("AN5").PasteSpecial Paste:=xlPasteFormats

Enviado: **23 Jul 2019 às 13:57**

osvaldomp, desculpa minha ignorância, mas essa linha vai em um modulo ou gerenciador de regras de formatação. Outra questao, a pesquisa informada em AP2, vai mudar outras vezes e as formatacoes anteriores nao podem ser subescritas

Enviado: **23 Jul 2019 às 14:03**

Desculpe, eu imaginei que você já fosse familiarizado com macros.

Instale uma cópia do código abaixo em um módulo comum, assim:
1. copie o código daqui
2. a partir da planilha em que estão os dados tecle 'Alt+F11' para acessar o editor de VBA
3. no menu do editor / Inserir / Módulo
4. cole o código na janela em branco que vai se abrir
5. feito! 'Alt+Q' para retornar para a planilha e testar

para rodar o código:
6. tecle 'Alt+F8' / selecione a macro correspondente / Executar, ou insira um botão na planilha e vincule-o à macro ou vincule-a a um atalho de teclado (Alt+F8 / Opções).

Código: Selecionar todos

Sub ColaFormatações()
 Range("B5:C50").Copy: Range("AN5").PasteSpecial Paste:=xlPasteFormats
End Sub

obs. é possível efetuar manualmente essa operação: selecione B5:C50 / clique na ferramenta Pincel / clique em AN5.

Enviado: **23 Jul 2019 às 14:06**

Não dá pra fazer via pincel e formatação condicional normal? Tem que ser macro pra fazer isso? Quer usar uma bazuca pra matar uma barata.

Enviado: **23 Jul 2019 às 14:09**

FelipeMGarcia escreveu:Não dá pra fazer via pincel ...

Veja a observação na minha postagem acima.

Enviado: **23 Jul 2019 às 14:52**

Fiz o recomendado e copiou tudo menos a formatação?

Enviado: **24 Jul 2019 às 17:12**

Please, mais alguém para ajudar

Enviado: **28 Jul 2019 às 08:51**

Tenta trocar o "xlPasteFormats" por "xlPasteAll"

Enviado: **28 Jul 2019 às 09:05**

eduardogrigull, a intenção eh copiar apenas a célula com a formatação (vermelho)

Enviado: **31 Jul 2019 às 04:01**

Mais alguma sugestão ou ajuda

Enviado: **31 Jul 2019 às 08:52**

No intervalo B5:C50 você pintou as células de preto e aplicou Formatação Condicional para pintar de vermelho se a célula contiver "Colorado". Há outros formatos ?

Exatamente quais formatos você quer colar no outro intervalo ?
Você quer pintar as células de preto e aplicar a FC, é isso ?

Porque você quer fazer via macro ? Essa é uma operação repetitiva ?

Enviado: **31 Jul 2019 às 15:16**

osvaldomp diz:

''No intervalo B5:C50 você pintou as células de preto e aplicou Formatação Condicional para pintar de vermelho se a célula contiver "Colorado". Há outros formatos ?''
As células pintadas de preto são fixas nesse formato, pintando de vermelho em AN5, o correspondente a pesquisa em B5:C50, e AS5 em CD5:CE50

‘’Exatamente quais formatos você quer colar no outro intervalo ?’’
Vermelho

‘’Você quer pintar as células de preto e aplicar a FC, é isso ?’’
Não. Quero a aplicar apenas formatação vermelha ou outra cor que decidir a posteriori, menos o preto, porque eh fixo e sem formatação

‘’Porque você quer fazer via macro ? Essa é uma operação repetitiva ?’’
A solução pode se via macro ou formulas, desde que funcione a contento

Enviado: **31 Jul 2019 às 19:13**

Angra escreveu: ‘’Exatamente quais formatos você quer colar no outro intervalo ?’’
Vermelho

Experimente o código abaixo no lugar do anterior.

Código: Selecionar todos

Sub ReplicaCorDeFC()
 Dim r As Range
  Range("AN5:AN50,AO28:AO50,AR28:AR50,AS5:AS50").Interior.ColorIndex = xlNone
  For Each r In Range("B5:B50,C28:C50,CD28:CD50,CE5:CE50")
   If r.DisplayFormat.Interior.ColorIndex = 3 Then _
    r.Offset(, 38 * IIf(r.Column < 4, 1, -1)).Interior.ColorIndex = 3
  Next r
End Sub

Enviado: **31 Jul 2019 às 21:53**

, certin. Soh uma coisinha mais, se puder acrescentar bem; se não... eh o seguinte: a macro copia o que foi pedido, 100% correto, mas como fazer para não deletar o que já foi copiado para AN5 e AS5 quando eu mudar a pesquisa em AP2. Resumindo o que já foi copiado permanece la e novas pesquisas vai acrescentando os novos formatados aos anteriores já copiados, eh possível fazer?

Exclua a linha abaixo.

Código: Selecionar todos

 Range("AN5:AN50,AO28:AO50,AR28:AR50,AS5:AS50").Interior.ColorIndex = xlNone

osvaldomp, brigadasso pela ajuda, valeu

Guru do Excel e Power BI

Macro para copiar apenas a formatação

Macro para copiar apenas a formatação

Re: Macro para copiar apenas a formatação

Re: Macro para copiar apenas a formatação

Re: Macro para copiar apenas a formatação

Re: Macro para copiar apenas a formatação

Macro para copiar apenas a formatação

Re: Macro para copiar apenas a formatação

Re: Macro para copiar apenas a formatação

Re: Macro para copiar apenas a formatação

Macro para copiar apenas a formatação

Re: Macro para copiar apenas a formatação

Re: Macro para copiar apenas a formatação

Re: Macro para copiar apenas a formatação

Re: Macro para copiar apenas a formatação

Re: Macro para copiar apenas a formatação

Re: Macro para copiar apenas a formatação

Re: Macro para copiar apenas a formatação

Re: Macro para copiar apenas a formatação