| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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!! |
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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!! |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Code to copy the formulae of one cell to all the cell in the rangewith the specific cell and columnnumber changing Options | Excel Discussion (Misc queries) | |||
| Code to copy the formulae of one cell to all the cell in the rangewith the specific cell and columnnumber changing | Excel Discussion (Misc queries) | |||
| Populate a cell if values in cell 1 and cell 2 match cell 3 and 4 | Excel Worksheet Functions | |||
| NEED VBA TO SELECT A CELL; NOTE THE CELL VALUE;COPYADJ CELL;FIND CELL VALUE IN A RANGE AND SO ON | Excel Programming | |||
| How to create/run "cell A equals Cell B put Cell C info in Cell D | Excel Discussion (Misc queries) | |||
Hybrid Mode
