Página 1 de 1
Acumulador via vba
Enviado: 23 Mai 2016 às 17:36
por 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
Acumulador via vba
Enviado: 23 Mai 2016 às 17:45
por Parkeless
Olá Ana, tudo bem?
Consegue postar uma planilha exemplificando? Se você puder postar seu código também, melhor ainda.
Acumulador via vba
Enviado: 23 Mai 2016 às 18:52
por cdtana
Vou anexar o modelo
Re: Acumulador via vba
Enviado: 23 Mai 2016 às 19:00
por cdtana
Não estou conseguindo achar a opção para postar a planilha.
Acumulador via vba
Enviado: 23 Mai 2016 às 19:21
por AndersonLeal
Vá no ícone + Resposta no canto inferior esquerdo.
Re: Acumulador via vba
Enviado: 23 Mai 2016 às 19:26
por cdtana
Estou enviando. Obrigada pela dica
Acumulador via vba
Enviado: 24 Mai 2016 às 09:58
por 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 todosSub 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