A problémám adódott sajnos. Már egy ideje ismerkedem az Excel VBA és Visual Basic programozási nyelvel, viszont most OpenOfficban kellene nekem elindítanom egy makrót mely Excelben tökéletesen működik. Szakértő idejére és fordítására lenne szükségem, mivel hiába próbálkoztam mindenféle fordítóval vagy kikeresgélni a pontos fordítást a makróra, hogy OpenOfficban is működjön de nem jártam sikerrel. Természetesen megértem ha végül nem kapok segítő kezet, mivel időbe telik lefordítani a makrót, de engedelmetekkel megosztanám veletek.
Kód: Egész kijelölése
Sub Riadok_Click()
Application.ScreenUpdating = False
Dim Objednávka As Worksheet
Set Objednávka = ThisWorkbook.Sheets("Objednávka")
Dim Sor As Long
Sor = Objednávka.Cells(Objednávka.Rows.Count, "A").End(xlUp).Row + 1
Objednávka.Activate
ActiveSheet.Unprotect Password:="rudolf"
Range("A21:AC21").Select
Selection.Copy
Objednávka.Activate
Objednávka.Cells(Sor, 1).Select
Objednávka.Paste
ActiveCell.Value = Cells(ActiveCell.Row - 1, ActiveCell.Column).Value + 1
Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
ActiveSheet.Protect Password:="rudolf"
End Sub