Notifications
Clear all

Copiar Registro para outra célula Mesmo se for apagado

10 Posts
2 Usuários
0 Reactions
1,304 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ola Senhores.
Tenho uma Celula onde insiro registros Nome
A1 por exemplo
gostaria de copiar o conteudo que foi colocado na celula A1
para outra celula C1 por exemplo.

Mas se apagar o valor da celula A1 o valor continuasse na celula C1

Ou seja a Celula C1 fica o todos os registros ja colocados na A1

Alguem sabe como fazer isso?Automaticamente

 
Postado : 22/05/2012 2:26 pm
(@robert)
Posts: 561
Honorable Member
 

Robson,
Boa noite!

Para colocar na célula C1 é bem simples só é preciso fazer referencia a célula A1, mais do jeito que você quer só através de Macro.

:D

 
Postado : 22/05/2012 2:45 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ola, E como faço isso?
Desculpe a ignorância.

 
Postado : 22/05/2012 2:48 pm
(@robert)
Posts: 561
Honorable Member
 

Robson,
Boa noite!

Muito simples, supondo que na célula A1 tenha um nome na célula C1 coloque =A1

Se a resposta foi útil, agradeça clicando na mãozinha lado superior direito.

:D

 
Postado : 22/05/2012 2:52 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Certo Mas assim se eu apagar o conteúdo da célula A1 vai apagar também da célula C1

 
Postado : 22/05/2012 2:57 pm
(@robert)
Posts: 561
Honorable Member
 

Robson,

Como falei acima não ficará fixa, de ante mão poderá fazer isso gravando uma macro.

:D

 
Postado : 22/05/2012 3:02 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Tente sempre usar a pesquisa do fórum, tive algumas postagens à esse assunto.

Ao digitar em A1 os valores vai para B2, e é acumulado para baixo na mesma coluna
Para usar o código, aperte as teclas Alt + F11, ao entrar no Editor VB, do lado esquerdo escolha a Plan1 dê 2 clicks nela, e cole o código abaixo!

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count <> 1 Then Exit Sub
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    Cells(Rows.Count, 2).End(xlUp).Offset(1, 0) = Target.Value
End Sub
 
Postado : 23/05/2012 4:55 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ola Amigo,
Deu quase certo

funciona apenas para uma célula, no caso a A1 Gostaria que copiasse todas as que tem registro.
Por exemplo A1, A2, A3 etc

E onde defino para qual celula é para copiar?
Exemplo Copiar para Plan2(B2) Ou seja seria da B2 endiante(b2,b3,b4)

Obrigado

 
Postado : 23/05/2012 3:56 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

1º como disse em minha postagem anterior, use a pesquisa do fórum!!

2º sua questão da ultima postagem está diferente da primeira, mande um arquivo modelo COMPACTADO, e decida exatamente o que quer!!!

Att

 
Postado : 24/05/2012 5:35 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ola,
Peço desculpas por não ser claro.

Pelo código que você me passou.
Essa linha é de onde pega os dados
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub

E pelo que vi nessa linha é para onde vai ser copiado
Cells(Rows.Count, 2).End(xlUp).Offset(1, 0) = Target.Value
Ou seja Coluna 2
Gostaria de saber se tem como escolher para qual célula copiar
tipo Cells(Rows.Count, Plan2(C3)).End(xlUp).Offset(1, 0) = Target.Value

Esta funcionado o código que você passou. Só preciso definir para onde copiar

 
Postado : 24/05/2012 7:42 am