Vídeo recomendado
https://youtu.be/diWPPPhW-9E

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 »

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