LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 6
Default Questions: Copy ranges, autofilter macro, subtotals, & naming shee

I have a workbook for receipt tracking for a theatre season. Each sheet
contains all the info about one show, and there will be as many as 7 shows in
a season. Each show has receipts from several departments (props, wardrobe,
lighting, etc.) I've set up each sheet like this:

Row 4: Props Wardrobe
Row 5: Date Store Amt VisaY/N? Name Date Store Amt VisaY/N? Name

....etc moving to the right. The data begins in row 6

Question 1: I want to rename the sheet tabs based on the text entered in
merged cells A1:C1 (show title) and I'd like this to happen automatically
once the data is entered in the cell (Currently it says "<Enter Show 1 Name
Here")

Question 2: I want to be able to pull all the records from each sheet and
category for which the user has entered "Y" under the Visa column and copy
that information to a new sheet named "Visa". My difficulty is that I can't
pull the entire row; I need to just pull the row under a particular
department heading.

I've created a macro that will copy each range I need from each sheet, then
autofilter for "Y" and sort by date. I'm wondering if there's an easier way
to do this. Here's part of the code:

Sheets("Visa").Select
Range("B35").Select
Sheets("Show 1").Select
Range("F6:J55").Select
Selection.Copy
Sheets("Visa").Select
ActiveSheet.Paste

Range("B85").Select
Sheets("Show 1").Select
Range("N6:R55").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Visa").Select
ActiveSheet.Paste

Range("B135").Select
Sheets("Show 1").Select
Range("V6:Z55").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Visa").Select
ActiveSheet.Paste

....and on and on and on :) (it ends up going up to row 3150)
I fear that this code will be useless if I change the names of the sheets
too. Sigh. I'm very new to macros (a week!) so I'm sure I've screwed up
somewhere.

Question 3: I also would like to be able to subtotal all records in "Visa"
by month, but when I try to subtotal it does it for each change in "Date"
(i.e., subtotals Jan 8 and 9, rather than both together).

I've already learned a lot from reading these forums, but I don't understand
macros enough to modify the code I've found here that might work. Any help
you could provide would be much appreciated! My apologies for the long post,
too.
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Excel: Copy to a new tab but keep formula references from old shee Cheese man Excel Discussion (Misc queries) 1 April 25th 10 02:14 AM
2 Small VBA Questions; Text To Columns and Naming First Sheet Brent E Excel Discussion (Misc queries) 6 May 2nd 07 07:43 PM
If A1=dog or A2=cat in wrkbk1 sheet1, then copy row to wrkbk2 shee Ruth_J Excel Worksheet Functions 11 October 7th 06 08:25 AM
Copy Autofilter results macro CLR Excel Programming 7 May 16th 05 06:48 PM
How do I copy page setup from one worksheet & paste into new shee. Rasc0 Excel Discussion (Misc queries) 2 December 1st 04 10:12 PM


All times are GMT +1. The time now is 08:07 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"