With the above code, is it possible to trasfer all selected charts, on to a new spreadsheet and print them to fit on one page Landscape, no margins?? Or is that stretching it, i tried it but i print them all A4
View 2 RepliesI have created a powerpoint that has linked charts from excel. Stupidly, I have saved both of these files (powerpoint and excel) on my desktop.
I need to save them on another drive (so they can be accessed by others) but i am worried that if i move the original excel file, it will break the links for the charts in the powerpoint file....
I have over 150 charts so I don't fancy going through and re-pasting each chart.
I have a Reporting workbook I designed. There is a "Parent" workbook with the following design.
It has 6 Pivot Tables on a Sheet called "Data"
It has 6 Pivot Charts that were created from these tables on a page called "Summary"
These 6 Pivot Charts are all linked through a pair of slicers.
There is a "control" page which has instructions and buttons that trigger "Refresh All" and "Create Child Workbok".
This design is so that someone unfamiliar with excel could conceivably create the final product.
Essentially I have written/put together VBA to Create a new workbook "child" which has should be a funcitoning copy of the "parent".
The problem is the copiedmoved (I have tried both) Pivot Charts no longer update/refresh when the pivot tables change. I have script that reconnects the Pivot Tables to the Slicers. Slicers are fully funcitonal. Links in cells are fully functional.
Some of this code might look familiar.
Code:
Sub createWB()
' Copies VBA modules, Calls
Dim wbNew As Workbook, wbT As Workbook
Set wbT = ActiveWorkbook
On Error Resume Next
Kill ("PATHmod1.bas")
Kill ("PATHmod2.bas")
[code].....
I am tring to make a macro that will find all charts in a worksheet and delete them.
the macro is essentilally a monthly refresh that cleans out a template of charts that were pput in the previous month. As the chart names and the number of charts might vary from month to month I just want simple code to select all charts in the worksheet and delete them.
I am currently completing work for a senior manager who has the tendency to show off to the other seniors about various ideas/spreadsheet programs, usually at the expense of myself, the creator.
Is there a way I can put my name on a particular worksheet, and (even better) any charts that are created using it?
I'm not trying to be spiteful; just trying to get my name known as these things are passed around the whole company.
I need a macro to create the following worksheets and charts from an Excel data set:
Three (3) worksheets (already created manually in attached Excel file):
1. Chart Data.
(a) Column A in Chart Data is always numbered 1 - 600 (50 years x 12 mos/yr).
(b) Column I and column Y data sets (from Prod_Month) created in Chart Data. Each data set can be identified and collated with column F in Prod_Month (API) which is unique for each dataset.
2. Rate vs. Month - plot of Daily Gas (col. Y in Prod_Month) vs. Months (col. A in Chart Data).
3. Rate vs. Time - plot of Daily Gas (col. Y in Prod_Month) vs. Calender Time (col. B et. al. in Chart Data)
At a minimum, could someone help me create the Chart Data worksheet from the data in PROD_MONTH? Charting all the columns takes time from Chart Data but any data manipulation macro(s) help.
I am working on a huge amount of data and want to analyse that data through charts because charts are quick representation of the data and save a lot of time. I got some code from my friend, to read each row in a worksheet and plotted the corresponding chart on the new worksheet each time i.e., each row has one chart which is plotted on new worksheet each time.
But I don't want it to plot the chart on the new worksheet. I want it to plot the chart on the same worksheet. In my case there are always more than 30 rows, so it should draw 30 charts on the same worksheet in which 30 rows are written.
Here is the code which plots charts on the multiple sheets
Code:
Sub LineCharts()
Dim Ws As Worksheet
Dim NewWs As Worksheet
Dim cht As Chart
Dim LastRow As Long
Dim CurrRow As Long
Set Ws = ThisWorkbook.Worksheets("Sheet3")
LastRow = Ws.Range("A65536").End(xlUp).Row
[Code] ....
Does anyone know why, when I copy a Worksheet (right click Worksheet > Move or Copy > Create a copy), Excel occasionally fails to copy across the embedded objects contained within the Worksheet (e.g. Charts, Command Buttons, etc.)?
This is very frustrating, and I'm wondering whether it's the way my Worksheet is configured, or whether this is a known bug.
I have a spreadsheet with multiple pivot tables and graphs. Is there a way to add a scrollbar on one sheet so that when you scroll through it, it will display(one by one) each graph that I created with the pivot table(s) so that they're all on one page(still dynamic) as opposed to them being on multiple worksheets
View 2 Replies View RelatedI have a Excel workbook with two sheets - 'MainDataSheet' and 'ArchiveSheet' .
The 'MainDataSheet' has 5 columns and one of the column is 'status'.
The 'MainDataSheet' will have a command button 'MoveData' which will trigger the VBA macro to move data rows from 'MainDataSheet' to 'ArchiveSheet' . Only the rows having value set to "MOVE" in the 'status' column have to be moved.
My DB is in table format . I use this table as source data for 2 barcharts and 1 pie chart.Following are my table headers
Costs|exp heads|Month1|Month2|...|Month n|Spark lines|Average
When i add a month coloumn,Sparklines and Average coloumn should get updated automaticaly.Now this is not happening even if the data is in table format.I also want the graphs to be automaticaly updated.
Move a row of work to resolved tab once column M is changed to resolved This needs to be moved to the first available line on the resolve tab The row that has just been moved from the orginating agents tab needs to be deleted and shifted up When moved to the resolved tab I want it to prepopulate where the row originated from in column N When moved to resolved tab I want it to prepopulate the date it was resolved Also the spreadsheet will be shared
I have attached a test version of the spreadsheet.
I have whats going to be a very large "Input" worksheet that has several headings of columns. One of these columns is "category" as in parts of a vehicle, i.e. steering, wheels, rod-ends and so on. Now what I would like to do, is once I type a new row of information in, to have the filter go through and copy said category row into another worksheet where I can have all of them separated on there own.
Here is a picture of my current spreadsheet. So basically I want to be able once I save the file, that it goes through and where it detects Rear-End in "B18" I would like it to select row 18, copy all of its cells and move them into the worksheet Rear-End
I created a outstanding task worksheet in excel and I would like to move the completed jobs from this sheet to the second worksheet titled 'Completed Tasks'. The first worksheet is called 'Outstanding Tasks'.
I came up with a code to do this (see below). As you can see when I type "Y" into column G it moves the row into the second worksheet. It does this; however it puts it to the bottom of the table on the second worksheet where I would like it to be at the top. I also would like it to delete the row once it has moved it does this but then deletes the other row of information above it leaving blank rows on either side.
I simply want a code that moves the row of information to the second worksheet when I type Y into column G and then delete the row without messing with other information around it.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim rng As Range
Set rng = Target.Parent.Range("G5:G1000")
If Target.Count > 1 Then Exit Sub
If Intersect(Target, rng) Is Nothing Then Exit Sub
Select Case Target.Text
Case "Y"
Target.EntireRow.Cut Sheets("Completed Tasks").Cells(Rows.Count, "A").End(xlUp).Offset(1)
Selection.ListObject.ListRows(1).Delete
End Select
End Sub
I have a workbook with two worksheets in it. The first "TO DO" and the second "Completed". In "TO DO", I have rows of tasks starting in row 4 (row 3 is my header), going to 200. What I'd like to have happen is when I put a "C" in column C, it moves the entire row to the "Completed" worksheet, greys it out and removes it from the "TO DO" worksheet. Then if I remove the "C" from the "Completed" worksheet, it moves it back to the bottom of the list. I already have a macro to resort it based on "priority" in column E.
View 9 Replies View Relatedi need to get certain info from one worksheet to another is there any way to do this automatically
View 9 Replies View Relatedi have this at the moment:
in a sheet named CURRENT is all our data.
when the jobs done the Satus Column "F" is changed to INVOICE
and then once a day or whenever they are all moved to a new sheet named the month and year, in this case JUN 09 this works fine as it is but at the moment i have to delete the lines myself from where it took the data from in CURRENT or AtoZ then remove them in 1 go.
Simply put, i want the code to remove these lines itself....
I have a set of worksheets that need to be moved to their own individual master sheets. i.e. FW32Lightning.csv needs to be moved to Lightning.xls which has all of the fiscal weeks in it as seperate. I know the generic way of doing this, but I need to know how do I write the macro that when I run it every week I don't have to go in and change the fiscal week.
View 5 Replies View RelatedI've included bits of my code and some debug output. Whenever I attempt to add a worksheet, either BEFORE or AFTER I get the following ERROR MESSAGE: Method 'Add' of object 'Sheets' Failed. if I use the .add without before and after a worksheet is added. The problem is that it is always added before the active sheet. I need to replace a single sheet in the correct position of possible 10 sheets. I know the names of the sheets and which one I want to replace, but I can't get EXCEL to move sheets, add sheets by position Number or name, without getting the ERROR.
Public xlApp As Excel.Application
Public xlBook As Excel.Workbook
Public xlSheet As Excel.Worksheet
Public xlRange As Excel.Range
.....
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
....
xlBook.Worksheets.Add After:="Accounts Receivable" *****
?xlsheet.Name
Accounts Receivable
?xlbook.Worksheets.Count
4
?xlbook.Worksheets(4).name
Accounts Receivable
How can I move data from one worksheet and place in another worksheet in the appropriate column? I exported data from Access to Excel in order but I need to group the data in excel.
View 3 Replies View RelatedI have a workbook with multiple sheets. I need to create a macro and associate it with a command button that will cut the row the user has selected and paste it into the last empty row on another sheet in the same workbook, then, go back to the first sheet and delete the empty row.
View 3 Replies View RelatedIF formula to transfer specific text and values from sheet 1 to sheet 2 (please refer to attachment). Sheet 2 should display the name, state and unprocessed rate for each month for individuals with a rate of 95% and 30 or more unprocessed files.
Unprocessed Files.xlsx
I would like to move the current row of data to another sheet when I change a value in the row from an x to an s. I think I could use an If statement, but if you can move data from one worksheet to another, I don't know the syntax to use.
View 9 Replies View RelatedI have some code that unhides the next worksheet when the value 'next' is selected at the bottom of the sheet being completed.
I would like to add some code so that the new sheet is opened and the curser is placed in the first cell that needs to be completed (E5).
I have "inherited" an Excel workbook from someone that is really unwieldy in presentation and difficult to read. I want to break it down and reorder some of the tables and information. To do this I need to copy/ cut parts of different sheets into others. When I do this, I'm finding that I get reference errors even though the source documents are the same.
View 3 Replies View Relatedhow to write the following in a macro. The task is to have the macro compare both the SSN, amount, and date...if they match go to next row. If Mysoft side exists without a match on the OMNI side, then range for that A-D will be cut and moved to Mysoft Only worksheet and the cells below will be moved up....same holds true for the OMNI side.
I currently have this code here that DELETES duplicate rows in the "Customer Number" column..
How can I modify this code to instead take any 2nd, 3rd, 4th, etc occurrence of a duplicate row and move it to a new worksheet named "Duplicates" and ALSO KEEP THE HEADER ROW?
I need to be able to copy a worksheet from my ActiveWorkbook into a new workbook and save that new workbook. No problem doing that, the following code does it:
Code:
Dim wb As Workbook
Worksheets("Alpha").Copy
Set wb = ActiveWorkbook
wb.SaveAs "Master.xls"
wb.Close
Where I am running into the problem is I am needing to copy the 2nd worksheet form about 10 different workbooks into this same workbook.
I need a code that will allow me to move data from a worksheet to a worksheet from which I came from. e.g. worksheet "Sheet 6" opens "Sheet 10", then after filling data in "Sheet 10" I need to move this data back to "Sheet 6" in the cells in range "F12 to F56". Please note that the data in "Sheet 10" is in the same range as in "Sheet 6"
View 1 Replies View RelatedI have two basic questions regarding the Excel program/UI
I'm currently using Excel 2000, One annoying thing I find with this version is the way the screen doesn't follow along with my scrolling. ie: when I use the vertical scroll bar on the main window, it only updates once I release... not like a typical window which follows the movements of the scroll curser. Is this typical for later versions?
I would update this program just for this feature alone!
Also, a final question.... Does anyone know if there are any plans to update the handheld (pocket pc) version of Excel? The factory installed program is incredibly limited.