Очистить все идентичные наименования...

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

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

Очистить все идентичные наименования... (Макросы/Sub)

Сергей13

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

Группа: Проверенные

Ранг: Обитатель

Сообщений: 344

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

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

Excel 2016

Здравствуйте!
Ребята, пытаюсь очистить всю таблицу по столбцам от всех наименований идентичных наименованию комбобокса.

[vba]

Код

    Dim Cell As Range
    'Поиск наименований на основании наименования в комбобоксе
    Set Cell = ThisWorkbook.Worksheets("Лист").ListObjects("Таблица").ListColumns.Item.Range.Find(Form.ComboBox.Value, LookAt:=xlWhole)
    If Not Cell Is Nothing Then 'Если найдены наименования в таблице идентичные с наименованием комбобокса
        Cell.Value = ""         'Очистить все ячейки от данных наименований
    End If

[/vba]
Но параметру Item не работает без номера колонки. С номером колонки Item(1) очищаются только одно наименование и только обозначенной колонки.
Каким образом очистить все наименования таблицы идентичные с наименованием комбобокса?

Сообщение отредактировал Сергей13 - Воскресенье, 05.05.2019, 14:13

Ответить

Pelena

Дата: Воскресенье, 05.05.2019, 15:14 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19405

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

Замечаний: ±

Excel 365 & Mac Excel

[vba]

Код

    Dim Cell As Range
    'Поиск наименований на основании наименования в комбобоксе
    For Each Cell In ThisWorkbook.Worksheets("Лист").ListObjects("Таблица").DatabodyRange
        If  Cell.Value = Form.ComboBox.Value Then 'Если найдены наименования в таблице идентичные с наименованием комбобокса
            Cell.ClearContents         'Очистить все ячейки от данных наименований
        End If
    Next Cell

[/vba]