[SOLVED] Excel : Help with a Work Assessment

3PointJ · 08-05-2008, 05:10 PM

Hi guys,

I have a friend who is doing an excel course and has gotten stuck in part of her assessment.

I am not a excel god, so I thought if someone might be able to give me some pointers.

Here is the Question..

Quote:

Some of the activities in this guide you have been required to analyse, specify and develop a spreadsheet application to record sales and expenditures data by sales person. As a final assessment project you are required to further develop your existing application into a user friendly application which must include the following:

1. Twelve monthly spreadsheets which all link into a summary sheet. Each should have some data in it

2. A number of buttons with macros assigned to them to set the print area to a specific month and then show a print preview of the output

3. A chart which shows monthly sales and expenditures by salesperson

4. A brief document explaining to users how to enter data, edit, or delete data into the monthly spreadsheets and how to printout a listing of a month's data

Any help would be greatly appreciated

Thanks in Advance

**djaburg** · 08-05-2008, 05:43 PM

Which part of the assessment has "your friend" gotten stuck on?

3PointJ · 08-05-2008, 06:03 PM

The macro part I am pretty sure.

I will confirm this however

3PointJ · 08-05-2008, 11:09 PM

Don't worry djaburg...

I figured it out..

Its been a while since I looked at VBcode, but I managed to make something that suited the requirements of the question.

Quote:

Originally Posted by Macro script I wrote

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Address
Case Is = "$D$3"
Sheets("JANUARY").Select
ActiveWindow.SelectedSheets.PrintPreview
Sheets("Summary").Select
Case Is = "$D$4"
Sheets("FEBRUARY").Select
ActiveWindow.SelectedSheets.PrintPreview
Sheets("Summary").Select
Case Is = "$D$5"
Sheets("MARCH").Select
ActiveWindow.SelectedSheets.PrintPreview
Sheets("Summary").Select
Case Is = "$D$6"
Sheets("APRIL").Select
ActiveWindow.SelectedSheets.PrintPreview
Sheets("Summary").Select
Case Is = "$D$7"
Sheets("MAY").Select
ActiveWindow.SelectedSheets.PrintPreview
Sheets("Summary").Select
Case Is = "$D$8"
Sheets("JUNE").Select
ActiveWindow.SelectedSheets.PrintPreview
Sheets("Summary").Select
Case Is = "$D$9"
Sheets("JULY").Select
ActiveWindow.SelectedSheets.PrintPreview
Sheets("Summary").Select
Case Is = "$D$10"
Sheets("AUGUST").Select
ActiveWindow.SelectedSheets.PrintPreview
Sheets("Summary").Select
Case Is = "$D$11"
Sheets("SEPTEMBER").Select
ActiveWindow.SelectedSheets.PrintPreview
Sheets("Summary").Select
Case Is = "$D$12"
Sheets("OCTOBER").Select
ActiveWindow.SelectedSheets.PrintPreview
Sheets("Summary").Select
Case Is = "$D$13"
Sheets("NOVEMBER").Select
ActiveWindow.SelectedSheets.PrintPreview
Sheets("Summary").Select
Case Is = "$D$14"
Sheets("DECEMBER").Select
ActiveWindow.SelectedSheets.PrintPreview
Sheets("Summary").Select
End Select
Cancel = True
End Sub

Thanks anyway

08-05-2008, 05:43 PM	#2 (permalink)
djaburg TSF Enthusiast Join Date: May 2008 Posts: 1,321 OS: XP SP3/Vista/7 Server 2K/2K3/2K8	Re: Excel : Help with a Work Assessment Which part of the assessment has "your friend" gotten stuck on? __________________ Computers make it easier to do a lot of things, but most of the things they make it easier to do don't need to be done. The inherent vice of capitalism is the uneven division of blessings, while the inherent virtue of socialism is the equal division of misery.

08-05-2008, 06:03 PM	#3 (permalink)
3PointJ Registered User Join Date: Jan 2008 Location: Australia Posts: 134 OS: Vista Ultimate x64, Vista Home Premium, Ultimate, Business, Windows Server 2K3 & 2K8, XP Home & Pro My System	Re: Excel : Help with a Work Assessment The macro part I am pretty sure. I will confirm this however