[RESUELTO] Repetir Macro en todas las hojas de CAL

[anlimo1969]

Hola a todos:

He realizado una macro en una hoja de CAL, es muy sencillita, funciona eso es lo importante, lo que ocurre que en el mismo libro he creado otra hoja, y en esa hoja no me funciona la macro. ¿Puede alguien como puedo hacer que en las demás hojas de libro funcione la misma macro? seguro que es fácil, pero no lo he conseguido.
Gracias

[mauricio]

Es probable que estes usando el nombre de la hoja como condición, pero... así, sin ver, es compliado ayudarte, muestranos tu código para orientarte...

Saludos

[anlimo1969]

Hola a todos:

A continuación os paso el macro para que le podáis echar un vistazo.

Sub InsertarFecha()
Dim Doc, Sheet, Cell, oSelection, oDocument, oCell As Object
Dim oRangeAddress as New com.sun.star.table.CellRangeAddress
Doc = ThisComponent
Sheet = Doc.Sheets(0)
oSelection = Doc.CurrentController.getSelection
oRangeAddress = oSelection.getRangeAddress
r = oRangeAddress.StartRow
c = oRangeAddress.StartColumn
oCell= Sheet.getCellByPosition(c,r)
oCell.String = Date 'devuelve la fecha actual
End Sub

Supongo que será alguna modificación en la macro.

[PepeOooSevilla]

Hola.

La línea

Sheet = Doc.Sheets(0)

siempre hace referencia a la misma hoja (la "cero"). Si lo que deseas es que escriba la fecha en la hoja activa debes cambiar esa línea por

Sheet = Doc.CurrentController.getActiveSheet()

(ver página 163 del libro de nuestro compañero Mauricio Baeza "Aprendiendo OOo Basic").

Saludos cordiales.

[anlimo1969]

Hola a todos

Efectivamente, una vez cambiada la linea todo ha quedado solucionado, muchísimas gracias por la ayuda, sois rápidos y muy efectivos.

Saludos