Este fórum está sendo desativado

[Angra]

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

[Angra]

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

[osvaldomp]

Código: Selecionar todos

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

[Angra]

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

[osvaldomp]

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.

[FelipeMGarcia]

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.

[osvaldomp]

Não dá pra fazer via pincel ...

Veja a observação na minha postagem acima.

[Angra]

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

[Angra]

Please, mais alguém para ajudar

[eduardogrigull]

Tenta trocar o "xlPasteFormats" por "xlPasteAll"

[Angra]

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

[Angra]

Mais alguma sugestão ou ajuda

[osvaldomp]

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 ?

[Angra]

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

[osvaldomp]

‘’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

[Angra]

, 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?

[osvaldomp]

Exclua a linha abaixo.

Código: Selecionar todos

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

[Angra]

osvaldomp, brigadasso pela ajuda, valeu