Tempo de leitura: 1 minuto
Excel VBA – Incremento quantidade atendimento célula
DUVIDA Paulo Borges de Oliveira
Como criar botão em planilha excel 2016, que ao ser clicado incrementa o valor de determinada célula??. Desejo criar uma planilha para controle de atendimento, e toda vez que houver um atendimento a pessoa clique em um botão e seja incrementado uma unidade a cada clique neste numero/célula.exemplo do que desejo fazer: planilha celula A1:texto: atendimento Celula B1: Um botão Celula C1: Número que será incrementado a cada clique no botão da celula b1. na planilha cada vez que for feito um atendimento a pessoa clicará em b1 e a celula c1 aumentará sempre uma unidade, mostrando o total de atendimentos realizados(cliques na celula b1).
Sub sbx_incrementar_numero_celula()
Dim vResposta As String
vResposta = MsgBox(“Deseja o incremento no número de atendimento?” & vbCrLf _& “Ja foram realizados : ” & vbCrLf & _
Cells(4, “d”) & ” Atendimentos “, vbInformation + vbYesNo, “Escola Saberexcel VBA Estudos®”)
If vResposta = 6 Then ‘ 6 = sim(vbYes), 7 = não(vbNo)
Cells(4, “d”).Value = Cells(4, “d”) + 1
End If
[b2].Select ‘[‘ atalho para objeto Range(“”)
End Sub
Faça o Download do exemplo de planilha MS Excel VBA
[wpdm_package id=’536′]