Удаление активной строки после вывода сообщения

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Удаление активной строки после вывода сообщения - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Удаление активной строки после вывода сообщения (Макросы/Sub)

Удаление активной строки после вывода сообщения

DKeT

Дата: Воскресенье, 12.05.2019, 14:54 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 52

Репутация: 3 ±

Замечаний: 20% ±

Excel 2007

Здравствуйте, скажите пожалуйста, что нужно добавить чтоб когда мы нажимаем на кнопку "Удалить данные" выходило сообщение, "Вы действительно хотите удалить данные, данное действия изменить будет невозможно" и когда нажимаем на да-удалить данные, нет-оставить на месте, а если строка пустая,то выводило бы что " В строке нет данных"
[vba]

Код

Selection.EntireRow.Delete

[/vba]

Сообщение отредактировал DKeT - Воскресенье, 12.05.2019, 14:57

Ответить

nilem

Дата: Воскресенье, 12.05.2019, 19:02 | Сообщение № 2

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

Репутация: 563 ±

Замечаний: 0% ±

Excel 2013, 2016

DKeT, привет
типа такого:
[vba]

Код

Sub ttt()
If MsgBox("Вы действительно хотите удалить данные, данное действие отменить будет невозможно", _
          36, "Удалить данные") = vbYes Then
    If WorksheetFunction.CountA(Selection.EntireRow) = 0 Then
        MsgBox "В строке нет данных", 64
    Else
        Selection.EntireRow.Delete
    End If
End If
End Sub

[/vba]

Яндекс.Деньги 4100159601573

Ответить

Удаление активной строки после вывода сообщения (Макросы/Sub)

Страница 1 из 1
1