Как сделать, чтобы выводило сообщение «данные пользователем не заполнены», если все ячейки столбца 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

тема на форуме

Похожие статьи

• Примечание в ячейки листа со значением из другой ячейки
• Как макросом брать данные с word документов в excel?
• Вывести сообщение, если ячейки excel не заполнены
• Как зафиксировать кнопку на экране?
• Найти совпадения ячеек столбца С и столбца Е и вывести все совпавшие ячейки в столбец G по клику кнопки
• Как сделать выпадающий список с добавлением новых элементов?
• Удалить строки таблицы по встречающимся словам
• Как написать макрос который бы по клику по ячейке скрывал столбец?
• Как сделать чтобы скрывался и открывался столбец?
• Объединение ячеек со сдвигом вверх?