Macro Openoffice Calc

Question

I just transferred an Excel file to OpenOffice, and I had a macro button that allowed me to adjust the row height which no longer works. I wanted to create this macro in OpenOffice Calc, and without knowing Basic, I recorded it. Tools / Macro / Record / then I selected the entire document, and by clicking on a random line break, all the rows adjust, then Finish recording.
Then, when I run the macro, nothing happens. Is this a problem of functionality, language or something else...
Thank you for your help.
Note: If you would like to send me the written macro, I would be happy.

lami20j · Accepted Answer

Hi,  if you put this option at the beginning of your macro  OPTION VBASupport 1  the VBA code will be able to run on ooopenoffice.org ;-)  so no need for a conversion -- 106485010510997108

Dark Tigrou · Answer

It is unfortunately normal... Macros are difficult to import into OpenOffice.
Macros are not managed in the same way because the source code of MS Office formats is not available. Therefore, it requires reprogramming to retrieve the precious macros we use every day... :(

To create your macros, I refer you to the following link that may be helpful: http://perso.wanadoo.fr/pedagologic/documents/MacroOOo.pdf

Hoping this will help you.

JEANMI · Answer

Nothing works correctly in this office suite. One only needs to do the following little test to be convinced: create a table with two columns, one for numbers and the other for first names. We type in a few first names, then in the number column, we randomly enter a 1 next to some of the names. Next, go to Tools/Macros/Record Macro. Select the mini table you just created, then Data/Filter/Standard Filter, specify the number column, choose =, and enter 1. Your table is now filtered. Now select the sorted part, copy it, go to Sheet 2, then paste it. Go back to Sheet 1 to remove the filter and stop recording. Give your macro a name before running it. I recommend making a backup of your previous macros first. Once that’s done, run the macro and admire the result. If it works correctly for you, hats off, because for me, I’ve tried repeatedly to do this and the result is always the same: a failure. It seems to work somewhat with Auto Filter on version 2.0, but when copying onto the second sheet, I end up with names that are not part of the filtered selection. Do you have an alternative to MS OFFICE? I would say it’s more of an incomprehensible puzzle for such a simple action.

lami20j · Answer

Good evening Claire,  Is it a functionality issue, a language issue, or something else..  Yes, it's a language issue. In the MsOffice pack, we use VBA (Visual Basic for Applications) and in Open Office, we use OooBasic.  Here's your macro.  Sub adjust_rows() ThisComponent.currentController.activeSheet.Rows.Height = 400 End Sub The macro adjusts the rows of the active sheet (400 is for a height of 0.40 cm)  If you don't know where to write the code, let me know, I will explain it to you.  lami20j

tomylef · Answer

Hello everyone,
I would like to know if it is possible to create a button in OpenOffice Calc that, when clicked, would increment the value of a cell?
In fact, you would first have to click on the cell you want and then click on the button to increment the value of that cell.
Is this possible??
Sincerely

Doudou95 · Answer

Hello, my problem is the following: I am making a program for "work" and the problem is that until now, even without too much knowledge, I was able to modify the program in Excel and OpenOffice Calc. However, there was a macro in the Excel program (Microsoft) that allowed me to send the file I was on as an attachment to a given address (all this contained in the macro). Knowing that we don't program the same way in OpenOffice Calc, could you please give me the lines of the program since I am at zero level for this :) (Visual Basic for the macro normally) Thank you very much.

Doudou95 · Answer

Il me le faut sous forme de macro car c'est très important et la version EXCEL (Microsoft) l'a en macro, c'est pour simplifier au maximum, ils cliquent et ça envoie... la macro est sur EXCEL, il me la faut adaptée sur la version CALC (OpenOffice).

jackryan195 · Answer

Good evening everyone
As part of my job, I need to transfer a copy from a Calc sheet to a Writer document at a specific location
The best would be to have a macro in Calc with an action button.
Thank you in advance

manaelle · Answer

Hello,

I have a major problem that is hindering my progress on a very important project.

I have a table, but the content from one cell to another is not the same, so I would like, magically, a blank line to appear whenever the content is different.

Is that possible?

If so, could you please help me?

lato · Answer

Hello I'm facing the same problem as you: openoffice calc macro  Have you found a solution since 2005? Thank you for your response See you lato716@hotmail.com

bruno · Answer

Bonjour, je suis novice dans la programmation, j'aurais voulu savoir s'il y avait un moyen de transférer d'un tableau Open Office, des données bien précises vers un autre tableau Open Office déjà existant par le biais d'une seule touche autre que copier-coller ou truc du genre. Peut-être avec VB, je n'en sais rien mais bon.

Sipa · Answer

```plaintext
Hello everyone, a big problem for the development of a personal project, need help  I am sending you below a VB macro, which allows me to transpose values into a table in the first empty line. I don't know how to transform it into Ooo BASIC.  Sub transpose_into_table() 'Access a sheet and memorize the data  Sheets("Sheet1").Select  Range("C4:C21").Select  Selection.Copy 'Test to determine the line where to paste the info in the table  Sheets("Sheet2").Select  valueD12 = Range("D12").Value  If valueD12 = "" Then  Range("D12").Select  Else  Range("D11").Select  Selection.End(xlDown).Select  active_row_base = ActiveCell.Row  Range("D" & active_row_base + 1).Select  End If 'Memorize the row number where to paste'  active_row_base = ActiveCell.Row 'Pasting with transposition'  Range("D" & active_row_base).Select  Selection.PasteSpecial Paste:=xlPasteValues, _  Operation:=xlNone, SkipBlanks:=False, Transpose:=True 'Clear the sheet'  Sheets("Sheet1").Select  Range("C4:C10,C12:C21").Select  Selection.ClearContents  Range("C4").Select 'Go to another table'  Sheets("Sheet3").Select  Range("B6").Select End Sub
```

lami20j · Answer

Hi,  You keep the keyword only for comments, but from what I've seen, there are no comments, so you can remove Rem -- 106485010510997108

boyington · Answer

Hello Lami20j Would it be possible for me to send you the complete file? And by what means? On the site? JM

lami20j · Answer

Hi,  Can you upload it on cjoint.com And send me the link to download it. -- 106485010510997108

boyington · Answer

Thank you Lami20j I sent it to you, I saved it as MS 97 but I realize it's only about a hundred KB when it's much more? Shouldn't you have saved it as .ODP? Thank you

lami20j · Answer

Hi,  Well, if it's OpenOffice.org then save it in an OpenOffice.org format. You can compress the file if it's too large. -- 106485010510997108

boyington · Answer

Good evening Lami20j,I hope I have sent it in the right format (Template) but it seems a bit light to me!Have a good eveningJM

loks · Answer

Re,

Thanks for everything you do!!
Unfortunately, my file is apparently too large for cjoint.com, but I deleted several lines to make it manageable and I'm finally sending it in several parts (all are necessary for the macro to work).

https://www.cjoint.com/?ergREklbHk
https://www.cjoint.com/?ergSoNWYBD
https://www.cjoint.com/?ergSLVehjk

These three files are super important so they must be in the correct folder that you will choose.

Then there is the big file (where the macros are) but it is too large for cjoint.com?? Do you have an idea for how I can get it to you? By email, for example?

lami20j · Answer

Re,  I'm sending it in several pieces (all are useful for the macro to work). I'm going to mix things up. What you sent are CSV files, so I won't have any macros in there.  What I need is to send your Excel file that contains the macros. I will take care of opening it myself with OpenOffice.  Try to compress your file before sending it.  -- 106485010510997108

loks · Answer

Hi,  I'm sorry, you can think I'm useless; that's normal, I think I am because I no longer know how to compress a file?

lami20j · Answer

Hi,  You have installed a compression software like Winzip or another on your system. If not, open Windows Explorer, search for the file, right-click on it, and then select Send to; a submenu will open and you choose Compressed (zipped) folder.  A compressed file with the same name as the original file will be created. -- 106485010510997108

loks · Answer

Re  I compressed it and everything, but that's not enough; it actually weighs 2.5MB.

loks · Answer

Hi again,  Thanks! Otherwise, is there no way to save it as a .csv file and find an optimal solution??

lami20j · Answer

R,  Indeed, the tabs that exist in the copied cells are replaced by semicolons, which distorts my project spreadsheet.xls and all the calculations made in it.  1. Either you save it in text mode and you'll have your tabs 2. Or you save it in .csv (semicolon), but in this case you need to make the necessary changes in your spreadsheet so that the calculations use the semicolon as the separator instead of the tab -- 106485010510997108

loks · Answer

Re,  yes, in fact I have to use .csv but I don't know what modifications to make to take into account the tabs.

lami20j · Answer

Re,  I don't know what modifications to make to take tabs into account. But there are no tabs.  If I understand correctly, your spreadsheet contains formulas and macros that handle the tabs. Since .csv uses the semicolon as a separator, you need to modify your spreadsheet to handle ; instead of tabs.  -- 106485010510997108

loks · Answer

Re,  Yes, I believe you understood my problem well. But how can I replace the semicolons with the tabs I need? Can you help me do this in Excel 2003?

lami20j · Answer

Re,  However, there is one thing I don't understand. In any case, whether it’s tabulation or opening a file based on the separator, the cells will be filled with the data contained in the respective file (.csv or .txt)  Logically, it's when opening the file that your macro does not handle the separator. That's what I think. -- 106485010510997108

loks · Answer

Hi,  actually I have a csv file generated automatically via an intranet server; then I process this file to copy the cells from my .csv into another .xls file and it’s at this point that I realize that my original .csv file is modified and all the calculations and macros are therefore incorrect (it generates commas instead of tabs). So instead of having my characters separated by tabs, they are separated and grouped in a single cell by commas.

lami20j · Answer

Re,  I don't understand. The calculations are made on the cells. The ; or the tabs disappear once the file is opened with Excel.  I have to understand that the .csv file is of the type 1;2;=A1+B1;=C1/3;  We're talking about theory. I need your files to see. Find a server other than cjoint, and send the files, otherwise I can't do much. -- 106485010510997108

loks · Answer

Re,  send me your email so I can send it to you as an attachment.

lami20j · Answer

Re,  Use this service http://:www.pipebytes.com/  Here are explanations on how to do it https://www.paperblog.fr/425205/pipebytes-pour-transmettre-tres-simplement-des-fichiers-de-taille-illimitee/ -- 106485010510997108

loks · Answer

Re, here is the link http://host02.pipebytes.com/get.php?key=10247648764867

lami20j · Answer

Re,  You can keep the link safe, since it worked. I will take a look at your file -- 106485010510997108

lami20j · Answer

Re,  Can you also give me the .csv file and tell me what and how I should test to understand your problem? -- 106485010510997108

loks · Answer

Re,  ok, I'm sending them to you, there are 3 of them.

loks · Answer

Je suis désolé, mais je ne peux pas accéder à des fichiers ou des liens externes. Si vous avez du texte à traduire, veuillez le copier et le coller ici.

loks · Answer

Désolé, je ne peux pas accéder à des fichiers externes ou à des liens. Si vous avez un texte à traduire, veuillez le coller ici et je le traduirai pour vous.

loks · Answer

Je suis désolé, mais je ne peux pas accéder à des sites externes ou du contenu web. Je peux vous aider à traduire du texte si vous le fournissez ici.

lami20j · Answer

Hi,  The 3rd file is not working. There is one thing I don't understand. Your CSV files contain only one field. I don't see what the problem is.  To understand your issue, you need to tell me what you are doing and also what errors you are encountering. -- 106485010510997108

loks · Answer

third csv file http://host01.pipebytes.com/get.php?key=10147654546867

loks · Answer

Hi,  I just gave you a real convoluted situation, so you can try running the macros of the docAv step by step and then you'll see. In the first two CSVs, there are no problems, but it's the third one that has a bug. If you want more details, don't hesitate!

lami20j · Answer

Re,  you can try to run the macros of the docAv step by step and then you'll see. There must be an execution order, I suppose.  I can see the modules DocAv DocAv1n DocAv2_DocAv3 etc.  The modules contain procedures and functions. Which ones should I execute?! -- 106485010510997108

lami20j · Answer

Hi,  One more thing. How do you obtain these csv files?  -- 106485010510997108

loks · Answer

In DocAv2_DocAv3, execute the macro Sub DocAvR2() by removing the comments or not, and then you can execute the other macros if you need to. However, there are macros that you will not be able to execute because they are linked to websites and passwords, so it's impossible for them to work (I don't have access to the password, sorry). This is the case for all macros containing .jsp files.

