Я балуюсь с макросами чуть больше недели, поэтому плохо понимаю как работают те или иные функции, в частности find,
У меня есть умная таблица "ClientsList_tbl" в одну колонку (вряд ли это имеет значение), с heading-ом в ячейке B2, на листе "Lists", в книге "Clients_wb".
Нужно найти соответствие значения в textbox-е "Name_txb" с содержимым таблицы "ClientsList_tbl", если его нет то добавить в таблицу строку с этим значением.
Подскажите как сформулировать код просто и действенно.
У меня есть умная таблица "ClientsList_tbl" в одну колонку (вряд ли это имеет значение), с heading-ом в ячейке B2, на листе "Lists", в книге "Clients_wb".
Нужно найти соответствие значения в textbox-е "Name_txb" с содержимым таблицы "ClientsList_tbl", если его нет то добавить в таблицу строку с этим значением.
Подскажите как сформулировать код просто и действенно.
Код |
---|
If ["ClientsList_tbl"].Find(Name_txb.Value) Is Nothing Then Clients_wb.Lists.Range("B2").End(xlDown).Offset(1, 0).Select Clients_wb.Lists.ListObjects("ClientsList_tbl").ListRows.Add ActiveCell.Value = Name_cmb End If |