Excel 4.0 : Selecting Extract Data

Article View: comp.apps.spreadsheets

Article #229

Back to comp.apps.spreadsheets Previous Next

#229

From: Stuart Baker
Date: Tue, 22 Dec 1992 14:55

29 lines
1645 bytes

Thank to those who responded to my inquiry about setting a print area for an
unlimited extract range.  I actually ended up using a compilation of efforts
to do the deed. I have put the macro below. The key command is the
=Select.Special(5) command which is the equivalent of Control & Shift & *,
which selects the current region. The line after that returns the selection
range, minus the top row which is the print title row of the extract range.


*****EXCEL MACRO TO AUTOMATICALLY SELECT A REGION & DEFINE PRINT AREA & PRINT

PrintExtract
		=ECHO(FALSE)
Print_Ext	=ALERT("Do you want to print the extracted data?",1)
		=IF(Print_Ext=FALSE,GOTO(EndExtPrint))
		=MESSAGE(TRUE,Printing Extracted Data, please wait")
		=FORMULA.GOTO("Extract_Home")
		=SELECT.SPECIAL(5)
		=SELECT(OFFSET(SELECTION(),1,0)
		=SET.PRINT.AREA()
		=FORMULA.GOTO("Extract_Home")
		=PRINT()
EndExtPrint	=MESSAGE(FALSE)
		=RETURN()

---------------------
Stu D. Baker				Mitchell Media Center
Multimedia Services Specialist		Northwestern University Library
E-MAIL: stubaker@nwu.edu		1935 Sheridan Road.
VOICE: 708.467.1984			Evanston, Illinois   60208-2323

Technical Details

Message-ID: <1992Dec22.145518.992@news.acns.nwu.edu>

Path: arc1-ca.pugleaf.net!sparky!uunet!zaphod.mps.ohio-state.edu!news.acns.nwu.edu!casbah.acns.nwu.edu!stubaker

Show Full Headers

Complete Article Headers

Newsgroups: comp.apps.spreadsheets
Path: arc1-ca.pugleaf.net!sparky!uunet!zaphod.mps.ohio-state.edu!news.acns.nwu.edu!casbah.acns.nwu.edu!stubaker
From: stubaker@casbah.acns.nwu.edu (Stuart Baker)
Subject: Excel 4.0 : Selecting Extract Data
Message-ID: <1992Dec22.145518.992@news.acns.nwu.edu>
Sender: usenet@news.acns.nwu.edu (Usenet on news.acns)
Nntp-Posting-Host: unseen1.acns.nwu.edu
Organization: Northwestern University, Evanston Illinois.
Date: Tue, 22 Dec 1992 14:55:18 GMT
Lines: 29