[Solved] SELECT command -macro

[maciu1]

Hello,
I'm trying to run a VBA code into ods.file. The macro is very simple: as soon as a cell from column D is filled, automatically actually hour and date is recorder on the next 2 columns (on the same row). after that, the cursor must jump to the next row, first column.
The code runs fine in EXCEL, and only with an error on OpenOffice file: when the cursor jumped to the next row, first column, the cell is selected and coloured in blue. After that, the cell can't be used, until the arrow button from the keyboard is pressed.
I'm using a barcode scanner to collect data and with cell stuck the recording is stopped.
So, please, can someone to modify the code in order to be used? (I'm very beginner in macro stuff and code is made from multiple sources from net)

Thanks!

Rem Attribute VBA_ModuleType=VBADocumentModule
Option VBASupport 1
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D2:D3000")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
Dim lc As Long
With Application
.EnableEvents = False
.ScreenUpdating = False
lc = Cells(Target.Row, Columns.Count).End(xlToLeft).Column
If lc = 1 Then
Cells(Target.Row, lc + 1) = Format(Now, "hh:mm")
Cells(Target.Row, lc + 2) = Format(Now, "dd/mm/yyyy")
ElseIf lc > 2 Then
Cells(Target.Row, lc + 1) = Format(Now, "hh:mm")
Cells(Target.Row, lc + 2) = Format(Now, "dd/mm/yyyy")
End If
.EnableEvents = True
.ScreenUpdating = True
End With
ActiveCell.Offset(1, -3).Select
End Sub

[Zizi64]

I'm trying to run a VBA code into ods.file.

The StarBasic and the API of the AOO / LO is not compatible with the MS VBA codes. (API: Application Programming Interface)

The LibreOffice has a littlebit higher compatibility with the VBA codes (relative to the AOO) but it has not but 100% compatibility.
You need REWRITE all of MS VBA macros by using the AOO/LO API functions.

[maciu1]

I know there is no 100% compatibility VBA~AOO/LO macros, but in my case just 1 command needs adjustments...the rest of the code running fine on AOO.

[einstein]

I guess your excel macro works on LO.
To work on LO try changing:

Code: Select all

ActiveCell.Offset(1, -3).Select

by

Code: Select all

document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "By"
args1(0).Value = 3
args1(1).Name = "Sel"
args1(1).Value = false
dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args1())
args1(0).Value = 1
dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args1())

[maciu1]

@einstein, you are the man! the code is running fine with your extra lines.
THANKS!