Botón para sumar de uno en uno

Tengo un botón con el cual hago varias funciones, quiero agregarle a este mismo botón una código que me sume en la celda "H2" de uno en uno cada que lo presiones "1001" y que cuando presione me pase a "1002"

2 Respuestas

Respuesta
1

Puedes usar algo así:

i = Cells(2, 8).Value
i = i + 1
Cells(2, 8).Value = i
Respuesta
1

H0la Norbey:

Prueba con esto en el código de tu botón

    With Sheets("Tu hoja").Range("H2")
        .Value = .Value + 1
    End With

Reemplaza "Tu hoja" por el nombre de la hoja en que está la celda

S@lu2

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas