Ayuda modificación de una Macro ( Fecha y Hora )
Publicado: Sab May 13, 2017 4:00 am
Hola Gente:
He revisado el foro y encontre una macro para poner la Fecha Fija en este link https://forum.openoffice.org/es/forum/v ... t=villeroy
Segui los pasos y funciona pero necesito poner la fecha y la hora cada una en una columna
En el mensaje 6 de Mauricio explica otra Macro
Dejo archivo adjunto.
He revisado el foro y encontre una macro para poner la Fecha Fija en este link https://forum.openoffice.org/es/forum/v ... t=villeroy
Segui los pasos y funciona pero necesito poner la fecha y la hora cada una en una columna
En el mensaje 6 de Mauricio explica otra Macro
Código: Seleccionar todo
Option Explicit
Sub InsertarFechaActual()
Dim oSel As Object
Dim oDir As Object
Dim oHoja As Object
Dim lCol As Long
'Cambiar por la columna a insertar
' A = 0, B = 1, etc
lCol = 1
oSel = ThisComponent.CurrentController.Selection
oHoja = oSel.SpreadSheet
oDir = oSel.CellAddress
oHoja.getCellByPosition(lCol, oDir.Row).setValue(Date)
End Sub
Sub InsertarHoraActual()
Dim oSel As Object
Dim oDir As Object
Dim oHoja As Object
Dim lCol As Long
'Cambiar por la columna a insertar
' A = 0, B = 1, etc
lCol = 2
oSel = ThisComponent.CurrentController.Selection
oHoja = oSel.SpreadSheet
oDir = oSel.CellAddress
oHoja.getCellByPosition(lCol, oDir.Row).setValue(Now) 'Quise cambiar Time por Now pero no lo reconoce
End Sub