запуталась с адресацией диапазонов на листе

[samoa]

Оказалось, что я совсем не разбираюсь в адресации диапазонов. Случайно при отладке обнаружила, что вот такая строка:

#
With ThisWorkbook.Worksheets(1)
With .Range(.Cells(1, 9), .Cells(Rows.Count, 9).End(xlUp))
...
#
обращается не к диапазону I1:I244 (у меня получается на листе 244), а к диапазону Y1:Y244, где у меня совершенно нет никаких данных.

Но что интерсно, дальше строка

#
...
Set rRo = .Find(xmas(2), LookIn:=xlValues, LookAt:=xlWhole)
End With
End With
#
совершенно правильно находит нужное мне значение в ячейке I188,
т.е. в колонке I.

Может, мне помогут понять, почему так происходит

и .Find получается ищет везде по листу, а не в оговоренном изначально диапазоне...
Или, может, подскажите ссылочку, где хорошо этот вопрос (адресации ячеек) освещен. Ну, как для тупых.

[motorway]

обращается не к диапазону I1:I244 (у меня получается на листе 244), а к диапазону Y1:Y244, где у меня совершенно нет никаких данных.

А как вы это определили?

[samoa]

вставила следующей строкой за Range... команду Debug.print

Debug.Print .Range(.Cells(1, 9), .Cells(Rows.Count, 9).End(xlUp)).Address

и он мне такое сказал.

[doober]

Это как в задаче о сапогах.
А угадайте.что выдаст сообщение,какой диапазон

With ThisWorkbook.Worksheets(1)
With .Range(.Cells(1, 8), .Cells(Rows.Count, 8).End(xlUp))

MsgBox .Address

End With
End With

[samoa]

Выдало $H$1.
И это как раз понятно. H - 8-я колонка, как в Cells-ах.

Вопрос в другом: почему в моем примере так не получилось? Отчего это зависело? Что надо было предусмотреть или какую команду дать предварительно, чтобы получить то, что нужно.
Хорошо, что в моем макросе это никак не повлияло на результат, но где-то в другом месте может и повлиять. А я и не буду знать почему - строка-то отрабатывается.

К слову, в этом файле до этого я в листах еще не работала. В загрузке стоит вызов формы, там выбираются значения и форматируется лист. До активации листа на том моменте, о котором я задала вопрос еще не дошло.

[samoa]

А как вы делаете, чтобы фрагмент кода в сообщении выделялся, а не вставлялся с решеточками, как у меня?

[motorway]

Попробуйте так:

Debug.Print .Range(.Cells(1, 9), .Cells(Rows.Count, 9).End(xlUp).Address).Address

[samoa]

если сделать:
Debug.Print .Range(.Cells(1, 9), .Cells(Rows.Count, 9).End(xlUp).Address).Address -

Получается тот же самый результат
$Y$1:$Y$244

Это я получается задала диапазон от ячейки 1,9 до ячейки с адресом ".Cells(Rows.Count, 9).End(xlUp).Address" . Интересно.

И тем не менее, почему $Y?

Ну, хоть намекните от чего это может зависеть?
Практически такой же пример Doober-а, где он хотел меня подколоть, адресовывает все так, как и следовало ожидать.

[motorway]

Такого не должно быть. Видимо, где-то ошибка. Можете приложить файл в принципе

[doober]

Это как в задаче о сапогах.

Надо правильно считать сапоги

With ThisWorkbook.Worksheets(1)

MsgBox .Range(.Cells(1, 8), .Cells(Rows.Count, 8).End(xlUp)).Address
With .Range(.Cells(1, 8), .Cells(Rows.Count, 8).End(xlUp))
MsgBox .Address
MsgBox .Range(.Cells(1, 8), .Cells(Rows.Count, 8).End(xlUp)).Address
End With
End With