ExcelBanter - Last Used Cell

ExcelBanter (https://www.excelbanter.com/)

- Excel Programming (https://www.excelbanter.com/excel-programming/)

- - Last Used Cell (https://www.excelbanter.com/excel-programming/404980-last-used-cell.html)

ryguy7272

Last Used Cell

This snippet of code always fails on the ActiveSheet line

Dim LastR
LastR = Cells(Rows.Count, "P").End(xlUp).Select
ActiveSheet.PageSetup.PrintArea = "$A$1:LastR"

What is wrong? I am just trying to find the last used cell in Column P, and
then set the Print Area as A1 to the last row in Column P that is used.

Argh!!

--
RyGuy

Jim Thomlinson

Last Used Cell

Try this...

Dim LastR as long

LastR = Cells(Rows.Count, "P").End(xlUp).Select
ActiveSheet.PageSetup.PrintArea = "A1:P" & LastR

--
HTH...

Jim Thomlinson

"ryguy7272" wrote:

This snippet of code always fails on the ActiveSheet line

Dim LastR
LastR = Cells(Rows.Count, "P").End(xlUp).Select
ActiveSheet.PageSetup.PrintArea = "$A$1:LastR"

What is wrong? I am just trying to find the last used cell in Column P, and
then set the Print Area as A1 to the last row in Column P that is used.

Argh!!

--
RyGuy

ryguy7272

Last Used Cell

Well, it certainly looks like it should work, but Excel doesn't like it. It
gtes hung up in the same place. What could it be?

Thanks,
Ryan--

--
RyGuy

"Jim Thomlinson" wrote:

Try this...

Dim LastR as long

LastR = Cells(Rows.Count, "P").End(xlUp).Select
ActiveSheet.PageSetup.PrintArea = "A1:P" & LastR

--
HTH...

Jim Thomlinson

"ryguy7272" wrote:

This snippet of code always fails on the ActiveSheet line

Dim LastR
LastR = Cells(Rows.Count, "P").End(xlUp).Select
ActiveSheet.PageSetup.PrintArea = "$A$1:LastR"

What is wrong? I am just trying to find the last used cell in Column P, and
then set the Print Area as A1 to the last row in Column P that is used.

Argh!!

--
RyGuy

Jim Thomlinson

Last Used Cell

you want the row so get rid of the select...

Dim LastR as long

LastR = Cells(Rows.Count, "P").End(xlUp).Row 'Row not Select
ActiveSheet.PageSetup.PrintArea = "A1:P" & LastR

--
HTH...

Jim Thomlinson

"Jim Thomlinson" wrote:

Try this...

Dim LastR as long

LastR = Cells(Rows.Count, "P").End(xlUp).Select
ActiveSheet.PageSetup.PrintArea = "A1:P" & LastR

--
HTH...

Jim Thomlinson

"ryguy7272" wrote:

This snippet of code always fails on the ActiveSheet line

Dim LastR
LastR = Cells(Rows.Count, "P").End(xlUp).Select
ActiveSheet.PageSetup.PrintArea = "$A$1:LastR"

What is wrong? I am just trying to find the last used cell in Column P, and
then set the Print Area as A1 to the last row in Column P that is used.

Argh!!

--
RyGuy

Gord Dibben

Last Used Cell

Dim LastR As Long
LastR = Cells(Rows.Count, "P").End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "$A$1:P" & LastR

Gord Dibben MS Excel MVP

On Thu, 24 Jan 2008 13:42:50 -0800, ryguy7272
wrote:

This snippet of code always fails on the ActiveSheet line

Dim LastR
LastR = Cells(Rows.Count, "P").End(xlUp).Select
ActiveSheet.PageSetup.PrintArea = "$A$1:LastR"

What is wrong? I am just trying to find the last used cell in Column P, and
then set the Print Area as A1 to the last row in Column P that is used.

Argh!!

Dave Peterson

Last Used Cell

I don't think Jim saw that .Select lurking at the end of that second line:

Dim LastR as long
LastR = Cells(Rows.Count, "P").End(xlUp).Row '<--changed to row
ActiveSheet.PageSetup.PrintArea = "A1:P" & LastR

ryguy7272 wrote:

Well, it certainly looks like it should work, but Excel doesn't like it. It
gtes hung up in the same place. What could it be?

Thanks,
Ryan--

--
RyGuy

"Jim Thomlinson" wrote:

Try this...

Dim LastR as long

LastR = Cells(Rows.Count, "P").End(xlUp).Select
ActiveSheet.PageSetup.PrintArea = "A1:P" & LastR

--
HTH...

Jim Thomlinson

"ryguy7272" wrote:

This snippet of code always fails on the ActiveSheet line

Dim LastR
LastR = Cells(Rows.Count, "P").End(xlUp).Select
ActiveSheet.PageSetup.PrintArea = "$A$1:LastR"

What is wrong? I am just trying to find the last used cell in Column P, and
then set the Print Area as A1 to the last row in Column P that is used.

Argh!!

--
RyGuy

--

Dave Peterson

ryguy7272

Last Used Cell

I knew when Jim Thomlinson got involved this issue would be resolved!! Also,
thanks for the help Gord and Dave!! This must have been such a simple thing
for three gurus, but for me it was somewhat troublesome. Oh well, I learned
a new trick today.

Thanks again guys!
Ryan---

--
RyGuy

"Gord Dibben" wrote:

Dim LastR As Long
LastR = Cells(Rows.Count, "P").End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "$A$1:P" & LastR

Gord Dibben MS Excel MVP

On Thu, 24 Jan 2008 13:42:50 -0800, ryguy7272
wrote:

This snippet of code always fails on the ActiveSheet line

Dim LastR
LastR = Cells(Rows.Count, "P").End(xlUp).Select
ActiveSheet.PageSetup.PrintArea = "$A$1:LastR"

What is wrong? I am just trying to find the last used cell in Column P, and
then set the Print Area as A1 to the last row in Column P that is used.

Argh!!

All times are GMT +1. The time now is 04:23 AM.