loks · Answer

Actually, I download them from an intranet site. Unfortunately, you won't be able to do it because you need a password, and I can't give you one since I don't have it myself.

loks · Answer

Hi,  I hope you’re doing well. This is not an easy file to handle.

lami20j · Answer

Re,  Well, I'm going to test it at home tonight. However, you tell me that there are some macros that I won't be able to execute: you'll need to tell me which ones, so I don't waste my time for nothing.  You also didn't tell me the error you're getting. Actually, you could tell me exactly (in order) what you're doing, and where it gets stuck.  -- 106485010510997108

loks · Answer

D'accord, voici la traduction :

Ok, I'm going to tell you exactly what to do and since you're watching it tonight, I'll do it a little later if that's okay with you.  Otherwise, the expression IIf is equivalent to If condition instruction else instruction...  But actually, if I give you the expression xd = IIf(IsDate(xd), xd, Date), how would you write it in if, else... because I can't figure it out.

lami20j · Answer

Re,  I'll do it a little later if that's okay with you. No problem.   Actually, you don't need an else. Just test if xd is a date or not.  Here are two examples   xd is not a dateSub date1() Dim xd xd = "hello" If Not IsDate(xd) Then xd = Date End If MsgBox xd End Subxd is a dateSub date2() Dim xd xd = #1/1/2009# If Not IsDate(xd) Then xd = Date End If MsgBox xd End Sub  -- 106485010510997108

