Auto Size To PPt Paste Macro
Aug 27, 2009
I have a working macro where I use a Forms Command Button w/ a Macro that copy/paste specific variables and range in the workbook to a pre-defined PowerPoint template file (in the same directory as the workbook file). See code below: Questions:
1) Is there a better script to reference a value in a cell value in Excel and Paste in PPT template?
2) Is there away to auto scale the copy range from Excel to PPt? Curently I have to manually adjust the height/width parameters.
View 3 Replies
ADVERTISEMENT
May 27, 2014
I have the following code:
[Code] ....
When I run the macro, some columns are already hidden. The macro doesn't seem to autosize cells correctly. For instance, one cell in a row appears to have some contents hidden (or below the reading area of the cell). In other instances, the rows are auto-size to huge heights and widths.
View 7 Replies
View Related
May 9, 2014
I'm using Excel 2013 on Windows 7.
I have an Excel file which has a macro that sucks in data from a number of separate files (two Excel, a varying number of csv). The macro grabs all the individual files and loads them into one of three worksheets with some formatting, sorting, and structuring on the way. All good so far.
I then need to take two of the worksheets and copy them to a new Workbook which I can send out to some users. So I use the Workbooks.Add method, and use the Selection.Copy on just the data (UsedRange.Rows/Columns.Count to ensure it is only the data) and Selection.PasteSpecial with the xlPasteColumnWidths, xlPasteValues, and xlPasteFormats options to copy the data over. None of the data is filtered. Just straight data.
I would expect the newly added workbook to be smaller than the one with the macros because the one with the macros has two extra sheets that I don't transfer, and the sheets I do transfer are identical.
And that's where it gets weird. The file with the macros and more data is 18.7Mb, but the new one with only two sheets is 24.8Mb. One is .xlsm and the other is .xlsx (because it has no macros).
I've tried opening the new workbook and saving as .xlsm (no material difference to the size) and as .xls (it got even bigger). I've opened the new workbook, gone to the end of the data and deleted all the blank rows and columns, but no effect (because the rows are already empty).
Why would the file with less in it be so much bigger (or bigger at all)?
View 2 Replies
View Related
Jun 11, 2014
I am running a auto filter macro to I need to change it to only copy column A:B and past in column C:D in the sheet called "Diary". How to change my current macro to only select column A:B and paste it. It is currently pasting the entire row.
Here is the part of my code:
[Code] .....
View 1 Replies
View Related
May 30, 2014
I am trying to auto size cells depending on the lenght of the data in them. I have added some code in the work book on the attached file, this works on cell that i maunally add data to any where on the active page (template) but the cells that are auto updated with currencey data dont expand?
If you double click column H a list appears select a test and this auto populates the charges accociated with it
Is there a way to do this as it just fills with #### ???
The code in this workbook is below
[code]
Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Range)
Dim actCol, curCol
[Code]....
View 2 Replies
View Related
Jul 30, 2007
Need a bit of help with a dynamic column resize.
This is the scene. Imagine 2 lists of data, each list 2 columns wide (like 2 lists of names and phone numbers). List 1 covers column A and B, List 2 covers column D and E. I want it so that on the push of a button, columns A-E are automatically resized to be just big enough for their longest content, and column C resizes so that column D is on the next page.
The general idea is that you can print the sheet, and put together the pages relating to the seperate lists.
View 9 Replies
View Related
Jun 14, 2008
I have created a dynamic chart in excel where either the number of Series or the number of Data Points will change dependent on user inputs in the model. I've done this using the Offset Function in a Defined Name in Excel and dropped this Defined Name into vba code using ActiveChart.SetSourceData.
Anyway, all works fine, pulling the correct data, etc. What doesn't work is the final appearence of the chart. The chart has a Legend placed at the bottom of the chart, as standard, unless there is only one Series, when I remove the legend altogether. Whilst the legend works fine, the Plot Area of the chart doesn't update automatically to accomodate the changing size / existence of the Legend. Does anybody know how to do this? I tried using hieght, etc properties, but I don't know how to make them variable
View 4 Replies
View Related
Mar 29, 2009
I'm using 2003.
1. Copy cells B5 to V-First blank row in Strength Tests worksheet
2. Paste cells into Racks worksheet in cell C5
3. Change font size to 6
4. Sort by Column T descending then by Column C ascending
5. Copy one row (A5-W5 (1Rx23C)) from Racks worksheet
6. Paste row into M1 worksheet in cell D4
7. Print M1
8. Drop down one row on the Racks worksheet
9. Repeat steps 5-8 until there's a blank row.
View 9 Replies
View Related
Dec 11, 2008
I have a user form on which I need to create a textbox every time the user clicks a button. There are too many to create them all in advance and make them visible when needed. The sample attached, from this forum, is good, except, the numbers in the text box just scroll along and I need to see all the text typed into my textboxes. I would like the textboxes to be multiline, wordwrap and have them resize according to the amount of text.
View 6 Replies
View Related
Jun 25, 2006
What I am trying to do is to give the user the ability to insert a photo and have it autosize into a range of cells--so far I can only get it to work with a single cell and a predefined file. Can this be refined so that rng references a group of cells and pic somehow lets the user input a file name or pick its name and location?
Sub test()
On Error Resume Next
Set pic = ActiveSheet.Pictures.Insert("C:
ange.gif")
On Error Goto 0
If Not pic Is Nothing Then 'Found it!'
Set rng = ActiveCell
With pic
.Height = rng.Height
.Width = rng.Width
.Left = rng.Left
.Top = rng.Top
End With
End If
End Sub
View 3 Replies
View Related
Jan 16, 2009
I'm trying to copy large amounts of data yet excel keeps posting the error message,
View 3 Replies
View Related
Apr 16, 2013
I frequently have to copy information from one excel sheet and paste it into another. But when I do this the formatting doesn't carry over. So I have to go to each individual cell that I pasted into and adjust the size of it. How do I copy and paste so that the formatting/cell size is preserved?
View 4 Replies
View Related
Jun 26, 2014
I'm trying to paste the column that my code found into the blank cell C18, which may change in the future, but I got an error that I need to select the cell to paste the column to - I'm not getting the code right. Here's what I've tried:
For Each Cell In Sheets("Total Sell Dollars").Range("1:1")
If Cell.Value Like "2014*" Then
BlankRow = Sheets("Total Sell Dollars").Range("C" & Rows.Count).End(xlUp)
Cell.EntireColumn.Copy Sheets("Total Sell Dollars").Cells(BlankRow + 1).Select.Paste
Sheets("Total Sell Dollars").Select
End If
Next
When I run this:
Cell.EntireColumn.Copy Sheets("Total Sell Dollars").Cells(BlankRow + 1).Select.Paste
line gets highlighted and it says:
"Run Time error '424': Object Required"
This is the code that I tried when I got the paste error:
Cell.EntireColumn.Copy Sheets("Total Sell Dollars").Cells(BlankRow + 1)
and the error was: Run-time error '1004'
We can't paste because the Copy area and paste area aren't the same size.
Try one of the following:
Click one cell, then paste.
Select a rectangle that's the same size, then paste.
Once I paste the column that excel found, I want to go to the next column and paste the found column into the cell C19 - which may change in the future and so on until all the found columns with 2014 in them are pasted.
View 9 Replies
View Related
Oct 18, 2013
I have been working on a macro that compares a existing list of data to an updated list of data and then either moves any data not on the new list over to a completed tab (followed by deleting the record on the existing sheet), and then adds any items not on the existing sheet, but which appear on the new list, to the existing list.
I have come across a stumbling block, i have managed to identify on the existing list the rows of data that have been removed from the new list and therefore need to be moved over to the completed tab, but when i select the data it selects the header row aswell (which will always remain the same row). Obviously this then pastes the header row aswell, and also i can't seem to get it to paste in the new sheet to the next available row (i.e this will be used daily and i don't won't to overwrite the infor already in the completed tab). the next issue i have is then when i go back to existing sheet to delete the data i just copied across, as the header was initially select this also gets deleted.
The code below, is the complete code, including filtering, copying some forumals etc. The area i am getting stuck on is highlighted in red:
Sub Update()
Dim bottomrow As Long
Dim My_Range As Range
bottomrow = Cells(Rows.Count, "C").End(xlUp).Row
Set My_Range = Range("A1:Y" & bottomrow)
[Code] .....
View 6 Replies
View Related
Mar 3, 2008
I have the following code that let's the user choose and " import" data to an existing sheet. It works well up until now. The problem is that the three ranges that I am trying to copy the data from on workbook to another has changed size. In previous version of my workbooks the range was two columns by 10 rows. Now, it is 1 column by 10 rows. So, when I run this macro it doesn't work because the two ranges are different. Is there any way to:
1) Only copy over one of the rows of a range thus making the macro run?
2) Do not run that part of the macro if there is an error?
Thanks so much for reading this long-winded description but the error is a big problem
Private Sub CommandButton1_Click()
Import_Data_Form.Hide
Run "UnProtectAll"
Set b = Selection
ad = b.Address
' Local Variables
Dim wkbDataFile As Workbook
View 4 Replies
View Related
Apr 12, 2007
I am using the following macro to creat comments based on the contents of certain cells. Everything works except the it resizes the Comment Boxes exponentially. The Last comment box in the range seems to be the default size, the next to last a little bigger, then it start getting even larger and larger until the first comment in the colomn.
Sub InsertComm()
Dim RgPartnumb As Range
Dim NRg As Range
Set RgPartnumb = Range(Range("B2"), Range("B2").End(xlDown))
On Error Resume Next
For Each NRg In RgPartnumb
With NRg
.Comment.Delete...................................
View 9 Replies
View Related
Dec 9, 2013
I am trying to create a macro to automatically copy and paste values from column M into column N.
Column M is a Concatenated formula, and I want people to be able to copy the result easily without having to do any copy+"paste values" themselves.
So I have the following:
Sub CopyFormulaResults()
Application.OnTime Now() + TimeValue("00:00:01"), "CopyFormulaResults"
Range("M3:M1000").Select
[Code]....
However, the macro only runs when I run the macro, not automatically every second like I want it too.
View 9 Replies
View Related
Sep 28, 2009
Is it possible to disable the auto filling, when copy/pasting formulas?
I have a range of formulas, which I want to copy/paste, and I want the pasted formulas to be the exact same as the copied.
Is this possible? I would prefer not having to use $ on all formulas.
View 7 Replies
View Related
Aug 26, 2008
I'm running Excel 2003 and I have a workbook with an Auto List in Column G. When I attempt to paste a row of data I get the following message.
The operation is not allowed. the operation is attempting to shift cells in a list on your worksheet.
To work around this, I have to convert the list to a range, copy the data and then reapply the Auto List.
Is there another way to work around this or will I have to create vba code or record a macro?
View 14 Replies
View Related
Feb 12, 2009
If I run macro, the xls size will increaze from 80 kilo to 2.4 mega!
I don't want that because I need the size of the xls maximum 200 kilo!
open attached file, check file size (80 kilo) run the macro and you will see that the macro size will be 2.4 mega.
This is the
View 14 Replies
View Related
Jan 14, 2010
I have a workbook that grows in size on every use. I import a text file, manipulate the data, manually export it and delete the data from the workbook.
So why does it continue to grow in size? By manipulating I mean, add rows and text to the new rows. Attached is a copy of the workbook in native form (have not ran the macro) and a sample file to import, the excel file is 59kb in size and the test file is 9kb in size. I have seen my original file grow to over 500kb from repeating the same macro on the same file many times or running many different files for testing.
There is a CommandButton on Sheet1, it will open a userform. Click in the largest textbox and it will open a file dialog box in "C:". Place the supplied text file in "C:" or some other folder of your choice as you can navigate to any folder or drive from the dialog box. The macros that add lines and or text are "JumpToLabelName" (this runs first) and "InsertRows" which runs second. These two macros do all the work.
Take note:
I store information in the Registry, "GeoMeasure" under "VB and VBA Program Settings" (Normal windows key entry). You can search for "GeoMeasure" and delete it if you decide to test run the file.
View 5 Replies
View Related
Dec 18, 2007
I have an excel file that is about 1,400 kB in size. This file is the backend for a complex model with many inputs, and I now want to build a front end for it using userforms and VBA. However, when i created the first userform, my excel filesize blew out to about 7,000 kB. When I added all of my userforms (about 16 of them because there are lots of inputs, organised into categories), the filesize grew to 77,000 kB.
I have tried everything to reduce file size, including clearing all unused cells, avoiding pivot tables of any sort, and have also exported then re-imported all of my VBA modules and userforms. But the situtation stays the same: no userforms or VBA and my filesize is about 1,400kB, add in all the userforms, and filesize is 77,000 kB. Is there a way to keep file size down with userforms, or is that just the way it is? Is the only way to keep file size down to have a single userform, all questions on that one form, perhaps with visible and invisible controls depending on the 'page' of questions being viewed?
View 7 Replies
View Related
Jun 25, 2009
I have a workbook with a number of worksheets which is used to produce the information for an estimate.
I then copy and paste different cells or group of cells into a word document to send to the customer.
Is there a Macro which could do this automatically
View 5 Replies
View Related
Aug 17, 2009
adjust the following code so that my images are just a bit lower than "top aligned"? The code centers my images perfectly within the cells, but when you top align an image, it's just a hair too high and border formatting does not come out.
View 2 Replies
View Related
Mar 21, 2012
I've a workbook with a couple of worksheets in it, where one worksheet has a column of data where I want to link the data into a row on another worksheet, however I'm having challenges and really can't work it out.
I can drag the formula as it just copies to a row - I've tried transposing it but it goes to totally different cells which I don't know why.
View 6 Replies
View Related
Jun 18, 2008
I have the following code that copies only the visible cells in an auto filter...how could I modify this code to paste only the values and not the format?
.Range("a:a").AutoFilter Field:=1, Criteria1:="True"
.Range("b:d,g:r").SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("Monthly Hours").Range("A1")
View 9 Replies
View Related
Nov 18, 2007
I am looking for a macro that will copy the text-based contents of a random cell in the range B100:B135 to a callout text box. The name of the callout is Autoshape 13. The callout should be cleared before pasting the contents of the next random cell into it. This macro will be assigned to a button.
View 5 Replies
View Related
Mar 23, 2009
Please see attached two books,
The first book is a report that is generated on my reporting systeM (Report I use everyday)
The second report is the one that I have created myself using a macro (macro report)
I have to manually manipulate this report everyday and extract some information from it to
a custom report(macro report) that we use everyday.
I have created a macro for this - please see my code below.
I need some help with some small issues I am having,(Highlighted in yellow)
1) I need to include a Total line, but the size of the report varies everyday from say
around 30 rows to over a 100 rows. Is there a way i can make the total always 2 rows below
the report, please see attached for an example.
2) I need to hardcord a formula in on Column F and G. But again the report varies in size,
the columns do not change but there could be lots more rows. how do i take this into
account
The formula i need to hard code into column F is
=(IF(($D$60>=0)*AND($D$60<=5000000),0.0009))+IF(($D$60<=10000000)*AND($D$60>5000000),0.0007
)+IF($D$60>10000000,0.0005)
D60 in the above formula is just the total of all the other months summed together.
For Column E the formula is just =F*E But again the size in the report varies.
View 13 Replies
View Related
Sep 9, 2012
I have a macro-enabled workbook, in sheet1 i have two columns Country and Codes, they are in column C and D respectively. I used vlookup formula in generating the codes of the countries pasted in column C, they are being looked-up in sheet2 in column C and D as well. I already have 100000+ rows in sheet 2 under column C and D that's why the file is now heavy. Is it possible to encode column C and D in sheet 2 but still can be looked-up? or is there any other way to minimize the file size.
View 7 Replies
View Related
Jul 7, 2014
I have this macro that works perfectly. My boss wanted the subtotal lines within the report to be in a smaller font, so I added lines to the macro to do that. It won't work with those lines in there! It says the reference is not valid on the red line in the code below. The 2 blue sections are the ones I added to change the font size.
Code:
'Add subtotals at the end of each age bucket
For i = 10 To LR Step 1
fr = Range("E" & i - 3).End(xlUp).Row
If Range("B" & i).Value = "Totals" Then
Range("E" & i).Formula = "=SUBTOTAL(9,E" & fr & ":E" & i - 2 & ")"
With Range("E" & i & ":R" & i).FillRight
[code].....
Why would the font size make a difference? Is there some other way to change the font size that would work better?
View 5 Replies
View Related
