Поиск / поиск в заданной области

Когда я заменяю «Activesheet.cells» в «lFundcolumn» ниже «rnMonths», я получаю «Ошибка времени выполнения 13». Я был бы признателен, если бы кто-нибудь мог объяснить, что я делаю неправильно здесь, пожалуйста.

Короче говоря, я хочу найти значение в строке и скопировать этот столбец и столбец справа от него. Ниже приведен код для определения первого столбца, который является ошибкой.

Sub Roll_period() Dim sMonth As String Dim rnMonths As Range Dim lFundcolumn As Long Dim rnRngtocopy As Range sMonth = ActiveSheet.Cells(3, 1).Value Set rnMonths = ActiveSheet.Rows(4) lFundcolumn = rnMonths.Find(What:=sMonth, after:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole, searchorder:=xlByColumns).Column 

… Вы сделали все правильно, ваша проблема была after:=ActiveCell в вашем операторе Find , который может или не может указывать на нужное место для поиска …

Измените его так:

 after:=rnMonths.Cells(1, 1) 

Это будет выглядеть так:

 lFundcolumn = rnMonths.Find(What:=sMonth, after:=rnMonths.Cells(1, 1), LookIn:=xlValues, LookAt:=xlWhole, searchorder:=xlByColumns).Column 

Надеюсь, что это трюк!

Interesting Posts

Импортируйте несколько строк из нескольких HTML-файлов в ячейки (ниже друг друга) в одном файле Excel

как добиться проверки на основе пары ключевых значений в MS excel?

Невозможно преобразовать null в 'bool', потому что это тип значения, не равный nullable

Добавление новых вкладок с помощью Excel VBA

Копирование диапазона ячеек в другую книгу

Проверить дату / время в массиве текстовых файлов

Excel Некоторые тексты все еще видны

Сравнение индексов из разных таблиц – Excel

excel countifs и цвет

Использование VBA Excel для создания Scatter Plot

Ошибка «Не удается загрузить запрошенную информацию» при попытке открыть ссылку из загружаемого файла excel PHPExcel

Неверная переменная Value2

VBA: удаление фильтрованных ячеек (не всей строки)

Как обеспечить последовательность вызовов функций в листе Excel

Вставьте данные в новую строку через пользовательскую форму – Excelvba

Давайте будем гением компьютера.