Página 1 de 1

Copiar dados e limpar

Enviado: 13 Jan 2016 às 11:31
por vonzuben
Tenho célula: A1, A2, A3 e A4
Célula A2 e A3 faz soma e A4 sai o resultado

Gostaria de uma botão FECHAR do lado direito da célular A4, pois ao clicar, copia o resultado da célula A4 para A1 e limpar a célula A2 e A3 para uma nova soma.

Obrigado desde já

Copiar dados e limpar

Enviado: 13 Jan 2016 às 12:08
por mkenji
Boa tarde!

Uma maneira seria você criar um objeto (Inserir -> Formas -> Retangulo por exemplo) juntamente com esse código:

Sub soma()
Range("A1").Value = Range("D1").Value
Range("B1").Value = Empty
Range("C1").Value = Empty
End Sub

Após escrever o código, clique com o botão direito no objeto-> atribuir macro e escolha a macro criada.

Espero ter ajudado :)