Здравствуйте!
Ребята, помогите доработать конструкцию которая на основании объединенных данных на форме ищет идентичные объединенные данные в колонках умной таблицы и при нахождении изменяет эти данные на иные.
Конструкция видится такая:
Переменные где искать, что искать и искать.
[vba]Код
Dim TblRan As Range 'Переменная где искать
Dim FrmRan As Range 'Переменная что искать
Dim TblFrmRan As Range 'Переменная поиска
Set ShSales = ThisWorkbook.Worksheets("log_book") 'Лист log_book
Set SalesListObj = ShSales.ListObjects("tabl_logbook") 'Таблица tabl_logbook листа log_book
В переменные вписаны объединенные наименования
[vba]Код
TblRan = SalesListObj.Columns(5) & SalesListObj.Columns(7) & SalesListObj.Columns(8) & SalesListObj.Columns(10) 'Объединенное наименование, где и что искать
FrmRan = FormBD.Txb1.Value & FormBD.Tx2.Value & FormBD.Tx3.Value & FormBD.Tx4.Value 'Объединенное наименование, на основании чего искать
[vba]Код
Set TblFrmRan = TblRan.Find(FrmRan, LookIn:=xlFormulas, LookAt:=xlWhole) 'Поиск объединенных наименований
и если найдены наименования в таблице идентичные данным на форме, то последовательно заменить все данные в колонках по всем найденным строкам иными данными с формы vba.
[vba]Код
If Not TblFrmRan Is Nothing Then 'Если найдено Наименование
SalesListObj.Columns(7) = FormBD.Txb2.Value 'Изменить данные
SalesListObj.Columns(8) = FormBD.Txb3.Value 'Изменить данные
SalesListObj.Columns(10) = FormBD.ComboBox8.Value 'Изменить данные
End If
Конструкция не работает.
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
