I am using the following code to open a sheet from an object on another sheet within the workbook and it works fine. I would like to refine it to open the sheet and view the last row with data. The sheet contains a table called "WeightTBL" wit over 500 rows. I want it to open to the last row in the table.
[Code].....
I need to change the line Range("C2").Select to something else...
I've been working on a macro that makes copies of a template sheet based on a table in my Opps sheet. If column B isn't empty, make a copy of the template sheet, rename it to Opps column A, and then hyperlink column A's current A.row to the newly copied and renamed sheet.
I'm not sure what is wrong exactly, it keeps making duplicate Template(x) and stops renaming them, and the hyperlinks are not working. -This is my first go at VBA hyperlinks to internal workbook sheets
[Code] .....
I'm trying to write a macro that will create a pivot table, and am getting an Error code 1004: Cannot Open Pivot Table Source File "Sheetname". My code is below. I've tried to note what each section does, and it all seems to work well except for the Pivot Table creation.
View 14 Replies View RelatedEXAMPLE: Complete Sheet called "Day1". When day1 is complete you click on button and it then copies itself and creates and renames new sheet to "Day2", then when "Day2" is complete you click on button and it then copies itself and creates and renames new sheet to "Day3", and so on and so forth to "Day30".
View 9 Replies View RelatedI am trying to prepare a Worksheet that has an initial sheet which is a summary of all sheets, information on individuals and totals etc. This summary sheet will be added to over time. I would like it so that when I enter the details of a new individual on the summary sheet a new sheet is opened following a template with the details already filled in for that individual, and for the new sheet to be named with the individual's name. Ideally the new sheet would open automatically once the info has been entered, either that or a button to open the new sheet,
View 3 Replies View RelatedRecently, the boss showed me a Pivot table & chart, which consists of a list of about 30 user names in the first column. The row headings were the different items they purchased from a vending machine. & when he clicked on any name in the first column, this created a new sheet, renamed with users name, with a small table of results showing what that person purchased.
Problem is, none of us can figure out how to do this. I have created a new Pivot table & chart exactly like the original, but I cannot get the smaller sheet to generate. (Excel 2010)
I have a worksheet called Sales that could contain any number of columns of data. On another worksheet, I would like to find the last two columns and use a formula like:
Sumif('Sales'!C:C, c5, 'Sales'!D:D). (I have Excel 2007 so D:D is good)
The problem is how to change the C:C and D:D part to be the last columns.
I'm looking for something simple like this:
Sumif('Sales'!Secondtolastcol:Secondtolastcol, c5, 'Sales'!Lastcol:Lastcol)
I have written the following code that is supposed to be running on opening a work book. The macro is being called via Application.Run "CreatePT" which is in the this workbook code in a Sub workbook_open().
The code run on its own is fine with no errors... It only bombs out when its called via application.run then its a run time error 1004? ...
I am trying to have Excel 2007 open a Word Table, Select All, then Copy and paste to the open workbook. Here is what I have so far:
Sub Comments()
Dim objWord As Object
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
objWord.Documents.Open "R:JohnstonOfficeProductionSO COMMENTS.doc"
Selection.WholeStory
Selection.Copy
Right now I and getting an "Type not defined" error and the Dim oData As New DataObject step. Also if delete the code to clear the clipboard, I get an error at the WholeStory step.
What I have is a sheet that is copied periodically from some source sheet, and on this sheet is a table. This sheet is called "Onsite Checklist Template" and it's table is titled "Checklist". I also have another sheet called "Loggers and Initial Notes" which has a tabled titled "Record", and then finally a title sheet call "Proj Details".
To clear this intro up - The sheets, in their order, is: "Proj Details", "Loggers and Initial Notes", "Onsite Checklist Template". The tables: "Record" on "Loggers..." and "Checklist" on "Onsite..."
When the user wants to make a new site visit, he/she fills in the requested date and then selects a button on "Proj...". When this button is selected, it copies the table data on "Record" and puts it on "Checklist", then inserts a new worksheet tab, always in the 3rd position (the title is based on the site visit date in which the user entered), which is a copy of "Onsite...". Now we have another sheet with a table called "Checklist1", and upon another new site visit, there will be another worksheet with "Checklist2", and so on.
On the "Onsite..." worksheet, there is a button on it which also gets copied with the worksheet so that every new worksheet has this copied "Checklist ???" and this button. I'm looking for a macro that, when the button is selected, will bounce the active sheet's table "Checklist ???" off of "Record" and make changes as needed.
"Checklist ???" data range is B11:M20 (the header is on row 10); "Record" data range is B29:Q78 (the header is on row 28); Column headers are titled the same, just that "Record" has 4 extra columns, 3 in the middle and 1 on the end. "Checklist ???" columns 1-12 to "Record" columns 1-7, 10-12, 14-15. The search criteria is the 4th column in both tables ("Trk #").
I need the macro to do the following:If it finds a match, then update "Record" as needed with data from "Checklist ???", changing whatever cell is different in the row that contains the matching "Trk #", so long as the cell on "Checklist ???" is populated (i.e, if a cell on the target row of "Record" has a value, but it's blank on "Checklist ???", then "Record" wins; if it's blank on "Record", but populated on "Checklist ???", the Checklist wins. If both populated but different, then Checklist wins.If a "Trk #" exists on "Checklist ???" but is not on "Record" then add the line to "Record" (the 1st empty row, table size remains)I see no need for any "delete" at this time.
My concerns: The last column on record (column #16) is the filtering column for the worksheet copy event and needs to be left alone (it's formulated to produce a "Yes" or "No")I would like the ability to adjust table sizes if needed without modifying the macroThe table rows on "Checklist ???" will not be changed, deleted, or altered in any way by the macro.
Excel 2007.
I have a workbook with a sheet per day, each sheet has a variety of 'jobs' as columns and a variety of people and kit as rows. Hours are manually input each day during the month.
Simplified version... These are two separate sheets 'M060114' and 'Tu070114'.
Monday
Dig
Drive
Dave
4
5
Bill
2
7
Tuesday
Dig
Drive
Dave
2
7
Bill
8
1
I have a Pivot Table on a separate sheet. This was created using the Wizard (ALT +D +P).
Dig
Drive
Dave
6
12
Bill
10
8
So far, lovely.
But when I double-click on a number or right-click and choose 'Show Details' I don't get the sheet names in the newly created information sheet. I get the Row label, column label and a list of the entries.
So if I clicked on 10 above...
Row
Column
Value
Bill
Dig
2
Bill
Dig
8
That's fine with just a couple of entries but with about 80 columns and 250 rows spread across a month, therefore 30ish sheets, it's difficult marrying up the 'Show Details' sheet to the actual data.
So after all that, the question. Is there a way of getting the sheet name to appear in the 'Show Details' information sheet?
I am trying to adapt a macro to run on data that is consistently in the same format but the data does change, the macro needs to run over and over on new excel workbooks, dynamic range ? instead of a set source ?
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"weekly71012!R1C1:R9379C30", Version:=xlPivotTableVersion14). _
CreatePivotTable TableDestination:="Sheet1!R3C1", TableName:="PivotTable1" _
, DefaultVersion:=xlPivotTableVersion14
I am sure this is the problem as i initially created the macro using weekly71012 excel file however i just want it to run on every file i pull it off?
Currently, Im running a button macro. When this button is clicked, the table from "315 Employee Data" will copy the names from column C to "315" sheet B12 onwards.
Now, what i want is when I update the employee data on "315 employee data" sheet, I want "315" sheet to automatically match the names from "315 employee data", delete and add names when I add or remove employees from the column the next time i click on that button again.
After the above is achieved, when i add new employees,run the macro and it displays the updated list of names, I want "315" sheet column A to do automatic numbering.
I have attached the file for your reference.samplesample.xlsm
I have a workbook with several worksheets. I have a macro which runs on opening (to cause a userform to open).
however I am now requiring the workbook to open on a required sheet (still with the userform opening too.
I use the code to open the userform (Module 9)
Option Explicit
Sub ShowMenu()
'
' frmBranchSales.Show
End Sub
On the sheet I want to open to, I have the
Private Sub Workbook_Open()
Sheets("Commission").Select
End Sub
However it will not open.
new data goes into the report, the pivot table looks at a dynamic range and confirmed that the range doesn't select any empty cells.
Just wrote a macro to fill missing cells with a data on workbook open.
all the data is date form, yet still when i refresh the pivot table i look my montly grouping, when i try to group again it says "unable to group"
I'm a fan of the Excel 2010 table styles, but can't figure one thing out. When I create a table in excel (Ctrl+T), I like to reformat it with a new defined style. When I save the style, I can use it while I'm in that instance of excel, but when I close and reopen excel, the style is gone. How to save the custom formats to they are always available?
View 3 Replies View RelatedI have been reviewing various methods of doing this and I had one that worked and for some reason it has now stoped?
The Code is:
Sheets("BCDashbd").Select
Sheets("Main Dshbd").Visible = True
Sheets("BCDashbd").Select
ActiveWindow.SelectedSheets.Visible = False
This is activated by using a button on the BCDashbd Page. I want it to hide the BCDashboard sheet and Unhide the Main DshBd Sheet. Currently it opens the Main Dshbd sheet but does not hide the BCDshboard Sheet?
What have I missed?
I have below code, which copy the sheet from different workbook and paste it in current book. How to ensure that below code find Sheet name "Create Positions" and copy that sheet data only and not other sheet?
[Code] .....
I'm just starting to learn about using macros in buttons to send me to another sheet within the workbook, but what I now want to do is have a drop-down list that when I click on one of the entities in the drop-down list, I'm sent to that particular sheet
View 9 Replies View RelatedClients come to the shop and can ask to receive body massage, foot massage or herbs massage for 1 hour, 2 hours or more. Prices vary depending on the number of hours requested by client and option (body massage, foot massage or herbs massage). For example, one hour is more expensive than if they get two hours at once.
At the moment, our secretary has to keep records of who's massaging, what option and number of hours. From that she has to calculate how much each employee must get at the end of the day. Hence, I want to create a document to automate all this by letting her select from drop down menus the name of employee, time massage started, number of hours and the option (body massage, foot massage or herbs massage). It contains two sheets:
SHEET 1: management: see atached image: management.jpg
SHEET 2: rates: see atached image: rates.jpg (prices are not real).
In SHEET 1: Management
TOTAL in column H is what we charge customer.
TOTAL EMPLOYEE in column I is what must be paid to the employee after each massage.
TOTAL in column A and B is total price at the end of the day.
In SHEET 2: rates
There's 3 options: body massage, Foot massage, Herbs massage. For each options, there are two columns: first column is the price for client and second column is price to pay for employee.......
How do I get a workbook to open with a selected sheet visible, or preferably all hidden? I already have a userform that opens upon opening the workbook that the user 'Enters' the workbook with.
My untidy method would have been to use an If -Then statement for each sheet in the Private Sub Workbook_Open. Is there a neater way of doing it?
Say im in sheet 1 at B2. Am looking to create a button so when I press it a small window opens and displays the data that is it sheet 2 (which is just 2 columns of a list of products and price.
Then I for example double click on a product and it will be added in the current cell.
On a command button in a userform, I have this code to open another workbook:
View 2 Replies View RelatedI am working on code to move worksheets to existing workbooks based on the filename in a cell value. Here are my questions...
1.Does the destination workbook need to be opened before I can move a worksheet there?
2. How can I write the code to take the sheet name which is also in column A of "Data" sheet and the path or destination to move the sheet name to the path that is in column B of the "Data" sheet?
3.Can someone help me with the code?
All the worksheet names and copy destination is in the "Data" sheet. Here is what I have for code...
_____________________________________________________
Dim wbBook As Workbook
Dim qsSheet As Worksheet
Dim dsSheet As Worksheet
Dim wsSheet As Worksheet
Dim dpStart As Range, dpData As Range
Dim ptStart As Range, ptData As Range
Set wbBook = ThisWorkbook
Set qsSheet = wbBook.Worksheets("Query")
Set dsSheet = wbBook.Worksheets("Data")
Set wsSheet = wbBook.Worksheets
With dsSheet
Set dpStart = .Range("A2")
Set dpData = .Range(.Range("A2"), .Range("A65536").End(xlUp))
Set ptStart = .Range("B2")
Set ptData = .Range(.Range("B2"), .Range("B65536").End(xlUp))
End With
For Each wsSheet In ThisWorkbook.Worksheets
If Not wsSheet.Name = "Data" And Not wsSheet.Name = "Query" Then
wsSheet.Copy
I have a WB with 31 sheets, each dated 1st to 31st and currently hidden.
I have been trying to write a VBA code that would open a sheet based on todays date... so if today is the 2nd of Nov it would unhide the sheet 2nd, I would also like it to check if a sheet dated 1st is visable, and if it is, hide it.
The date for the sheet to hide would I think need to be relative... but I don't know how to get it right.
How do I determine if AutoFilter is turned on when I open a sheet? I tried FilterMode with no luck.
HTML Code:
Sub macro2()
Dim t As Boolean
s = ActiveWorkbook.Name
t = Worksheets("SO_PO_14").FilterMode
End Sub
The FilterMode call always return False,
I have a workbook including several sheets.
I'd like to hide all worksheets and in the excel there is only one visible sheet which is Navigation Page. I want to add several buttons on this sheet and each button will be clicked to call the other sheets.
For example, there is a sheet called Sales_Approval_Form and I'd like to add a button on navigation page called Sales Approval Form and when the user clicks the button the sheet will be open for entering data.
I've got this function where you can select from a list of names, and when you press go it unhides the sheet and goes to it, problem with that was after closing the sheet it was no longer hidden. So now, I have
[Code]......
So when you press go, it unhides the sheet, goes to it, and hides it again, but then the sheet is hidden it pushes the user back to the page they was on, so it would appear you can't have a hidden sheet open.
Is there a way for excel to determine when the sheet has been closed, to be able to hide it when the user navigates away?
I am trying to create an event macro that would deactivate column and row headers when the workbook is launched and activate a sheet. i am not managing to do this,
View 2 Replies View RelatedI recorded a Macro to open a specific sheet and it works fine however I want to go to the next step and have the sheet open to a specified column in the sheet based on the column in cell 'H2' on the current sheet.
View 13 Replies View Related