выделить строки

[Romuald]

Добрый день!
Подскажите, как можно еще выделить строки
У меня через Range
Просто в EXCEL-e у меня все нормально но через Intern.explor. макрос ругается во здесь:
SR.Range("A" + CStr(searchResult(index)) + ":J" + CStr(searchResult(index) + i - 1)).Select
Заранее спасибо

[Romuald]

Или не нравится Select

[SAS888]

Например, так:

SR.Range(Cells(searchResult(Index), "A"), Cells(searchResult(Index) + i - 1, "J")).Select

[Romuald]

Нет, все равно дебажит

Runtime error'1004
Method 'Cells of object'_Global'failed

[SAS888]

1. Что такое "SR"? Если это ссылка на лист, проверьте ее валидность.
2. Чтотакое "searchResult(Index)"? Это должно быть целое число.
P.S. Для теста напишите, например:

Range(Cells(3, "A"), Cells(8 "J")).Select

Должен выделиться диапазон "A3:J8".
Желаю удачи!

[Romuald]

Просто из EXCEL-a выделяет
Через INT Expl нет и ругается на строку с выделением
Закоментил строку, (макрос поиска идет но не выделяет строки)
По поиску мы выбираем товар , но на складе есть товар с одним и тем-же названием (т.е одинаковые карточки но по разной цене) и макрос при поиске выдает данные в форму , где показывает общее кол-во товара по карточке и одновременно в Sheet-e выделяет строки с этой карточкой(одну или несколько) и можно увидеть сколько товара и по какой цене
У нас своя сеть и этот файл(который я постоянно обновляю) должны видеть и работать несколько пользователей
Администратор этот файл сохраняет где-то у себя на сервере и у пользователей поставлен ШОРТ Интерн.Эксплор. Открывается файл все нормально ,но при запуске макроса поиск (nolik LRCi) он ругается

[Romuald]

Во отдельно макрос

[SAS888]

Вашу проблему, возможно решит следующее:
Строку кода

SR.Range(Cells(searchResult(Index), "A"), Cells(searchResult(Index) + i - 1, "J")).Select

Заменить на

SR.Activate
Range(Cells(searchResult(Index), "A"), Cells(searchResult(Index) + i - 1, "J")).Select