Este fórum está sendo desativado

[cdtana]

Boa tarde, meu nome é Ana e estou com alguma dificuldade no vba do excel. Não sei se este é o local certo para minha pergunta, mas a questão é a seguinte: Tenho duas planilhas, uma me fará um somátório de alguns valores de entrada a cada procedimento. Coloquei um botão para limpar os campos a cada nova operação. Mas gostaria de transferir o somatório para uma outra planilha de forma a registrar todo o movimento e ao final de algum tempo poder ir até esta outra planhilha e realizar o somatório. Gostaria que a cópia do valor também fosse efetuada pelo botão limpar.
Tenter escrever o código com a declaração de uma variável global, mas o vba não aceitou a maneira que fiz. Gostaria de uma ajuda.

Atenciosamente,
Ana

[Parkeless]

Olá Ana, tudo bem?

Consegue postar uma planilha exemplificando? Se você puder postar seu código também, melhor ainda.

[cdtana]

Vou anexar o modelo

[cdtana]

Não estou conseguindo achar a opção para postar a planilha.

[AndersonLeal]

Vá no ícone + Resposta no canto inferior esquerdo.

[cdtana]

Estou enviando. Obrigada pela dica

[Parkeless]

Ana,

Substitua seu código pelo que está abaixo; associei a variantes, para que você possa mudar o range se precisar.

Código: Selecionar todos

Sub Macro3()

Dim Origem As Range
Dim Destino As Range
Dim ÁreapDeletar As Range

'Definições [editar range aqui]
Set Origem = Sheets("Plan1").Range("G9")
Set Destino = Sheets("Plan2").Range("F1000000").End(xlUp).Offset(1, 0) 'do final da planilha, um ctrl + cima para achar o último valor; a partir dali descer uma célula
Set ÁreapDeletar = Sheets("Plan1").Range("G5:G7")


'Gravar dados na plan2
Destino = Origem.Value


'Apagar dados
ÁreapDeletar.ClearContents

MsgBox "Dados salvos com sucesso!", vbInformation



End Sub