Botón para incrementar en 1 un numero en una celda
Tengo una petición, quiero crear un botón, este botón tiene que incrementarme en 1 el numero de la celda D1 (por ejemplo), supongamos que en la celda tengo el valor 50, cuando presiono el botón el valor tiene que pasar a 51, luego a 52, 53... Y así sucesivamente hasta llegar a un tope que lo ocupo en 486, de igual manera ocupo otro botón para disminuir el valor de esa celda, 50, 49, 48, me pueden ayudar con el macro para el botón, esto es para una búsqueda por números, pero no sé como hacerlo, de igual manera empiece a incrementar en 1 sin importar el valor de la celda.
2 respuestas
Te anexo las 2 macros
Sub Incrementar()
limite = 486
If Range("D1") = limite Then
MsgBox "Límite alcanzado"
Exit Sub
End If
Range("D1") = Range("D1") + 1
End Sub
'
Sub Diminuir()
Range("D1") = Range("D1") - 1
End SubTambién puedes utilizar un Control de Número. Entra a la ficha de programador. Insertar. Controles de formulario y selecciona Control de número, luego en la hoja de excel presiona click izquierdo del mouse y arrastra para formar el Control
Ahora presiona click derecho del mouse sobre el Control de número para entrar al Formato control y pon lo siguiente:
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
Prueba esta macro
Sub aumentar() [d1] = [d1] + 1 If [d1] > 486 Then [d1] = 486 End Sub ´ Sub disminuir() [d1] = [d1] - 1 If [d1] <= 0 Then [d1] = 0 End Sub