Repetative Value update

[Radical_Magic63]

here is an excel subroutine for what i want I just dont know how to get it for Calc

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim rngInterest As Range
    Application.EnableEvents = False
    On Error Resume Next
    Set rngInterest = Intersect(Target, Range("A1:A3"))
    If Not rngInterest Is Nothing Then
        If rngInterest.Cells.Count > 1 Or Target.Row = 2 Then
            MsgBox "Error - Invalid Update", vbCritical, "Computer Says No"
            Application.Undo
        Else
            Select Case Target.Row
                Case 1
                    Range("A2").Value = Target.Value
                    Range("A3").ClearContents
                Case 3
                    Range("A2").Value = Range("A2").Value - Val(Target.Value)
                    Target.ClearContents
            End Select
        End If
    End If
    Application.EnableEvents = True

End Sub

[Zizi64]

You MUST rewrite all of silly MS VBA procedures and functions based on the StarBasic (or any other supported programming language) and the API functions of the AOO/LO.

Or you can try the LibreOffice. That has a littlebit higher compatibility vith the VBA macros. Use the switch

Code: Select all

Option VBAsupport 1

at the begin of the Basic Module of the LibreOffice.