|
|
18-06-2024 14:33 |
|
Аліна - Доброго дня, скажіть можливо хтось знає чи можна переносити матеріали створені в НДІ користувача з однієї АВК в іншу? Максим - При перенесенні кошторису з системи Кошторисних документів в систему Договірна ціна змінюється вартість будівництва. Скажіть будь ласка в чому може...
|
|
Завантажено за 0.28 сек. 213,674,651 унікальних відвідувачів | 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 = "Очищено"
так ошибку не выдает и все работает, во всяком случае нси загружает
Дякую Сергію, в майбутніх версіях виправлю.
Пропоную всім хто має бажання та вміння виправити самостійно.
Код макросів залишав відкритим.