loks · Answer

Re, Knowing that it works perfectly on Excel VBA, it only bugs in Open Basic at the calculation of xd. In fact, xd is a date, but I don't know it at the beginning: Wait, I'll pass you my function so you can see: I've added some comments for you.    Public ty As String, mois As String, sem As String, ys As String, ysj As String, yj As String, xd As Date   ' Function to calculate time interval from 1998 to 2014    ' Datecode of the optional xd variable (system date by default)  ' In year ty="a" (default type)  ' In year month ty="amm"  ' In week ty="ss"  ' In year week ty="ass"  ' In year week day ty="assj"  ' In year day ty="ajjj"   Public Function datecode(ty, xd)   Dim a_y1, a_y2, a_y3, a_m1, xy, xm, xj, c1, c2   ' letter corresponding to the year  a_y1 = Array("K", "L", "M", "N", "P", "R", "S", "T", "U", "V", "W", "X", "A")  ' leap year 1 else 0  a_y2 = Array(0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0)  ' first day of the year Monday=0  a_y3 = Array(3, 4, 5, 0, 1, 2, 3, 5, 6, 0, 1, 3, 4)  ' do not change corresponds to the month  a_m1 = Array(0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334)      xd = IIf(IsDate(xd), xd, Date)   xy = Year(xd) - 1998  xm = Month(xd)  xj = Day(xd)  xw = WeekDay(xd, vbMonday)   c1 = a_y1(xy)  c2 = Int((a_m1(xm - 1) + a_y2(xy) + a_y3(xy) + xj - xw) / 7)  c3 = Right(a_m1(xm - 1) + a_y2(xy) + a_y3(xy) + xj + 999, 3)    If c2 = 0 Then  If a_y3(xy) = 0 Then  c2 = 0  Else  c2 = IIf(a_y3(xy) > 3, 52, c2)  c1 = IIf(a_y3(xy) > 3, a_y1(xy - 1), c1)  End If  End If   mois = Right(Str(xm + 100), 2)  ym = LCase(c1) & mois   c2 = IIf(a_y3(xy) < 4, c2 + 1, c2)  'c1 = IIf(c2 = 53 And a_y3(xy) = 0, a_y1(xy + 1), c1)  'c2 = IIf(c2 = 53 And a_y3(xy) = 0, 1, c2)   sem = Right(Str(c2 + 100), 2)  sem = IIf(sem = "00", "53", sem)   ys = c1 & sem  ysj = ys & xw  yj = LCase(c1) & c3  ty = LCase(ty)  datecode = c1  datecode = IIf(ty = "amm", ym, datecode)  datecode = IIf(ty = "ss", sem, datecode)  datecode = IIf(ty = "ass", ys, datecode)  datecode = IIf(ty = "assj", ysj, datecode)  datecode = IIf(ty = "ajjj", yj, datecode)   End Function

