(Help) Recreated macro from excel to libre

English
,
#1

hallo can someone help me with macro from excel, i want to used it on my libre.
So this macro help with to copy some of text in the cell to other sheet with just one click

MAKRO DELETE 
Sub MACROCLOSEDTAB()
ActiveSheet.Range("F1").ClearContents
End Sub

MAKRO COPAS
    Sub CopyPasteCIFETBtoUPDATEDATA()
    Sheets("ETB").Select 'Ganti "Sheet1" dengan nama sheet asal
    Range("E4").Select 'Ganti "A1:C10" dengan range data yang ingin disalin
    Range("E4").Copy 'Menyalin data yang dipilih

    Sheets("UPDATE DATA").Select 'Ganti "Sheet2" dengan nama sheet tujuan
    Range("I7").Select 'Ganti "A1" dengan sel tempat data akan ditempel
    Range("I7").PasteSpecial Paste:=xlPasteValues 'Menempelkan data dengan nilai saja (opsional)
    End Sub
    Sub CopyPasteREKETBtoUPDATEDATA()
    Sheets("ETB").Select 'Ganti "Sheet1" dengan nama sheet asal
    Range("J4").Select 'Ganti "A1:C10" dengan range data yang ingin disalin
    Range("J4").Copy 'Menyalin data yang dipilih

    Sheets("UPDATE DATA").Select 'Ganti "Sheet2" dengan nama sheet tujuan
    Range("I9").Select 'Ganti "A1" dengan sel tempat data akan ditempel
    Range("I9").PasteSpecial Paste:=xlPasteValues 'Menempelkan data dengan nilai saja (opsional)
    End Sub
    Sub CopyPasteCIFNTBtoUPDATEDATA()
    Sheets("CIF BR").Select 'Ganti "Sheet1" dengan nama sheet asal
    Range("I7").Select 'Ganti "A1:C10" dengan range data yang ingin disalin
    Range("I7").Copy 'Menyalin data yang dipilih

    Sheets("UPDATE DATA").Select 'Ganti "Sheet2" dengan nama sheet tujuan
    Range("I7").Select 'Ganti "A1" dengan sel tempat data akan ditempel
    Range("I7").PasteSpecial Paste:=xlPasteValues 'Menempelkan data dengan nilai saja (opsional)
    End Sub
    Sub CopyPasteREKNTBtoUPDATEDATA()
    Sheets("CIF BR").Select 'Ganti "Sheet1" dengan nama sheet asal
    Range("I12").Select 'Ganti "A1:C10" dengan range data yang ingin disalin
    Range("I12").Copy 'Menyalin data yang dipilih

    Sheets("UPDATE DATA").Select 'Ganti "Sheet2" dengan nama sheet tujuan
    Range("I9").Select 'Ganti "A1" dengan sel tempat data akan ditempel
    Range("I9").PasteSpecial Paste:=xlPasteValues 'Menempelkan data dengan nilai saja (opsional)
    End Sub
    Sub CopyPasteCIFUPDATEDATAtoETB()
    Sheets("UPDATE DATA").Select 'Ganti "Sheet1" dengan nama sheet asal
    Range("I7").Select 'Ganti "A1:C10" dengan range data yang ingin disalin
    Range("I7").Copy 'Menyalin data yang dipilih

    Sheets("ETB").Select 'Ganti "Sheet2" dengan nama sheet tujuan
    Range("E4").Select 'Ganti "A1" dengan sel tempat data akan ditempel
    Range("E4").PasteSpecial Paste:=xlPasteValues 'Menempelkan data dengan nilai saja (opsional)
    End Sub
    Sub CopyPasteREKUPDATEDATAtoETB()
    Sheets("UPDATE DATA").Select 'Ganti "Sheet1" dengan nama sheet asal
    Range("I9").Select 'Ganti "A1:C10" dengan range data yang ingin disalin
    Range("I9").Copy 'Menyalin data yang dipilih

    Sheets("ETB").Select 'Ganti "Sheet2" dengan nama sheet tujuan
    Range("J4").Select 'Ganti "A1" dengan sel tempat data akan ditempel
    Range("J4").PasteSpecial Paste:=xlPasteValues 'Menempelkan data dengan nilai saja (opsional)
    End Sub
    Sub CopyPasteCIFNTBtoETB()
    Sheets("CIF BR").Select 'Ganti "Sheet1" dengan nama sheet asal
    Range("I7").Select 'Ganti "A1:C10" dengan range data yang ingin disalin
    Range("I7").Copy 'Menyalin data yang dipilih

    Sheets("ETB").Select 'Ganti "Sheet2" dengan nama sheet tujuan
    Range("E4").Select 'Ganti "A1" dengan sel tempat data akan ditempel
    Range("E4").PasteSpecial Paste:=xlPasteValues 'Menempelkan data dengan nilai saja (opsional)
    End Sub
    Sub CopyPasteREKNTBtoETB()
    Sheets("CIF BR").Select 'Ganti "Sheet1" dengan nama sheet asal
    Range("I12").Select 'Ganti "A1:C10" dengan range data yang ingin disalin
    Range("I12").Copy 'Menyalin data yang dipilih

    Sheets("ETB").Select 'Ganti "Sheet2" dengan nama sheet tujuan
    Range("J4").Select 'Ganti "A1" dengan sel tempat data akan ditempel
    Range("J4").PasteSpecial Paste:=xlPasteValues 'Menempelkan data dengan nilai saja (opsional)
    End Sub
    Sub CopyPasteCIFETBtoNTB()
    Sheets("ETB").Select 'Ganti "Sheet1" dengan nama sheet asal
    Range("E4").Select 'Ganti "A1:C10" dengan range data yang ingin disalin
    Range("E4").Copy 'Menyalin data yang dipilih

    Sheets("CIF BR").Select 'Ganti "Sheet2" dengan nama sheet tujuan
    Range("I7").Select 'Ganti "A1" dengan sel tempat data akan ditempel
    Range("I7").PasteSpecial Paste:=xlPasteValues 'Menempelkan data dengan nilai saja (opsional)
    End Sub
    Sub CopyPasteREKETBtoNTB()
    Sheets("ETB").Select 'Ganti "Sheet1" dengan nama sheet asal
    Range("J4").Select 'Ganti "A1:C10" dengan range data yang ingin disalin
    Range("J4").Copy 'Menyalin data yang dipilih

    Sheets("CIF BR").Select 'Ganti "Sheet2" dengan nama sheet tujuan
    Range("I12").Select 'Ganti "A1" dengan sel tempat data akan ditempel
    Range("I12").PasteSpecial Paste:=xlPasteValues 'Menempelkan data dengan nilai saja (opsional)
    End Sub
    Sub CopyPasteCIFUDtoNTB()
    Sheets("UPDATE DATA").Select 'Ganti "Sheet1" dengan nama sheet asal
    Range("I7").Select 'Ganti "A1:C10" dengan range data yang ingin disalin
    Range("I7").Copy 'Menyalin data yang dipilih

    Sheets("CIF BR").Select 'Ganti "Sheet2" dengan nama sheet tujuan
    Range("I7").Select 'Ganti "A1" dengan sel tempat data akan ditempel
    Range("I7").PasteSpecial Paste:=xlPasteValues 'Menempelkan data dengan nilai saja (opsional)
    End Sub
    Sub CopyPasteREKUDtoNTB()
    Sheets("UPDATE DATA").Select 'Ganti "Sheet1" dengan nama sheet asal
    Range("I9").Select 'Ganti "A1:C10" dengan range data yang ingin disalin
    Range("I9").Copy 'Menyalin data yang dipilih

    Sheets("CIF BR").Select 'Ganti "Sheet2" dengan nama sheet tujuan
    Range("I12").Select 'Ganti "A1" dengan sel tempat data akan ditempel
    Range("I12").PasteSpecial Paste:=xlPasteValues 'Menempelkan data dengan nilai saja (opsional)
    End Sub

thanks for helping

#2

Complement the missing ones

Sub MACROCLOSEDTAB()
    With com.sun.star.sheet.CellFlags
        f = .VALUE + .DATETIME + .STRING + .FORMULA
    End With
    oSh = ThisComponent.CurrentController.getActiveSheet()
    oRg = oSh.getCellRangeByName("F1")
    oRg.clearContents(f)
End Sub

Sub CopyPasteCIFETBtoUPDATEDATA()
    CopyPaste "ETB", "E4", "UPDATE DATA", "I7"
End Sub

Sub CopyPaste(sh1,rg1,sh2,rg2)
    oSheets = ThisComponent.getSheets()
    oSh1 = oSheets.getByName(sh1)
    oSh2 = oSheets.getByName(sh2)
    oRg1 = oSh1.getCellRangeByName(rg1)
    oRg2 = oSh2.getCellRangeByName(rg2)
    oRg2.setDataArray(oRg1.getDataArray())
End Sub

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