ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Digitar em uma célula e apagar os dado em outra célula

Dúvidas gerais sobre Excel
roberto grando
Acabou de chegar
Acabou de chegar
Mensagens: 9
Registrado em: Qua Jul 11, 2012 9:54 am

Digitar em uma célula e apagar os dado em outra célula

Mensagem por roberto grando » Qua Jan 23, 2013 10:05 pm

Estou com um problema em uma planilha, em que por exemplo nas células A1 e B1, quando eu digitar na célula A1 os dados que tiver na célula A2 sejam excluídos, e pule para C1 e se digitar na célula B1 os dados da célula A1 sejam excluídos e pule para C1.

Na macro está assim:

Case Range("A1").Address
Range("B1").Select
Selection.ClearContents
Range("C1").Select

Case Range("B1").Address
Range("A1").Select
Selection.ClearContents
Range("C1").Select


tenho utilizado em macro dentro da PLAN1.

O problema é que quando digito na célula B1 por exemplo ela apaga a A1 mas também a célula A2

Já utilizei:
Range("A1").Select
Selection.ClearContents

Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

Alguém teria alguma solução?



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder