[Solved] VBA to LibreOffice question

[comandos]

I need a little help editing my existing VBA code to work with libre office.

I would like:
1) to copy errors in column C if the date in the same row in yellow,
2) sort them all by date oldest to newest
3) (if possible) if the button (that triggers the macro is pressed it clears any previous entries in “STATUS” tab).
https://imgur.com/a/GQVmEPv ← example

code

Code: Select all

Option Compare Text
Sub getAllErr()
    Dim ws As Worksheet
    Dim lastRow As Integer
    For Each ws In ThisWorkbook.Sheets
        If ws.Name <> "status" Then
            For i = ws.UsedRange.Rows.Count To 2 Step -1
                If ws.Cells(i, 1).Interior.Color = 65535 Then
                    lastRow = ThisWorkbook.Sheets("status").Cells(Rows.Count, 1).End(xlUp).Row
                    ThisWorkbook.Sheets("status").Cells(lastRow + 1, 1) = Format(ws.Cells(i, 1), "Short Date")
                    ThisWorkbook.Sheets("status").Cells(lastRow + 1, 2) = ws.Name
                    ThisWorkbook.Sheets("status").Cells(lastRow + 1, 3) = ws.Cells(i, 3)
                End If
            Next i
        End If
    Next ws
End Sub

MsgBox "Kopirano"

BR

[F3K Total]

crossposting

[comandos]

crossposting

It is I'm just looking for help, Should I delete the second post?

[robleyd]

It is courteous to advise when cross posting and provide a link so people don't duplicate suggestions that have already been made elsewhere.

[comandos]

It is courteous to advise when cross posting and provide a link so people don't duplicate suggestions that have already been made elsewhere.

My bad, sorry.

[Bidouille]

No need macro, use a conditional formatting.

[comandos]

No need macro, use a conditional formatting.

Please elaborate.
If I need to pull date from different sheets and the data changes. Sure I could apply conditional formatting after I have runed the macro but I would have to do this every time the macro is runed.

[Bidouille]

Please elaborate.

Please provide a sample document.

[comandos]

Please elaborate.

Please provide a sample document.

Attached the sample file

[mikele]

Hello,
is there a rule for the yellow date?

[comandos]

Yellow data marks the date of the error, the error is then written in column C for each device (devices are listed in tabs)

[mikele]

Hello,
but obviously not every error leads to a yellow date. Why?

[comandos]

I decide which error is important and mark them manually with yellow, I just need a macro that gathers all the yellow errors and presents them under »status«

[Zizi64]

I decide which error is important and mark them manually with yellow, I just need a macro that gathers all the yellow errors and presents them under »status«

Mark the errors by numbers in an independent column. Then you can sum them easily. Never use the formatting propeties as some "data" what you need handle in the future.

[comandos]

All I need is how to edit the existing macro to COPPY text from the designated field.

If anyone here can help that would be appreciated

[Zizi64]

All I need is how to edit the existing macro to COPPY text from the designated field.

- Use ODF file types in the AOO/LO instead of the MS fileformats
- Rewrite all of your macros based on the StarBasic and the API functions of the AOO/LO,
because the VBA macros will nor run in AOO, and you can not store the Starbasic+API macros in an xlsm document (they will not run in Excel).

[comandos]

I can't code.

[RoryOF]

None of us could - we had to learn. Needing to do something is a great incentive.

[Zizi64]

I can't code.

Then do not use macros in AOO/LO

[mikele]

Hi,
if you change one code line:

Code: Select all

ThisWorkbook.Sheets("status").Cells(lastRow + 1, 3) = ws.Cells(i, 3).Text

the macro works under LibreOffice.

[comandos]

Hi,
if you change one code line:

Code: Select all

ThisWorkbook.Sheets("status").Cells(lastRow + 1, 3) = ws.Cells(i, 3).Text

the macro works under LibreOffice.

THANK YOU!