awa

Извините, предыдущее сообщение убежало раньше срока. Что изменил: r = Range("A:L").CurrentRegion.Rows.Count на r = Worksheets("Фильтр").UsedRange.Rows.Count -------------------------------------- reestr = Cells(i, 1) nazvanie = Cells(i, 2) tipsi = Cells(i, 3) zavnomer = CStr(Cells(i, 4)) sravnenie = Cells(i, 5) modifikacia = Cells(i, 6) orgpoveritel = Cells(i, 7) shifr = Cells(i, 8) vladelec = Cells(i, 9) datamin = Cells(i, 10) datamax = Cells(i, 11) на reestr = Worksheets("Фильтр").Cells(i, 1) nazvanie = Worksheets("Фильтр").Cells(i, 2) tipsi = Worksheets("Фильтр").Cells(i, 3) zavnomer = CStr(Worksheets("Фильтр").Cells(i, 4)) sravnenie = Worksheets("Фильтр").Cells(i, 5) modifikacia = Worksheets("Фильтр").Cells(i, 6) orgpoveritel = Worksheets("Фильтр").Cells(i, 7) shifr = Worksheets("Фильтр").Cells(i, 8) vladelec = Worksheets("Фильтр").Cells(i, 9) datamin = Worksheets("Фильтр").Cells(i, 10) datamax = Worksheets("Фильтр").Cells(i, 11) --------------------------------------------- kz = Mid(sGetResult, nachalo + 11, konec - nachalo - 11) на kz = Mid(sGetResult, nachalo + 11, konec - nachalo - 11) + 0

А можно уточнить какие были проблемы с LibreOffice? Я попробовал покопаться (в первый раз в макросы полез) и вроде заработало. Что изменил: