[Libreoffice-bugs] [Bug 140525] Described under

[bugzilla-daemon at bugs.documentfoundation.org]

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

--- Comment #4 from Woowbat <zb20_01 at yahoo.com.au> ---
Created attachment 169897
  --> https://bugs.documentfoundation.org/attachment.cgi?id=169897&action=edit
Testing files for  bug 140525

Sub Main
Dim Doc as Object
Dim SheetCopy as Object
Dim SheetPaste as Object
Dim CellCopy as Object
Dim CellPaste as Object
Doc = ThisComponent
   Sheets = Doc.Sheets()
   SheetCopy = Sheets.getByName("Sheet1")
   SheetPaste = Sheets.getByName("Sheet1")
   CopyRange = SheetCopy.getCellRangeByName("AH1:AH100000")
   PasteRange = SheetPaste.getCellRangeByName("AH1:AH100000")
   PasteRange.DataArray = CopyRange.DataArray
 dim i as long 
 dim j as integer
for i=0 to 100000
        dim document as object
        document = ThisComponent
        sheet = document.Sheets(0)
        REM MsgBox(sheet.getCellByPosition(0, i).String) 
        REM if sheet.getCellByPosition(33, i).String >0 then Print i,
(sheet.getCellByPosition(0, i).String)
        if sheet.getCellByPosition(33, i).String >0 then j=j+1
        if sheet.getCellByPosition(2, i).String <0 then i=100000
   Sheets = Doc.Sheets()
        SheetCopy = Sheets.getByName("Sheet1")
        SheetPaste = Sheets.getByName("Sheet2")
        CopyRange = SheetCopy.getCellRangeByPosition(0, i+1, 33, i+1)
        PasteRange = SheetPaste.getCellRangeByPosition(0, j, 33, j)
   PasteRange.DataArray = CopyRange.DataArray
next i

End Sub

-- 
You are receiving this mail because:
You are the assignee for the bug.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.freedesktop.org/archives/libreoffice-bugs/attachments/20210219/5e4d103c/attachment.htm>