Объясните почему?

[DJTreeno]

Доброго всем времени суток!

Почему не работает такая конструкция

For Each i In Worksheets("Справочник").Range([F2], Cells(Rows.Count, "F").End(xlUp)).Areas.Item(1)


Я хочу обратиться к диапазону в другом листе не переходя на него, как это сделать? Ведь простое обращение к ячейке работает.

[Hugo121]

Каждой cells нужно указать, чьё это.
т.е. типа

For Each i In Range(Worksheets("Справочник").[F2], Worksheets("Справочник").Cells(Worksheets("Справочник").Rows.Count, "F").End(xlUp)).Areas.Item(1)

С этим Areas.Item(1) не знаю, нужно тестить.

[staniiislav]

Сообщение от DJTreeno

Доброго всем времени суток!

Почему не работает такая конструкция

For Each i In Worksheets("Справочник").Range([F2], Cells(Rows.Count, "F").End(xlUp)).Areas.Item(1)


Я хочу обратиться к диапазону в другом листе не переходя на него, как это сделать? Ведь простое обращение к ячейке работает.

может так:

For Each i In Worksheets("Справочник").Range(Worksheets("Справочник").[F2], Worksheets("Справочник").Cells(Rows.Count, "F").End(xlUp)).Areas.Item(1)

[Hugo121]

Я думаю, что указать, откуда берём количество строк - тоже не лишнее. Т.к. могут быть одновременно открыты файлы разных версий. Но не тестил

[DJTreeno]

Ой совсем забыл, спасибо что напомнили!!! Я уже так делал
Наверно вот так точнее:
Dim sh as worksheet

Set sh = Sheets("Справочник")

For Each i In sh.Range(sh.[F2], sh.Cells(sh.Rows.Count, "F").End(xlUp)).Areas.Item(1)


Ужас извините, забал в одном месте ставить!

[Hugo121]

Можно ещё короче:

With Sheets("Справочник")
For Each i In .Range(.[F2], .Cells(.Rows.Count, "F").End(xlUp)).Areas.Item(1)
'делаем дело
Next
End With

[DJTreeno]

Спасибо Вам все огромное, я благодаря Вам автоматизировал огромное количество своей рутинной работы!!!

Еще вопрос касающейся темы, а как сделать:

sh1.Columns("I:L").Select
Selection.Copy
sh2.Columns("A:D").Paste

Чет не хочет(((

[Hugo121]

Пробуйте

sh1.Columns("I:L").Copy sh2.Range("A1")

[DJTreeno]

Спасибо вот так работает:

sh1.Columns("I:L").Copy sh2.Range("A:D")

Писало что области не совпадают

Вы постоянно мне помогаете, что я даже репутацию плюсануть не могу)))
Низкий поклон!!!

[Hugo121]

Странно, у меня сработало с A1...
Ну ладно, главное что в итоге сработало. Но странно...