https://bugs.documentfoundation.org/show_bug.cgi?id=140525
--- Comment #4 from Woowbat <[email protected]> ---
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._______________________________________________
Libreoffice-bugs mailing list
[email protected]
https://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs
