Este fórum está sendo desativado

[Ventura]

Galera,

Tou precisando de formatar automaticamente, talvez com Formatação condicional, um conjunto de células para que elas tenham a mesma formatação que outras têm, por exemplo:

A formatação de A1 deverá ser igual à formatação de B1 (formatação definida previamente).
A formatação de A2 deverá ser igual à formatação de B2 (formatação definida previamente).
A formatação de A3 deverá ser igual à formatação de B3 (formatação definida previamente).
...


Confira o anexo.


Agradeço a ajuda!

[osvaldomp]

Experimente:

1. se a tabela já existe na planilha

Código: Selecionar todos

Sub FormataCélulas()
 Dim a As Range
  For Each a In Range("A1:A" & Cells(Rows.Count, 1).End(3).Row)
   a.Offset(, 1).Copy
   a.PasteSpecial Paste:=xlPasteFormats
  Next a
End Sub

2. se a tabela será construída continuamente

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Count > 1 Then Exit Sub
 If Target.Column > 1 Then Exit Sub
 On Error GoTo fnlz
 Application.EnableEvents = False
 Target.Offset(, 1).Copy
 Target.PasteSpecial Paste:=xlPasteFormats
fnlz:
 Application.EnableEvents = True
End Sub

[Ventura]

Agradeço a resposta!

Não consegui o efeito desejado com as sugestões apresentadas.

Não sou craque a utilizar códigos no Excel, mas posso tentar.

O que eu pretendia era que as células B6 a C33, bem como outras de outras linhas a serem adicionadas, pudessem automaticamente ter o mesmo formato de fundo, sobretudo a cor, que as células da mesma linha da coluna D.

Confira o anexo.

Agradeço a ajuda

[osvaldomp]

Não consegui o efeito desejado com as sugestões apresentadas.
Óbvio, pois os códigos foram elaborados para a primeira planilha que é totalmente diferente da segunda.

Instale uma cópia do código abaixo no módulo da planilha Receitas, assim:
1. copie o código daqui
2. clique com o direito na guia daquela planilha e escolha 'Exibir Código'
3. cole o código na janela em branco que vai se abrir
4. feito! 'Alt+Q' para retornar para a planilha e testar

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim c As Long
 If Target.Count > 1 Then Exit Sub
 If Intersect([B:C], Target) Is Nothing Or Target.Value = "" Then Exit Sub
 On Error GoTo fnlz
 Application.EnableEvents = False
  Cells(Target.Row, 2).Resize(, 2).Interior.Color = Cells(Target.Row, 4).DisplayFormat.Interior.Color
fnlz:
 Application.EnableEvents = True
End Sub

funcionamento - ao inserir conteúdo manualmente na coluna B ou na coluna C o código irá replicar naquelas colunas a cor de preenchimento da coluna D, mesma linha

[Ventura]

Osvaldo é génio!