https://bugs.documentfoundation.org/show_bug.cgi?id=163083

--- Comment #13 from Bruh <[email protected]> ---
(In reply to Buovjaga from comment #12)
> (In reply to Bruh from comment #11)
> > Hello,
> > 
> > I reduced the macro lines. It worked fine on 24.2.6.2
> > 
> > Then I installed the new 24.8.3.2 . It froze. Problem seems to be at the end
> > (after Y24 cell calculatiosn). Please try coping the sheets of the ealier
> > attached file to another blank .ods file and then copy/paste the macro 
> > below.
> 
> I get
> 
> BASIC runtime error.
> Sub-procedure or function procedure not defined.
> 
> pointing to line:
> Sheets("NTN-B 2055 cupom1").Select
> 
> Plz help.

Ok, made it work on 24.8.3.2.

Macro is now way simpler, only "Central1.B24" (please execute the macro on the
file attached) is solved: 

"
Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Sub Macro0()

Sheets("NTN-B 2055 cupom1").Select
        Range("AK6").Select
    ActiveCell.FormulaR1C1 = Sheets("Central1").Range("A24")
        Range("AK7").Select
    ActiveCell.FormulaR1C1 = Sheets("Central1").Range("B23")
    Range("AI1").GoalSeek Goal:=60951, ChangingCell:=Range("AK2")
    Range("AK2").Select
    Selection.Copy
    Sheets("Central1").Select
    Range("B24").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks
_
        :=False, Transpose:=False
        Range("A22").Select

Sheets("NTN-B 2055 cupom1").Select
        Range("AK2").Select
    ActiveCell.FormulaR1C1 = Sheets("Central1").Range("D11")
        Range("AK6").Select
    ActiveCell.FormulaR1C1 = Sheets("Central1").Range("A24")
    Range("AK7").Select
    ActiveCell.FormulaR1C1 = Sheets("Central1").Range("Q23")


        Sheets("Central1").Select
        Range("A1").Select


End Sub
"

-- 
You are receiving this mail because:
You are the assignee for the bug.

Reply via email to