Макрос - проверка на ошибки

[MaxxVer]

Добрый день, уважаемые! Прошу Вашей помощи в создании макроса. Конечный макрос я допишу сам (хоть я и полный ноль в этом, но учиться
надо...), а Вас прошу создать по моему описанию упрощенный макрос, в качестве примера (болванки) для меня. Читая книги по ВБА, дело движется очень медленно и многое не понятно...
Описание (на основе файла во вложении):
При начатии кнопки запускается макрос.
1) Задаем диапазон - по строкам со строки 10 до строки с текстом "Итого", по столбцам - с певого по "К";
2) Условие1: если в вышеуказанном диапазоне есть отрицательные значения, то в текстовом поле формы написать "Ошибка - отрицательное
значение".
3) Условие2: если в вышеуказанном диапазоне есть пустые ячейки, то в текстовом поле формы написать "Данные заполнены не полностью по проектам: (сюда вывести через запятую, названия из столбца А, соответствующие строкам диапазона где найдены пустые ячейки)".
4) Условие3: Если значение ячейки 1 (стоящей на пересечении строки с текстом "Итого" и столбца F) больше чем значение ячейки 2 (стоящей на пересечении строки с текстом "Итого" и столбца E) - добавить текст в поле формы "Ошибка2".
Заранее огромное спасибо!

[Hugo121]

Private Sub CommandButton1_Click()
    With Worksheets(1)
        With .Range("A10:A" & .Rows.Count)    'диапазон для поиска значений
            Set itogoRng = .Find(What:="итого", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
            If itogoRng Is Nothing Then     'если значение не найдено
                Me.TextBox1.Text = "Нет ИТОГО!": Exit Sub
            End If
        End With
        Set workRng = .Range(.[A11], .Range("K" & itogoRng.Row))

        If Application.Min(workRng) < 0 Then Me.TextBox1.Text = "Ошибка - отрицательное значение ": Exit Sub
        For Each rr In workRng.Rows
            If Application.CountBlank(rr) > 0 Then txt = txt & ", " & rr.Cells(1, 1).Value
        Next
        If Len(txt) Then Me.TextBox1.Text = "Данные заполнены не полностью по проектам: " & Mid(txt, 3)
        If .Range("F" & itogoRng.Row) > .Range("E" & itogoRng.Row) Then Me.TextBox1.Text = Me.TextBox1.Text & IIf(Len(txt), vbNewLine, "") & "Ошибка2"
    End With
End Sub

[MaxxVer]

Спасибо, но ничего не происходит, debug ругается "invalid use of Me keyword"... Не понимаю что ему не нравиться... Excel у меня 2010, может в этом дело...

[Hugo121]

Пишите вместо Me UserForm1 - у меня оба варианта работают.

Ещё забыл упомянуть - текстбоксу в свойствах поставьте MultiLine=True - так удобнее
Можно это задать по нажатию кнопки - но правильнее установить вручную.

[Казанский]

Пробуйте..

[staniiislav]

я через лист бокс предложу

[MaxxVer]

Вариант Hugo121 так и не заработал, а варианты Казанский и staniiislav работают. Спасибо всем Вам огромное!
Не сочтите за наглость, подскажите пожалуйста еще, как добавить возможность выбора книги с диска, по которой будет проведен анализ этим макросом?

[Казанский]

Поищите по GetOpenFileName или FileDialog

[EducatedFool]

как добавить возможность выбора книги с диска

Вбить вопрос в Яндекс или гугл вам религия не позволяет?

http://excelvba.ru/code/GetFileOrFolderPath
(одна из самых читаемых статей на моём сайте)

[MaxxVer]

Спасибо за инфу. Я не религиозный :-)