Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
Avatar do usuário
Por Jore
Posts Avatar
#72687
Olá pessoal,
Estou precisando de um comando VBA para copiar a cor de preenchimento de uma célula para outra em abas diferente.
Na planilha 1 tenho nomes com cores diferentes, a Planilha 2 vai receber o nome que esta na planilha 1. Preciso que a cor também seja copiada e para a célula e apra a célula ao lado.
Espero qeu alguém possa me ajudar!Obrigado
Você não está autorizado a ver ou baixar esse anexo.
Por osvaldomp
#72688
Salve, Jore.

Cole uma cópia do código abaixo no módulo da Planilha2.

funcionamento - escolha um nome na Validação da coluna C daquela planilha e o código irá pintar as células em C:F.
obs. embora você pediu para pintar "a célula ao lado" eu suponho que você queira pintar, além do nome, as 3 células à direita do nome. Se não for isso, substitua o número 4 nas duas ocorrências de Resize(, 4) pelo 3 ou pelo 2.
Código: Selecionar todos
Private Sub Worksheet_Change(ByVal Target As Range)
 Dim n As Range
  If Target.Count > 1 Or Target.Column <> 3 Then Exit Sub
  Target.Resize(, 4).Interior.Color = xlNone
  If Target.Value <> "" Then
   Set n = Sheets("Planilha1").[C:C].Find(Target.Value)
   Target.Resize(, 4).Interior.Color = n.Interior.Color
  End If
End Sub
JCabral agradeceu por isso

=SE(MÊS(A1)&lt;7;&quot;1º sem&a[…]

Bom Dia Senhores. Tenho uma macro que preciso dei[…]

Free relationships without drama and obligations. […]

Girar Imagem e Zoom

Boa noite Teria alguma forma de dar um &quot;[…]

Valeu. Muito Obrigado!!!!!!!!

Pessoal, Ao clicar no botão Copiar (Guia C[…]

Procv com serro em vba

Resolvido

Bom dia, pessoal! com a data de nascimento e data […]

Estamos migrando para uma comunidade no Discord