Buenas como bien se ve en la pregunta, nose como pasar una macro de Microsoft Office a LibreOffice, ya que parece que el lenguaje que usan son diferentes, e probado con una pagina llamada “bussines. noseque…” que “teoricamente” te transforma el texto de VBA a BasicCalc, pero no sirve… me da muchos errores.
Asi que me preguntava quien me podria ayudar a transforma la macro… es corta, pero es que no tengo ni idea de pasarla a LibreOffice…
aqui esta la macro:
Sub Macro1()
Application.ScreenUpdating = False
[P22].Copy
Hoja2.Range("B" & [B:B].Rows.Count).End(xlUp).Offset(1, 0) _
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F10:O21").ClearContents
[C8].Copy
Hoja4.Range("A" & [A:A].Rows.Count).End(xlUp).Offset(1, 0) _
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
[C8].Copy
Hoja4.Range("F" & [F:F].Rows.Count).End(xlUp).Offset(1, 0) _
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
[A24:A40].Copy
Hoja4.Range("A" & [A:A].Rows.Count).End(xlUp).Offset(1, 0) _
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A24:A40").ClearContents
[B8].Copy
Hoja4.Range("C" & [C:C].Rows.Count).End(xlUp).Offset(1, 0) _
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
[E8].Copy
Hoja4.Range("D" & [D:D].Rows.Count).End(xlUp).Offset(1, 0) _
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
[M42].Copy
Hoja4.Range("E" & [E:E].Rows.Count).End(xlUp).Offset(1, 0) _
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
[M42].ClearContents
Application.ScreenUpdating = True
End Sub