Code VBA to Basic (error)

[ironbrothers]

Hello, I have on code in VBA, but my Sister on her store just have OpenOffice, and the code that I wrote doesnt match, anyone can help me?
I want that in the same cell, I can put one value, and continous insert values and the sum appears in to cells foward.

Code: Select all

Rem Attribute VBA_ModuleType=VBADocumentModule
Option VBASupport 1
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim vRange As Range

If Target.Cells.Count > 4 Then Exit Sub

Set vRange = Range("B12", "L21")

If Not Intersect(Target, vRange) Is Nothing Then
If IsNumeric(Target) And IsNumeric(Target.Offset(0, 2)) Then
Target.Offset(0, 2) = Target + Target.Offset(0, 2) 'pulando uma coluna e inserindo a soma
End If
End If
Set vRange = Nothing
End Sub

Please help me

[Lupp]

I can only guess what the code is expected to achieve, and I don't feel sure there are many contributors here who know better.

Since you wrote the code, you will know. Tell us, and someone can surely write a few lines in native code for AOO Calc defining an equivalent Sub.
Don't miss to explain for what reason the local variable VRange is set to 'Nothing' at the end, and in what way you intend to call the Sub and to pass an 'Excel.Range' to it. It won't be surprising to you that the position from where the Sub is to call must know how to create that range, in other words tghat it must run undert VBAsupport. I assume you won't get happy with that miximg up of software with alien user code. Support in Calc will never be perfect. For what reason is the Sub declared 'Private'?

[Zizi64]

Openoffice 4.4.1 on Windows 7

There is not Apache OpenOffice 4.4.1 version today.
If you are using LibreOffice, please update your signature.

The LibreOffice has a littlebit higher compatibility with the foreign fileformats and the MS VBA macros.
Try it.
Otherwise you must REWRITE all of your macros in StarBasic (or in other supported programming language: python for example) and based on the API (Application Programming Interface) functions.

Note - as Lupp wrote it - "Support in Calc will never be perfect." Neither in AOO nor in LO.