Este fórum está sendo desativado

[werlewow]

Bom dia a todos. Sou iniciante em VBA, se possível, realizar a modificação no arquivo em anexo.

Gostaria que ao apertar o botão "replicar cor" ele pinte as células coloridas das etiquetas com a cor de preenchimento da célula A9.
Consegui fazer com que ele pinte, porém apenas de uma mesma cor, inclusive criei um botão para voltar para cor antiga, podem apertar para testar.
Não sei como escrever um código que armazena a cor da celula A9 e utilize essa cor para pintar as etiquetas, essa é minha dificuldade.
Além disso, como ele só esta pintando a mesma cor, para entender qual cor ele substitui pela nova, o correto seria ele ler a célula I7 e utilizar o preenchimento dela para substituir pela nova cor.


Obrigado

[werlewow]

Consegui! nem acredito que deu certo hahahah, vou deixar o tópico disponível, caso ajudem alguém. O código ficou assim:


Sub Macro2()

Application.FindFormat.Clear
With Application.FindFormat.Interior
.Color = Range("i7").Interior.Color

End With

Application.ReplaceFormat.Clear
With Application.ReplaceFormat.Interior
.Color = Range("a9").Interior.Color
End With

Cells.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True
End Sub