Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Printrange function help?
Hi all, I have been using some code found in this forum to determine the activ print range and it used to work perfectly. Suddenly however, it ha stopped working. Unfortunately I cannot identify what change ha caused this. Any chance one of you gurus can figure it out? Code ------------------- Dim PrintThis As Range PrintThis = Worksheets("Expense Schedule").Range("A21:P" & LastRowRange(Worksheets("Expense Schedule"))) Function LastRowRange(sh As Worksheet) On Error Resume Next LastRowRange = sh.Range("A:P").Find(What:="", _ After:=sh.Range("A21:P21"), _ Lookat:=xlPart, _ LookIn:=xlValues, _ SearchOrder:=xlByColumns, _ SearchDirection:=xlNext, _ MatchCase:=False).Row On Error GoTo 0 End Functio ------------------- -- Frigid_Digi ----------------------------------------------------------------------- Frigid_Digit's Profile: http://www.excelforum.com/member.php...fo&userid=2692 View this thread: http://www.excelforum.com/showthread.php?threadid=40142 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel Data Validation/Lookup function does function correcty | Excel Worksheet Functions | |||
LINKEDRANGE function - a complement to the PULL function (for getting values from a closed workbook) | Excel Worksheet Functions | |||
Offset function with nested match function not finding host ss. | Excel Worksheet Functions | |||
Using macro to change printrange / fit-to-page | Excel Programming | |||
User-Defined Function pre-empting Built-in Function? How to undo???? | Excel Programming |