Границы области печати

[Berrimor]

Добрый день. Помогите пожалуйста с кодом

Dim rF As Range
Dim lLastRow As Long
   rF = Columns("B:B").Find(What:="*", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) 
   lLastRow = rF.Row
   ActiveSheet.PageSetup.PrintArea = ActiveSheet.Range(Cells(1, 1), Cells(lLastRow, 18)).Address

Во вложении файл с примером, по нему получается что на Листе2, в столбце "В" через ВПР находим значение ячейки. И хотелось бы чтобы область печати ограничивалась последней не пустой ячейкой в столбце "В", в случае с файлом примером была А1:В15.

[Serge 007]

Здравствуйте

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

...последней не пустой ячейкой в столбце "В"...

Таковой является ячейка В23, поскольку в ней, последней в столбце В есть значение - строка нулевой длинны, которую возвращает формула с ВПР()
В этом случае макрос будет выглядеть так:

Sub Berrimor1()
    Worksheets("Лист2").PageSetup.PrintArea = "a1:b" & Cells(Rows.Count, "b").End(xlUp).Row
End Sub

Однако, Вы пишете:

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

...в случае с файлом-примером была А1:В15.

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

Sub Berrimor2()
Dim Val As Range, LR&, PA&
LR = Cells(Rows.Count, "a").End(xlUp).Row
    For Each Val In Range("b1:b" & LR)
        If Val <> "" Then PA = Val.Row
    Next
    Worksheets("Лист2").PageSetup.PrintArea = "a1:b" & PA
End Sub

[Berrimor]

Serge 007, Большое спасибо за помощь, попробую разобраться с Вашим кодом. Извиняюсь что не четко сформулировал задачу, действительно нужно чтобы находилась последняя ячейка, с видимыми глазу значениями.

[Berrimor]

Большое спасибо!
Разобрался!