Доброго всем дня! Помогите решить вопрос. Как удалить все строки из базы, имеющие одинаковые значения, согласно выбора значения из элемента управления ComboBox.
Т.е. при выборе значения в ComboBox должны удалиться из базы все строки, имеющие данное значение, с подтверждением на удаление. База находится на скрытом листе. Файл прилагаю.
Доброго всем дня! Помогите решить вопрос. Как удалить все строки из базы, имеющие одинаковые значения, согласно выбора значения из элемента управления ComboBox.
Т.е. при выборе значения в ComboBox должны удалиться из базы все строки, имеющие данное значение, с подтверждением на удаление. База находится на скрытом листе. Файл прилагаю.artsanox
Sub del() Dim x Dim i& Dim delrange As Range, vbr x = База.Range("A1:A" & База.[a65535].End(xlUp).Row).Value
For i = 1 To UBound(x) If x(i, 1) = Сводная.[j2].Value Then If delrange Is Nothing Then Set delrange = База.Cells(i, 1) Else Set delrange = Union(delrange, База.Cells(i, 1)) End If End If Next
If delrange Is Nothing Then MsgBox "Нет подходящих строк" Exit Sub End If
vbr = MsgBox(prompt:="Удалить строки?", Buttons:=vbYesNo) If vbr = vbYes Then delrange.EntireRow.Delete End If Set delrange = Nothing End Sub
[/vba]
[vba]
Код
Sub del() Dim x Dim i& Dim delrange As Range, vbr x = База.Range("A1:A" & База.[a65535].End(xlUp).Row).Value
For i = 1 To UBound(x) If x(i, 1) = Сводная.[j2].Value Then If delrange Is Nothing Then Set delrange = База.Cells(i, 1) Else Set delrange = Union(delrange, База.Cells(i, 1)) End If End If Next
If delrange Is Nothing Then MsgBox "Нет подходящих строк" Exit Sub End If
vbr = MsgBox(prompt:="Удалить строки?", Buttons:=vbYesNo) If vbr = vbYes Then delrange.EntireRow.Delete End If Set delrange = Nothing End Sub
Великолепно SkyPro, спасибо, то что надо. Есть правда некоторый нюанс. Возможно ли как-то сделать, чтоб в combobox цифры отображались в формате 0001, 0002 и т.д., а не 1, 2. И после удаления строк, данный номер в combobox не отображался вообще. Т.е. если в базе были удалены строки с номером 13, то этот номер в combobox не отображался.
Великолепно SkyPro, спасибо, то что надо. Есть правда некоторый нюанс. Возможно ли как-то сделать, чтоб в combobox цифры отображались в формате 0001, 0002 и т.д., а не 1, 2. И после удаления строк, данный номер в combobox не отображался вообще. Т.е. если в базе были удалены строки с номером 13, то этот номер в combobox не отображался.artsanox
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
