23-02-2024 05:26
Техподдержка в Viber


Техподдержка АВК⁩


Группа поддерживается напрямую разработчикам
Мини-чат
Вы должны авторизироваться, чтобы добавить сообщение.

[off] 22.02.2024
Ксима, на основании чего требуют? расход ресурсов в норме расчитан согласно ед.измерения.

[off] 22.02.2024
Irina 5007, Вам надо бланки отдать в бухгалтерию и они их заполнят. а Вы потом введете в программу.

[off] 22.02.2024
трудомісткість виконаних робіт за попередній звітний період (у якості бази розподілу при розрахунку показника для визначення розміру адміністративних витрат), люд.-год"? Дяку!

[off] 22.02.2024
Добрий день! Розраховую показник адміністративних витрат на поточний рік за даними за попередній звітний період ( у мене це минулий рік). Питання: де в КБ-2В подивитись "трудомісткість виконаних

[off] 21.02.2024
Добрий день,підкажіть будь ласка хтось стикається з тим,що бухгалтерія в гозпспособі вимагає заокруглювати витрати матеріалів в нормі до 3х знаків після коми.Як ви виходите з цього положення?


ИCC
Информационно-справочная система Зодчий
Нормативная база
ГНч ГНч
ДСТУ ДСТУ
ЕНиР ЕНиР
РЭСН РЭСН
РЭСНмо РЭСНмо
РЭСНр РЭСНр
Реставрация Реставрация
Минпром Минпром
СцнПРдС СцнПРдС
Пусконаладка Пусконаладка
Прейскурант 260543Е Прейскурант 260543Е




[On-Line консультация]
Олег - При просмотре любых общих выходяших документов выдает ошибку \"Высота групп входящих в \"объединение\" (строки между \"Ь\" и \"Ъ\") превышает высот...
Олександр - При редагуванні назви матеріалів (створення нового варіанту ресурсу) не активне поле ВСТАВИТИ, гарячі клавіші теж не допомагають.
Владислав - Добрий День Не могу найти на сайте вкладку *РЕГИСТРАЦИЯ* Помогите пожалуйста
Запис матеріалів в НДІ користувача
ЗагрузкиTarik1975 поделился файлом Запис матеріалів в НДІ користувача
Комментарии
#1 | Tarik1975 02.02.2024 10:40
Сергій знайшов таку помилку в коді:
в прилоенном файле Запис матеріалів в НДІ користувача

в блоке
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 = "Очищено"

так ошибку не выдает и все работает, во всяком случае нси загружает
Дякую Сергію, в майбутніх версіях виправлю.
Пропоную всім хто має бажання та вміння виправити самостійно.
Код макросів залишав відкритим.
Добавить комментарий
Пожалуйста, залогиньтесь для добавления комментария.
Последние активные темы форума
  Темы Просмотров Ответов Последние сообщения
Тверда договірна ціна
Задай вопрос КРУ
57936 28 ksilit
February 19 2024 16:49
Авторизация
Логин

Пароль



Забыли пароль?
Запросите новый здесь.
Навигация
Статьи
Правила сайта
Обратная связь
Сметные программы
Заказать смету
АС-4
C=>C=>C=>С
Разное
Внимание!!! Курсы!!!
Новости
Архив новостей
Сейчас на сайте
Гостей: 21

Пользователей: 0

Всего пользователей: 25,391
Новый пользователь: ekaterina_polyvach

Посмотреть >>>
Рейтинг@Mail.ru Яндекс.Метрика
СПРАВОЧНАЯ СИСТЕМА
ЗОДЧИЙ - ДБН, СНиП, ДСТУ, ГОСТ, ПРИКАЗЫ, ПИСЬМА (рекомендована Госстроем) АС4 Сметный программный комплекс. Кондиционеры