Anónimo
Botón excel
Buenas tardes,
antes de nada, gracias por su disposición a ayudar.
Mi duda es sobre un botón que he creado en excel. La cosa es que tengo un código en VB asociado a ese botón. El código es el siguiente:
Sub incrementa()
Range("B5").value = Range("B5").value + Range("B6").value
End Sub
Así, el botón va perfecto, pero lo que yo quisiera es poder dejar pulsado el botón con un sólo click y que la celda vaya cambiando (aumentando en el valor de B6), no teniendo que pulsar cada vez para que el valor de la celda vaya cambiando.
Saludos y muchas gracias
antes de nada, gracias por su disposición a ayudar.
Mi duda es sobre un botón que he creado en excel. La cosa es que tengo un código en VB asociado a ese botón. El código es el siguiente:
Sub incrementa()
Range("B5").value = Range("B5").value + Range("B6").value
End Sub
Así, el botón va perfecto, pero lo que yo quisiera es poder dejar pulsado el botón con un sólo click y que la celda vaya cambiando (aumentando en el valor de B6), no teniendo que pulsar cada vez para que el valor de la celda vaya cambiando.
Saludos y muchas gracias
1 respuesta
Respuesta de d2enri
1
Veamos si te vale esto
Cambia la macro que tienes por esta
Sub incrementa()
Range("B5").Value = Range("B5").Value + Range("B6").Value
Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), _
Procedure:="incrementa", Schedule:=True
End Sub
Al pulsar el botón te ira incrementando cada segundo (puedes poner lo que quieras 2 segundos 10 etc
luego pones este código y le pones un botón para detener la macro incremento
Sub detener()
Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), _
Procedure:="incrementa", Schedule:=False
End Sub
Si es eso lo que necesitas cierra la pregunta y si necesitas alguna aclaración dímelo
Cambia la macro que tienes por esta
Sub incrementa()
Range("B5").Value = Range("B5").Value + Range("B6").Value
Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), _
Procedure:="incrementa", Schedule:=True
End Sub
Al pulsar el botón te ira incrementando cada segundo (puedes poner lo que quieras 2 segundos 10 etc
luego pones este código y le pones un botón para detener la macro incremento
Sub detener()
Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), _
Procedure:="incrementa", Schedule:=False
End Sub
Si es eso lo que necesitas cierra la pregunta y si necesitas alguna aclaración dímelo