Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Вывод сообщения об ошибке.
 
#1
15.05.2025 14:22:11
Добрый день.
Загружаю ежедневно отчёты через PQ. И очень редко появляются новые партнеры, или меняют их название, а также возможно и услуги.
Так как таблица умная, то она сама растягивается,
Помогите с написанием макроса,  появления сообщения "Ошибка в строке!" по 6 столбцу. Специально изменил строку 2 для примера.
Р.S/ Поменял файл. Убрал формулу если ошибка.
Изменено: угрюмый - 15.05.2025 14:29:35
 
 
 
#2
15.05.2025 14:56:34
Добрый день!
Код
Sub ErrorRow()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Импорт")
    
    Dim table As ListObject
    Set table = ws.ListObjects(1)
    
    Dim cell As Range
    For Each cell In table.DataBodyRange.Cells
        If IsError(cell) Then
            MsgBox "Ошибка с строке N" & cell.Row, vbCritical + vbOKOnly, "Найдена ошибка"
        End If
    Next cell
End Sub
 
 
 
#3
15.05.2025 15:32:36
Спасибо Дмитрий, работает! А как подцепить его выполнение к окончанию Работы PQ?  Чтоб он автоматом запустил проверку, после обновления таблицы импорта!
 
 
 
#4
15.05.2025 16:04:33
Совместить PQ и VBA.
Ранее подобная тема обсуждалась тут
 
 
 
#5
15.05.2025 16:10:10
Цитата
написал:
А как подцепить его выполнение к окончанию Работы PQ?
Как дождаться окончания выполнения запроса : https://www.excel-vba.ru/chto-umeet-excel/kak-dozhdatsya-okonchaniya-vypolneniya-zaprosa/
 
 
 
#6
16.05.2025 13:53:32
Спасибо всем. Заработало как надо!
Был затык в переменной название запроса ((
Const sQueryName As String = "Запрос — Бюджет"

заменить текст внутри кавычек(Запрос — Бюджет) на имя нужного запроса.
Оказывается надо было заменить не все в кавычках, а только слово Бюджет своим названием. ))
 
 
 
Страницы: 1
Читают тему
Наверх