Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
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 |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Excel: Copy to a new tab but keep formula references from old shee | Excel Discussion (Misc queries) | |||
2 Small VBA Questions; Text To Columns and Naming First Sheet | Excel Discussion (Misc queries) | |||
If A1=dog or A2=cat in wrkbk1 sheet1, then copy row to wrkbk2 shee | Excel Worksheet Functions | |||
Copy Autofilter results macro | Excel Programming | |||
How do I copy page setup from one worksheet & paste into new shee. | Excel Discussion (Misc queries) |