макрос защиты от ошибки

[Leeroy]

Добрый день, гуру. Передо мной встала задача, в которой я не совсем компетентен, по-этому прошу вашей помощи. Есть макрос, который копирует лист из книги эксель в новую книгу, вот он:

' SendStandPlus2LP Макрос
' Копирование графика "Равномерный" в новую книгу с убиением формул, для отправки Лизингополучателю электронно.
'

'
Sheets("ГрафикРавномерн").Select
Sheets("ГрафикРавномерн").Copy
Cells.Select
Range("A7").Activate
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1:G1").Select
Sheets("ГрафикРавномерн").Select
Sheets("ГрафикРавномерн").Name = "Равномерный"

Встала задача прикрутить к нему "защиту от дурака", т.е. добавить правило: Если ЛП!I23>ЛП!E16 то выскакивает сообщение "Покупка денег дороже продажи, продолжить?" и кнопки "да" "нет".
Не думаю, что это очень сложная задача, но мне, как человеку, не являющимся програмистом это сделать довольно сложно. Прошу вашей помощи и заранее благодарен.

[Hugo121]

Что-то не вижу связи между кодом и вопросом...
Ну а код можно чуть пооптимизироавать:

    Sheets("ГрафикРавномерн").Copy
    With ActiveSheet
        .UsedRange.Value = .UsedRange.Value
        .Name = "Равномерный"
    End With

Хотя может быть...

    With Sheets("ЛП")
        If [I23] > [E16] Then
            If MsgBox("Покупка денег дороже продажи, продолжить?", vbYesNo) = 7 Then Exit Sub
        End If
    End With

    Sheets("ГрафикРавномерн").Copy
    With ActiveSheet
        .UsedRange.Value = .UsedRange.Value
        .Name = "Равномерный"
    End With

[VictorM]

Если ЛП это у Вас имя листа (я так понял) то вставьте в начале Вашего кода (или в любом нужном месте) вот это

If Sheets("ЛП").Range("I23").Value > Sheets("ЛП").Range("I16").Value Then
        Select Case MsgBox("Покупка денег дороже продажи, продолжить?", vbYesNo Or vbExclamation Or vbDefaultButton1, "ВНИМАНИЕ")
        Case vbNo
            Exit Sub
        End Select

[Leeroy]

Сообщение от Hugo121

Что-то не вижу связи между кодом и вопросом...
Ну а код можно чуть пооптимизироавать:

    Sheets("ГрафикРавномерн").Copy
    With ActiveSheet
        .UsedRange.Value = .UsedRange.Value
        .Name = "Равномерный"
    End With

Хотя может быть...

    With Sheets("ЛП")
        If [I23] > [E16] Then
            If MsgBox("Покупка денег дороже продажи, продолжить?", vbYesNo) = 7 Then Exit Sub
        End If
    End With

    Sheets("ГрафикРавномерн").Copy
    With ActiveSheet
        .UsedRange.Value = .UsedRange.Value
        .Name = "Равномерный"
    End With

Спасибо огромное, вы сэкономили мне пару дней работы

[Hugo121]

Советую взять msgbox от Виктора - посолиднее