[RESUELTO] Macro para aumentar en 1 el valor de una celda

[ssuarez.75]

Hola a todos!

Soy nuevo en este foro y en la creación de macros.
Quiero asignar una macro a un botón que aumente en 1 el valor de una celda determinada cada vez que se pulse.
Ya sé crear botones y asignarle macros, pero no tengo ni idea de como hacer esa macro.
¿Podríais ayudarme?.

Gracias y saludos,
Sergio.

[PepeOooSevilla]

Hola.

Te damos la bienvenida al Foro y, por favor, no dejes de leer la Guía de supervivencia.

En el archivo adjunto tienes dos ejemplos, uno con macro y otro sin ella haciendo uso de un control de formulario (botón de selección) que incrementa/decrementa el valor de la celda A1 en una unidad (la macro solo incrementa la celda A1). Este es el código empleado para la macro:

Código: Seleccionar todo

REM  *****  BASIC  *****
Option Explicit

Sub Sumar1CeldaA1()
'Aumenta en una unidad el valor de la celda A1
	Dim HojaActiva As Object

	HojaActiva = ThisComponent.CurrentController.ActiveSheet
	HojaActiva.getCellRangeByName("A1").setValue(HojaActiva.getCellRangeByName("A1").getValue() + 1)
End Sub

Las macros no son fáciles pero si te interesa la programación para OpenOffice/LibreOffice tienes que leer y estudiar el libro Aprendiendo OOo Basic de nuestro compañero mauricio. También lo puedes consultar aquí: Guía de introducción al uso de Apache OpenOffice > Temas Avanzados > Macros > StarBasic

Además en las páginas Manuales de Apache OpenOffice en español: Basic y, Basic OpenOffice: Apache OpenOffice Basic en español de nuestro compañero SLV-es, encontrarás muy buena información.

Saludos cordiales.

[ssuarez.75]

Muchísimas gracias!

Espectacular la respuesta.
He intentado aprender en una tarde para hacer ésto, pero vi que va a hacer falta más tiempo...
Gracias por comentar los tutoriales porque con las macros veo que se abre un mundo de posibilidades.

Saludos,
Sergio.

[PepeOooSevilla]

Hola.
Por favor, cuando consideres que un tema que has iniciado se ha resuelto, debes indicarlo (¿Cómo marcar como RESUELTO un tema?), para conseguir, de esta forma, un foro más ordenado.
Saludos cordiales.