REM Restore the old selection, but lose the previously active cell OConv.Address = oActiveCell.getCellAddress OConv = oDoc.createInstance('.CellAddressConversion') ORanges = oDoc.createInstance('.SheetCellRanges')

REM This leaves ONLY the active cell selected. REM Create an empty SheetCellRanges service and then select it. Here is some craziness to get the active cell: Sub RetrieveTheActiveCell()ĭim oOldSelection 'The original selection of cell rangesĭim oRanges 'A blank range created by the documentĭim oConv 'The cell address conversion service The Cells command returns a specific cell based on a row and column. Range(Cells(CurrentRow, i), Cells(CurrentRow, i)).Value = 'a' Sadly, this can be tricky depending on what your macro does. You must translate the portions that manipulate the document to use the UNO API. I just want to add that the function SinceLastWash gives the correct value in some cells where I use it and in others gives an error, #NAME? Is there a way to convert this code to make it compatible with libreoffice or do I have to learn an altogether new language like python? Learning python would not be a problem but is not a solution to my problem as I have many work related files in excel which have a lot of vba code and it is not possible for me to use open office/libreoffice at work. If Range(Cells(CurrentRow, i), Cells(CurrentRow, i)).Value = 'q' Then

If Range(Cells(CurrentRow, i), Cells(CurrentRow, i)).Value = 'a' Then Selection.SpecialCells(xlBlanks).Delete shift:=xlToLeft Below is the vba code I have: Option VBASupport The only problem I am facing is that libreoffice, the default spreadsheet package is not compatible with excel macros. I have recently migrated to pclinuxos from windows and seem to like it.

Libre office excel