|
|
09-05-2024 01:10 |
|
Максим - При перенесенні кошторису з системи Кошторисних документів в систему Договірна ціна змінюється вартість будівництва. Скажіть будь ласка в чому може... Ганна - 24.04.2024 Доброго дня. Підкажіть будь ласка, як правильно взяти норму на розвезення стояків при будівництві ПЛ-0,4кВ, коли на лінії є стояки СВ 9...
|
|
Время загрузки: 2.26 секунд 209,797,941 уникальных посетителей | UbuntuHHTheme by: kot2007 Powered by PHP-Fusion copyright © 2002 - 2024 by Nick Jones. Released as free software without warranties under GNU Affero GPL v3. |
в прилоенном файле Запис матеріалів в НДІ користувача
в блоке
Function Reset() As String
Dim LastRow, Row_N As Integer
Row_N = 6
ActiveSheet.ShowAllData (ругается на этом месте)
'MsgBox LastRow
LastRow = Cells(Rows.Count, 5).End(xlUp).Row 'Пошук останььої строки
If LastRow <= 5 Then LastRow = 10
Range(Cells(Row_N, 1), Cells(LastRow, 14)).Clear
Reset = "Очищено"
выдает ошибку,
в нете посмотрел и предложили такой вариант
вместо ActiveSheet.ShowAllData поставить If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Function Reset() As String
Dim LastRow, Row_N As Integer
Row_N = 6
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
'MsgBox LastRow
LastRow = Cells(Rows.Count, 5).End(xlUp).Row 'Пошук останььої строки
If LastRow <= 5 Then LastRow = 10
Range(Cells(Row_N, 1), Cells(LastRow, 14)).Clear
Reset = "Очищено"
так ошибку не выдает и все работает, во всяком случае нси загружает
Дякую Сергію, в майбутніх версіях виправлю.
Пропоную всім хто має бажання та вміння виправити самостійно.
Код макросів залишав відкритим.