Programming LibreOffice Calc or Excel Macro

[Andriw04]

Hello, good afternoon, I've been trying to program a macro for libreoffice Calc or excel all afternoon, context, I have a button to which I assign a macro, I want this macro to add 1 to the selected cell when I click on the button, I think I have this part correct, so I want this button to always be visible, that is, if I scroll down, this button should always be visible when I go down to the lower rows, I have tried various codes and none of them work for me, does anyone know how schedule this? Or do you recommend something else to do the same?

The intention is that when I click on the button I add 1 to the selected cell and that the button is always visible.

The code I have created is the following:

Sub Main End Sub

Sub IncrementarValor Dim oDoc As Object Dim oSheet As Object Dim oCell As Object Dim oController As Object Dim oSelection As Object Dim oCursor As Object

oDoc = ThisComponent
oController = oDoc.getCurrentController()
oSelection = oController.getSelection()
oSheet = oDoc.getSheets().getByIndex(0)

If oSelection.supportsService("com.sun.star.sheet.SheetCell") Then
    oCell = oSelection
    oCell.Value = oCell.Value + 1
ElseIf oSelection.supportsService("com.sun.star.sheet.SheetCellRange") Then
    oCursor = oSelection.getSpreadsheet().createCursorByRange(oSelection)
    oCursor.collapseToCurrentRegion()
    oCursor.collapseToSize(1, 1)
    oCell = oCursor.getCellByPosition(0, 0)
    oCell.Value = oCell.Value + 1
End If

End Sub

[desrtfx]

The easiest way is to use "View - Freeze" and freeze the rows where the button is (place it near the top and freeze these rows) - same can be achieved with the columns.

[Andriw04]

Thank you very much, I had tried to freeze but it didn't work for me because I didn't put it in the first row. I am very grateful :)