Macro VBA excel to calc

English
, ,
#1 
 Sub vallerH24()
'
' valler Macro
'
' Keyboard Shortcut: Ctrl+Shift+I
     Range("C5").Select
     Selection.Copy
     lMaxRows = Cells(Rows.Count, "G").End(xlUp).Row
    Range("G" & lMaxRows + 1).Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.OnTime Now + TimeValue("00:02:00"), "vallerH24"
End Sub
Sub ripeti()
Application.OnTime Now + TimeValue("00:02:00"), "vallerH24"
End Sub

Hello, unfortunately I come from excell microsoft. I have decided not to use it anymore because it is really too heavy.
I had created a working macro where I copied a value under a busy column. And gradually more and more below.
all this had to happen at a certain time.

I was convinced that the language between the two programs was compatible. instead no.

this is my macro.
Anyone can help me??
Thank you

Select "last" cell in column with a macro
#2

Use APSO to enter this Python code.

from threading import Timer

def append_to_column():
    oSheet = XSCRIPTCONTEXT.getDocument().getSheets().getByIndex(0)
    oColumns = oSheet.getColumns()
    COLUMN_G = ord('G') - ord('A')
    oColumn = oColumns.getByIndex(COLUMN_G)
    oFinder = oColumn.createSearchDescriptor()
    oFinder.SearchRegularExpression = True
    oFinder.SearchString = "."  # match cells that have something in them
    oResult = oColumn.findAll(oFinder)
    if oResult:
        sRange = oResult.AbsoluteName
        last_filled_row = int(sRange.rsplit("$", 1)[1])
    else:
        last_filled_row = 0
    new_row = str(last_filled_row + 1)
    cell_to = oSheet.getCellRangeByName("G" + new_row)
    cell_from = oSheet.getCellRangeByName("C5")
    cell_to.setString(cell_from.getString())
    t = Timer(120.0, append_to_column)
    t.start()

g_exportedScripts = append_to_column,

References:

Impressum (Legal Info) | Datenschutzerklärung (Privacy Policy)   Content on this site is licensed under a Creative Commons Attribution Share Alike 3.0 license.