Migración macro de excel

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...
Responder
rapcat
Mensajes: 4
Registrado: Mar Dic 08, 2020 11:56 am

Migración macro de excel

Mensaje por rapcat »

Buenas, un documento el cual está creado en excel y contiene una macro muy sencilla, me pasa lo siguiente:

Cuando lo abro con Calc, todo funciona perfectamente, la macro también funciona perfectamente. Modifico cualquier celda y guardo los cambios del documento. Cierro el documento y lo vuelvo a abrir. Ahora la macro ya no funciona.. No logro ver por qué está pasando.

La macro en cuestion es la siguiente:

Código: Seleccionar todo

Private Sub nuevo_tiempo_ejecucion()
    If ActiveCell.Offset(0, 1).Value <> "" Then
        ActiveCell.Offset(0, -1).Value = (Now - ActiveCell.Offset(0, 1).Value) + ActiveCell.Offset(0, -1).Value
        ActiveCell.Offset(0, 1).Value = ""
        'Resta de horas planificadas - realizadas , finalmete implementado con fórmula
            'ActiveCell.Offset(0, 3).value = Hour(ActiveCell.Offset(0, -2).value) - Hour(ActiveCell.Offset(0, -1).value)
    End If
End Sub



Sub Worksheet_Change(ByVal Target As Range)
    If Selection.Cells.Count = 1 Then
        If ActiveCell.Column = 5 Then
            If UCase(Target.Value) = "EN PROCESO" Then
                ActiveCell.Offset(0, 1).Value = Now
            ElseIf UCase(Target.Value) = "SEGUIMIENTO" Then
                nuevo_tiempo_ejecucion
            ElseIf UCase(Target.Value) = "BLOQUEADO" Then
                nuevo_tiempo_ejecucion
            ElseIf UCase(Target.Value) = "CERRADO" Then
                nuevo_tiempo_ejecucion
            ElseIf UCase(Target.Value) = "PAUSA" Then
                nuevo_tiempo_ejecucion
            End If
        ElseIf ActiveCell.Column = 2 Then
            If UCase(Target.Value) <> "" Then
                ActiveCell.Offset(-1, 1).Value = "S." & Application.WorksheetFunction.WeekNum(Date)
            End If
        End If
    End If
End Sub


Puedo compartir el documento con vosotros? está permitido ?
Última edición por rapcat el Mar Dic 15, 2020 1:15 pm, editado 1 vez en total.
LibreOffice 7.0.1.2 (x86) Portable // Windows 10
Longi
Mensajes: 804
Registrado: Dom Ene 20, 2013 9:05 pm
Ubicación: Ourense, Galicia, España

Re: Macro deja de funcionar tras guardar cambios

Mensaje por Longi »

Buenas!

Las macros de Excel y las de Calc no tienen la misma sintaxis.

Un saludo!
Openoffice 4.1.7, en Windows 10
Libreoffice 6.4.2, en Windows 10
rapcat
Mensajes: 4
Registrado: Mar Dic 08, 2020 11:56 am

Re: Macro deja de funcionar tras guardar cambios

Mensaje por rapcat »

Lo curioso es que si no edito el documento, todo funciona correctamente incluida la macro. En cuanto realizo un cambio, guardo, cierro y vuelvo a abrir. Entonces ya no me funciona la macro. ¿Sabes como podría solucionarlo?
LibreOffice 7.0.1.2 (x86) Portable // Windows 10
rapcat
Mensajes: 4
Registrado: Mar Dic 08, 2020 11:56 am

Re: Macro deja de funcionar tras guardar cambios

Mensaje por rapcat »

Editado.
Última edición por rapcat el Mié Dic 16, 2020 11:47 am, editado 1 vez en total.
LibreOffice 7.0.1.2 (x86) Portable // Windows 10
rapcat
Mensajes: 4
Registrado: Mar Dic 08, 2020 11:56 am

Re: Migración macro de excel

Mensaje por rapcat »

Nadie ?
LibreOffice 7.0.1.2 (x86) Portable // Windows 10
Responder