Excel - ayuda con una funcion

Hola, les escribo porque tengo un problema con una formula, necesito grabar macros para que cuando presione un boton, en una determinada celda sume 1. Osea cada ves que presione el boton, la celda valla cambiando (1 ; 2 ; 3 ; 4 ; ect)...

Gracias

Bueno, con la grabadora de macros no lo lograras. Pon esto en un modulo de tu editor de VBA. Luego en tu hoja de calculo pon un boton y asiganle la macro. Yo he puestto la celda A1, pero tu coloca la que desees.

Sub sumar ()
Range("a1").value=range("a1").value+1
End sub

Abraham

PD: Para comenzar, manualmente pon un uno en A1

Muchisimas gracias, me salvaron la vida :) gracias por responder tan rapido son unos genios ;)

ESPERO TE SIRVA ESTA LINEA DE CODIGO LA ASIGNE A UN OBJETO

Sub Rectángulo2_AlHacerClic()
Range("D5").Value = Range("D5").Value + 1
End Sub

Perdon por seguir molestando, pero me surgio un problema, hice el primer boton y andubo todo bien, pero despues de q hice todos los otros ya no funciono nada...

Lo que modifique quedo asi

Sub cerveza_chica()
Range("Hoja2!A2").Value = Range("Hoja2!A2").Value + 1
End Sub

Y me da este error:

"Se ha producido el error "1004" en tiempo de ejecucion:

Error en el metodo "range" de objeto "_global"

Por favor, si me pueden ayudar se los voy a agradecer muchisimo!!!

ES DE ESTA MANERA
SHEETS("HOJA2")".Range("A2").Value = SHEETS("HOJA2")".Range("A2").Value ).Value + 1
PRUEBALO ASI

DISCULPA SI QUIERES HACER REFERENCIA A UN A HOJA DEBES USAR SHEETS("NOMBRE DE LA HOJA")

DISCULPA SI QUIERES HACER REFERENCIA A UN A HOJA DEBES USAR SHEETS("NOMBRE DE LA HOJA")

A EL ULTIMO VALUE ESTA DE MAS ME EQUIVOQUE AL PEGAR

Muchisimas gracias por preocuparte!!!!

ironias de la vida.

Este foro supuestamente de programacion y no tiene un buen editor para poder editar los mensajes propios corregirlos, una pregunta ,sabeis si estos foros tienen administrador?
y si uno se puede registrar y guardar clave y esas cosas que tienen otros foros con motor php?

saludos.