Как сделать, чтобы выводило сообщение «данные пользователем не заполнены», если все ячейки столбца G пустые

Posted by Chas under Basic

Казанский

Private Sub CommandButton1_Click()

Workbooks.Open("D:\imena_f.xls").Activate

Sheets("Лист3").Select

    ActiveSheet.Range("C3:C33").Select

    Selection.Copy

    Windows("imena_m.xls").Activate

    Range("M3").Select

    ActiveSheet.Paste

    Range("A1:B1").Select

Dim lr&

lr = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row - 1

With Range("G3:G" & lr)

    .Formula = "=VLOOKUP(M1,C$1:C$" & lr & ",1,)"

    .SpecialCells(xlCellTypeFormulas, xlErrors).Delete Shift:=xlUp

    On Error Resume Next

    .Value = .Value

    If Err Then MsgBox "данные пользователем не заполнены": Err.Clear

End With

End Sub