Excel Como fazer um botão macro alterar o valor de uma célula?

[Proxyhh-]

Boa tarde, pessoal. Tudo bem?

Gostaria que me ajudassem em um caso. Estou montando uma planilha para controlar as atividades da minha empresa e quero fazer o seguinte: quando eu clicar em um determinado botão, os valores da célula x vão aumentar.

Por exemplo: Ao clicar no botão, a célula A2 que continha o valor "1", vai para o valor "2", e isso é feito em forma crescente. Queria fazer a mesma coisa, mas em ordem decrescente. Ao clicar em outro botão, a célula A3 que continha o valor "5", vai para o valor "4", e sucessivamente.

Desde já, agradeço a ajuda.

[doc_.]

Creio que isso resolva, onde no evento click do botão ele adiciona uma unidade ao valor da célula.

Range("B4").Value = Range("B4").Value + 1

 

E para diminuir:

Range("B4").Value = Range("B4").Value - 1

 

 

Porém, caso haja um caractere diferente de um número, vai retornar um erro de tipos incompatíveis.

[Proxyhh-]

@doc_.

2 horas atrás, doc_. disse:

Creio que isso resolva, onde no evento click do botão ele adiciona uma unidade ao valor da célula.

Range("B4").Value = Range("B4").Value + 1

 

E para diminuir:

Range("B4").Value = Range("B4").Value - 1

 

 

Porém, caso haja um caractere diferente de um número, vai retornar um erro de tipos incompatíveis.

Por algum motivo o botão só define o valor como "1", ao invés de fazer a soma.

[Patropi]

@Proxyhh- Boa noite

 

Você deve ter feito algo errado, pois o código do colega @doc_. funciona perfeitamente.

Confira na planilha que anexei.

 

Se foi útil clica em Curtir nas nossas respostas e marque a resposta do @doc_hd como solução.

 

[]s

Somar ou diminuir valor da ce´lula B4 com VBA.zip