I have a Workbook containing seven or eight Worksheets. The first Worksheet is a data entry and options selection sheet displaying a selection of Textboxes, Option buttons, Combo boxes etc, the second sheet contains reference data, following these are a number of Worksheets that are calculated and filtered as a result of those options and inputs. A 'print' button on the input Worksheet then runs a Procedure that applies the relevant filters, assigns print areas and prints out the 4 or 5 filtered worksheets. I now want to expand this Procedure to take a copy of just these filtered Worksheets and save them as another Workbook (values only) for subsequent free editting.
I have started by selecting the relevant cells on the first filtered Worksheet, copying, opening a new Workbook, renaming the first Worksheet to match the one I'm copying, PasteSpecial formats, PasteSpecial the values, go back to the original Workbook, select the relevant cells on the next Worksheet, copying, opening the new Workbook, renaming the Worksheet etc etc. Now this seems to be a very labour intensive approach and I'm wondering if there is an easier way and how to do it. Ideally something like... taking a copy of the whole Workbook somehow changing all the cells to values only, rather than formulars then deleting the first two Worksheets (input and data ones).
I have been trying to edit a code which previously saved a copy in a new workbook to a specific folder/path. (Additionally it copies and clears some figures, but this is working as it should.)
However I would like the copy to be saved at the same location as the original workbook, regardless of the path the original workbook is saved.
I.e if I need to move the workbook containing the code to a new folder/location, when using the macro, the new copy should be stored in the same folder/location as the original one.
For now it is only saving the copy into "My Documents"
Code: Sub Macro1() ' ' Macro1 Macro ' Macro recorded 16-02-2009 by ceng '
I have a csv .txt file that I am importing into Excel, and then creating a pivot-table from that data. This results in 2 tabs within my workbook, pivot-table and data. Using the following code does everything I want it to, but when I re-open the saved .xls file I only have the pivot-table sheet. I'm specifying to save the full workbook, aren't I?!?
Sub format_bgas_flowtracer() Dim v_excel As Excel.Application Dim v_worksheet As Worksheet Set v_excel = CreateObject("Excel.Application") On Error Resume Next Kill "c:oh_for_gods_sake_JUST_WORK_YOU_STUPID_SODDING_THING.xls" On Error Goto 0 v_excel.Workbooks.OpenText FileName:="D:gas_flowtracker_out.txt", Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, _ ...............
Hello Members, I been trying to save a workbook as the name that will be input into cell B2 and the folder from what is input into cell B6. Without any luck using different codes.
In cell B3 is typed an new name and cell B6 is a list of clients that can be choosen from a selection in a dropdown.
Example, If 250R was input into cell B3 and Honda was selected in cell B6. The new workbook would be placed into the Honda folder with the name 250R.xlsm
To Copy and Save a workbook upon closing the new workbook.
I have written a routine that automatically saves the file to a specified folder as the name of a cell from one of the worksheets. I am trying to use the following code to see if that filename already exists and stop the routine if it does. If I manually enter an existing filename the routine works well, however I cannot get it to recognise the automatically created filename, here is my .....
I've got a workbook that I want to keep intact in a central location on our local network, to make it easier for everybody to access, but don't want people to be able to save changes to the master workbook itself. I'd like to be able to disable the 'Save' feature while still allowing 'SaveAs'. The following code (installed in ThisWorkbook) results in the OPPOSITE of what I'm trying to accomplish (i.e., it allows 'Save' but disables 'SaveAs'):
Private Sub Workbook_BeforeSave(ByVal SaveUI As Boolean, Cancel As Boolean)
If SaveUI Then MsgBox "The 'Save' function for this workbook has " & Chr(10) & "been disabled. Please use 'Save As'.", vbOKOnly + vbInformation, "Save Disabled" Cancel = True End If
End Sub
Obviously I'd also like to check the filename they're performing the 'SaveAs' under and disallow it if it matches the master filename.
I've thought about making the workbook into a template, which would sort of accomplish the same thing, but it would be much easier to just keep it as a workbook.
I have a problem with the attached spreadsheet. I have certain letters (A,B,C etc.) that are shipped to various regions. I would like to have a count on top to count the total number of orders, but one that also counts the total number of unique orders. However, this unique count has to be dynamic and must be able to adjust accordingly to the filters (by default, if no other filters are applied, should be 15). For example, if I apply the "Ship To" filter to Canada, the total number should be 19, but the unique count should be 12. If I change the "Ship To" filter to US, the total number should be 9, and the unique count should be 7. I've tried to use the advanced filters but if I apply the unique entries filter, it is only a one time calculation. Also, the advanced filter gets rid of my other filters.
i have an excel sheet about 160 rows which contains subtotals and filters and the problem is taht when i insert the row in it it's speed will become very slow and i am using only one sheet in this file which contains data it takes about 30 to 40 seconds to get back on its normal speed and also sometimes when i insert data in it the speed problem is happen.
i use this file on two computers and the speed of both the computers is very good but this file showing same speed problem.
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 have to prepare files of over 100 tabs in each. I have a list of numbers on a spreadsheet that must be entered on each tab. Am I making myself clear because I tried to do it manually and it's no joke?
I'm Using Excel 2007 and would like to have some VBA to work with the following!
I have a simple pivot table (PivotTable1) in Sheet1 with three items in the Report Filter which has been named "ROUTE" I have created a ComboBox in Sheet2 and have added the identical three items in via format control, cell link A1.
I would like to be able to use the combobox in sheet2 to operate the PivotTable Report Filter in Sheet1 as I would like to build a report whereas a user. Can only select the comboBox and does not see the pivotTable
Sounds simple but cannot get this to work no matter what I try.
2nd File Location: U:My Work FileName: 333.xls Worksheet Names: Pro _Ser1 Ser1 (A1) value= db Ser1 (B1) value=1
What I want is a master spreadsheet to 'suck up' data from all the Ser sheets within all Workbooks and populate the master spreadsheet with Column A =A1 Values from all the Workbook, Worksheets Column B=B1 Values from all the Workbook, Worksheets
Actually i am going to be mad soon if i cant fnd a solution. I need help on a subject.
i have many sheets, more than 200 in a workbook. Each sheet is eaxctly same format and just the numbers are different.
lets say
sheet 1 A1- Manchester A2- London A3- Leeds
sheet 2 A1 - Istanbul A2 - Ankara A3 - Izmir
I want in sheet3 with a macro, when i put the sheet number in a cell, next cell will show A123. I mean; sheet 3 when i put A1 as "sheet 1" i want the text in A2 written "Machester; london; leeds"
or if A1 is "sheet 2" than A2 should write "Istanbul; Ankara; Izmir"
I have a listbox with 8 columns. Multiselect is enabled, and it must stay this way. As part of my program, after the user presses a command button, I need to use the row indexes of the selected rows in order to copy the selected information into an array which is then placed in a different listbox, and then delete the items from the original list. Pseudocode of what I want to do:
[Code] .....
But my understanding is that .ListIndex does not work this way with multiselect listboxes. I've tried searching for a solution for a while, but I cannot find one.
I've created a chart in sheet 1 in a workbook. I want to copy and paste that chart into another sheet (lets take sheet 2) of the same workbook. I am using Excel 2010 version.
Whenever, I try to copy a graph and want to do "Paste Special as Link picture". The problem I am facing as "Paste Link" option is inactive.
I need to be able to auto fill, on sheet two,cell references for every 26th entry. Below is an example of what I would like it to be able to do with the drag, auto fill.
I am trying to copy a range of valid cells "non-blank" from "sheet_a" ,"sheet_b" ,"sheet_c" to "sheet3" i was successful to copy from one sheet only. how to copy from all the sheets listed from the same workbook.
following is the VBA code i am using
Sub CopySample() Dim shSrc As Worksheet Dim shDst As Worksheet
I have a table which says that this is the amount of coloured cells we have in another sheet.
For e.g.
Field Name Code A Item Description 5
Now, the item description column has 5 cells in another sheet which are filled in with "Yellow" Colour. So what i want to do is to click on this 5 in sheet 2 in this case as per the attached sample which takes me to the filtered result on sheet1 of 5 yellow coloured cells under the column of Item description including an additional filter of Code "A"
I have mananged to find and tweak the following code in order to serve my copy / paste to master sheet requirements.
At the bottom of the code I have added a delete rows based on column contents routine although I'm not sure if it is actually the right one to use.
I have included it in the same module in order to tidy up the whole process and have it all operate under one click.
As stated on the sheet in this exmple, The paste could consist of any number of sheets although the range is always the same on each sheet. (only amounting to around 20 rows that we are dealing with so no reams of data with odd empty rows that would take an age to find otherwise).
The data can look like it does on Sheet 2 here and also could look like it does on sheet 3. (this data is coming from a sales rep's order sheet)
From the routine in module 1, I just don't know where an "add an empty row" or delete all empty rows bar 1" code would need to be inserted in order to keep the process going until all sheets are copied.
I'm aware that with the delete code at the bottom, the whole copy process is completing before the delete process then does it's bit so think I'm on the right track in thinking that the delete all empty rows but leave one" requirements needs to be further up the code but I just don't how to get the result I need or where that code should break into the routine.
The only other way I can think to acheive the result is to allow the range to increase by 1 row on the form but somehow make sure that the last row in the range contains a character in column B to "trick/force" the delete routine to leave that row in. That would be do-able but the trouble is, how do you get a value into a cell that the delete proces would treat as data but not be visible so keeping my spacer line tidy? I've tried just putting a space in the last row of the range in column B but the row still gets deleted.
I have a sheet that has to look up value on a report from a sheet sheet that has more than value. Ex) On the report I have values 123A and 1234A On the data tab I have table that has.
Ref Tot Value Desc Value1 Value2 Value3 1 123A Widgets 1 2 3 2 123A Widgets 4 5 6 Ref Tot Value Desc Value1 Value2 Value3 1 123B Nuts 7 8 9 5 123B Nuts 1 3 5 Ref Tot Value Desc Value1 Value2 Value3 7 1234A Bolts 2 4 6 11 1234A Bolts 3 5 8
So the report need find the values for Value 1, 2, 3 on where the value matches the data tab.
I have 3 pivot tables and with 3 filters each (they are all the same filters). I just want to change 1 of the filters for each of the pivot table (meaning the other 2 stay the same for all of the pivots). Is it possible to have a filter change automatically to match a filter in another pivot?
