Добрый день!
Снова нужен совет. Не могу задать Range. Есть также подозрение что я выбрал самый длинный путь и можно проще все сделать, но как - не нашел.
По задумке, сначала пользователь выделяет ячейку на активном листе, которая используется как значение поиска (этого в коде нет, поскольку несущественно) потом на другом листе массив ячеек в котором осуществляется поиск (ra) мышью.
Заранее спасибо
Снова нужен совет. Не могу задать Range. Есть также подозрение что я выбрал самый длинный путь и можно проще все сделать, но как - не нашел.
По задумке, сначала пользователь выделяет ячейку на активном листе, которая используется как значение поиска (этого в коде нет, поскольку несущественно) потом на другом листе массив ячеек в котором осуществляется поиск (ra) мышью.
Код |
---|
Dim ra As Range Dim fSearchCellList As String With Application.InputBox("Выберите массив в котором ищем совпадения", "Где ищем?", Type:=8) fSearchCellList = .Parent.Name ' имя листа fSearchCelladr = .Address() ' диапазон в виде "$B$1:$B$27" End With fSearchCelladrN = Mid(fSearchCelladr, 1, (InStr(1, fSearchCelladr, ":") - 1)) ' первая ячейка fSearchCelladrE = Mid(fSearchCelladr, (InStr(1, fSearchCelladr, ":") + 1)) ' последняя ячейка Set ra = Worksheets(fSearchCellList).Range("B1:B27") 'а вот тут начинаются затыки уже на этапе обращения листу |
Заранее спасибо