Вывод сообщения

[basket.uss]

Добрый день.
Помогите с решением следующей простой задачи:
Нужен макрос после запуска которого проверяется значение в столбце В. Если в столбце есть значение ОШИБКА, то необходимо вывести сообщение "Текст, который находится слевой стороны от слова ошибка". Если ОШИБКИ нет, то вывести сообщение, что все ХОРОШО
Большое спасибо

[SAS888]

А если в столбце несколько ячеек с значением "ОШИБКА" (как у Вас в примере), то какой из текстов выводить сообщением?

[basket.uss]

Если несколько, то вывести текст 1 ошибка, текст 2 ошибка

[SAS888]

Можно так:

Sub Msg()
    Dim i As Long, s As String, a()
    a = Range("A1:B" & Cells(Rows.Count, 2).End(xlUp).Row).Value
    For i = 1 To UBound(a, 1)
        If a(i, 2) = "ОШИБКА" Then s = s & ", " & a(i, 1)
    Next
    If Len(s) = 0 Then MsgBox "Все в порядке" Else MsgBox Mid$(s, 3)
End Sub

Пример во вложении.

[basket.uss]

Отлично, спасибо большое.
Именно то, что мне нужно.
А теперь такой вопрос: а возможно ли при нажатии кнопки печать, сначала проверяется данный макрос, а потом уже идет печать?

[SAS888]

...а возможно ли при нажатии кнопки печать, сначала проверяется данный макрос, а потом уже идет печать?

Можно. Только, не понятно, что значит "проверяется, затем идет печать"?
Для того, чтобы перед печатью что-либо выполнить, нужно использовать событие Workbook_BeforePrint. Например, пусть требуется запретить печать, если ячейка "A1" пустая. Для этого, в модуль книги помещаем код:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If [A1] = "" Then Cancel = True
End Sub

Также, можно перед печатью запускать макрос:

Private Sub Workbook_BeforePrint(Cancel As Boolean): Run "Msg": End Sub