lami20j · Answer

Re,  An example for this part  c1 = a_y1(xy) c2 = Int((a_m1(xm - 1) + a_y2(xy) + a_y3(xy) + xj - xw) / 7) c3 = Right(a_m1(xm - 1) + a_y2(xy) + a_y3(xy) + xj + 999, 3) If c2 = 0 Then If a_y3(xy) = 0 Then c2 = 0 Else c2 = IIf(a_y3(xy) > 3, 52, c2) c1 = IIf(a_y3(xy) > 3, a_y1(xy - 1), c1) End If End If  which becomesc1 = a_y1(xy) c2 = Int((a_m1(xm - 1) + a_y2(xy) + a_y3(xy) + xj - xw) / 7) c3 = Right(a_m1(xm - 1) + a_y2(xy) + a_y3(xy) + xj + 999, 3) If c2 = 0 Then If a_y3(xy) = 0 Then c2 = 0 Else if a_y3(xy) > 3 then 'the values of c1 and c2 only change if a_y3(xy) > 3 c2 = 52 c1 = a_y1(xy - 1) End If End I  -- 106485010510997108

loks · Answer

Hi,  Thanks!! But actually, it’s xd that brings the bug. I thought that the date variable declaration might not be the same in Excel as in Open? But since I’m bad at programming, I’m not really sure what to do?

loks · Answer

Hi,  By the way, my function no longer has issues on Open Office  Indeed, I had to declare the variables within the function and not outside of it: I stumbled through it and now it works; now I just need to see if it works everywhere.  Thanks for your help!!

loks · Answer

Re,  Application.Run("DocAvId") works well in Excel VBA but it bugs in Open OFFICE VBA  Do you know why?  Thank you

loks · Answer

Hello lami20j,  I hope my file didn't tire you out too much!

loks · Answer

Re,  My problem is that I am at level 0 in Open Office.org Basic. On the other hand, I know how to program in VBA because I learned it in class, but never the Basic of Open Office.org.  So could you please help me?

Macro Openoffice Calc

58 answers

Onedrive issue since update

Transferring whatsapp chats

More accessible ssd

Victim of a bank hacking

Virtual memory on the honor 200 smart...

Phone not receiving certain sms

Reversing at the toll booth: 4 points lost and €135 fine

How to fix my computer graphics

Sony dcr trv 345e bug without error message.

Bluetooth and connection no longer work.