Excel 2007 :: Resize - Offset And / Or Copy Destination
Jan 29, 2014
I have a NAMED RANGE of data consisting of 4 columns and as many rows as is selected. Name it CompTable1.
I loop through all of the 4 columns of data to format it (as shown below). This snippet is for column 1 of CompTable1 (a public variable as string) and I basically have the same situation for each column of 4 but replacing each respective x in cells.(n,X) & offset(0,-x) to take into account of where I wish the data to go as I loop through. Ultimately 4 (For Next) loops.
[Code] ......
The new range with 5 columns is as follows:
Column 1 from CompTable1 = Column 1 of new range
Column 2 of new range is blank for something later
Column 2 from CompTable1 = Column 3 of new range
Column 3 from CompTable1 = Column 4 of new range
Column 4 from CompTable1 is not used in the new range but is formatted
Column 5 of new range is blank for something later
This certainly works very well and with my amateur VBA status am quite proud of how far I have come in a few months. Is it efficient? Is it free of possible errors? Likely not. I wish to rid myself of the "Select" each cell plaque though maybe using a resize, offset or copy destination operation but can't seem to get it working. Once I do get the data in the new range, I format everything without selecting quite well with my methods described above.
View 1 Replies
ADVERTISEMENT
Nov 26, 2013
I've prepared an excel file (excel 2007) with some tabs that contains several charts (4 to 6 charts). When I want to print this file, the sheets with the charts on it doesn't print properly. I have set the print area to cover the charts only and then set it to fit on 1 page but the charts will not scale to fit.
I read somewhere that this is an excel bug - is there a workaround for this?
I could resize all my charts smaller but only as a last resort.
View 1 Replies
View Related
Feb 14, 2012
So far my VBA will copy my range of cells in Excel and paste them into Powerpoint but I'm totally stuck as to how to resize the image from there. I've tried a bunch of different methods and I get some pretty crazy results but can't seem to punch through to a solution. What I'd like it to do, at the end of the VBA is:
Set the lock aspect ratio to false
Set the Height to 5.5"
Set the Width to 9.83"
Set the horizontal position to .08 from Top Left
Set the Vertical position to .58 from Top Left
I cannot seem to get my save as portion to work at all. I commented it out at the bottom. This is all in Excel and PPT 2007.
Here is what I have so far:
Sub Export_Excel_to_PowerPoint()
Dim ppApp As PowerPoint.Application
Dim ppSlide As PowerPoint.Slide
On Error Resume Next
Set ppApp = GetObject(, "PowerPoint.Application")
On Error GoTo 0
[Code]...
Ultimately the behavior I'm looking for with this macro is to copy a filtered range of cells from Excel and paste it as a picture into Powerpoint (up til this point I'm golden) then resize the image on the slide, save the presentation, then exit PPT.
View 1 Replies
View Related
Feb 20, 2012
I'm using Excel 2007 and I am taking the contents of various user entered cells and creating drawing textboxes to display this data using VBA. How would I get VBA to resize the width of the textbox so that the text is displayed correctly in the textbox i.e. there will be variable lengths of text in the cells so I currenly can read the full contents?
View 4 Replies
View Related
Feb 21, 2014
I trying to out together a small script which performs the following:
-Select cell B7 and offset this by 12 columns and one row
-Resize this by 14 columns, then
-Apply the font format to the selected range from the first to the last row
The code below is what I've put together so far, and although this runs without issue, it's not applying the formatting.
[Code] .......
View 14 Replies
View Related
Jan 11, 2010
I have 3 workbooks, the first one contains the data and the second is the “Table1” containing "Normal records" and the third is the “Table 2” containing only "900 Records". Tables 1 and 2 will be linked to Access…..
Here’s my issue….
From workbook 1, I would like to copy data from certain cells that contain data to Table 1
From workbook 1, I would like to copy data from certain cells that contain 900 service records data to Table 2
In workbook 1, I have identified which information i want to keep by using the following formula,
View 14 Replies
View Related
May 23, 2014
I have an excel which creates PPT from the excel. but the graph pasted in PPT are not aligned and formatted.
By aligned, i mean re-size the graph and paste in a formatted fashion (currently they are overlapping each other)
My entire PPT created is off alignment and formatting. E.g heading are not properly aligned (they are touching the line below) and so on.
View 1 Replies
View Related
Mar 6, 2013
I created a data validation formula for an Excel 2010 workbook that would only display client names who were assigned to the manager that they selected. The formula works fine in Excel 2010. However, when I open the same workbook in Excel 2007, the data validation type is reset to "Any value" and the formula is missing.
OFFSET is an available command in both 2007 and 2010. When I try to add the formula as a data validation list in 2007, an error indicates that Offset cannot access data in a different table. I have not been able to find any documentation which restricts the OFFSET command in Excel 2007 but there seems to be some incompatibility between the two Excel versions.
The formula I used was:
=OFFSET(Clients!$A$1,MATCH(Summary!$A$1,Clients!$A:$A,0)-1,1,COUNTIF(Clients!$A:$A,Summary!$A$1),1)
Where:
"Clients" is a sheet which lists all clients under each manager."Summary" is a separate sheet which contains the manager's name. Only clients matching this name will be available in the employee's client list.There are 50 "employee" sheets, each which should use this formula for data validation in the client column.
The error we received seemed to indicate that the above command could not access data on another worksheet. It is not an option for me to copy the client list onto each sheet that uses this formula. Are there any other options?
View 1 Replies
View Related
Jul 29, 2014
Sample data
2014
2013
2012
Country A
2%
3%
Country B
5%
6%
7%
[code].....
Now, whenever I type in any country it should show me the most recent figure available for that country.
Suppose, if I type Country A in, say cell A14, then it should give me output 2% in cell, say A15. When I change that same cell to country C, it should give me output 10%, country B should give me output 5%.
Currently I have used IF and multiple/nested VLOOKUPs to arrive at this output. Is there any better way to do this with VLOOKUP and OFFSET?
I am using Excel 2007.
View 3 Replies
View Related
Jun 2, 2014
I've created a search box for a price list, but some of the values come up with #REF. After many attempts I noticed that each of the formulas I created on the price list page came up with a different result for the values highlighted in each column. The formula is the same for each column, the column numbers being the
only difference - for instance:
Column A = code - the formula is =OFFSET(Pricelist!$A$3,0,0,COUNTA(Pricelist!$A:$A)-1).
Column D = colour - the formula is the same, but reads $D$3 and $D:$D.
When I go to Name Manager and check this formula, it only selects the first 105 entries in the column. There are about 380 entries and more may be added at various stages.
I have formulas for five other columns and they do exactly the same thing, but each column stops at a different entry. I'm working in Excel 2007, but it's a 2003 document.
View 1 Replies
View Related
Mar 2, 2008
I tried searching for code for each part of the task separately and trying to piece together multiple macros, that did something similar, but I’m not have a lot of luck, so I’ll break it down into two treads, I hope this will follow the rule of one question per post, but if I should have separated this request even farther as two treads, please let me know and I’ll be happy to comply.
I was given a spread sheet with a macro that loads data from a SQL Data base (not mine), it returns anywhere from one row to 100’s of rows data. Since it’s not my spread sheet and macro, I copied this sheet to my destination workbook. The Data loads in 7 columns starting in B4:H4, with the column headings titles: Acct#, Id#, Name, Qtr1 Totals, Qtr2 Totals, Qtr3 Totals, and Qtr4 Totals. Data cells in spreadsheet not formatted (general)
What I’m trying to do:
part 1:
I need a macro to copy the data only for columns Id# thru Qtr4 Totals (C5:H5 down thru the last row with data) to another sheet. The destination sheet range starts with rows B13:G13, with formulas below and to the right in columns H13, and J13:N13
(column I is blank).
The formulas below the range are a subtotal of the copied columns (D:G). They could be remove and totaled after they’re copied, so there's nothing below the copied range? Since I need the column totals as a subtotals, my thought was to have the row heading and formulas already on the destinations sheet and just insert a blank rows between as each row was copied?
part 2:
As each row of data is copied from the source sheet, I need the macro to copy the formulas to the right of the copied range (H13, and J13:N13) on the destination sheet down for each new row of data copied from the source sheet
View 10 Replies
View Related
Apr 14, 2013
I want to fill all a column bottom-up but without specify cells in format "A1500:A2" like
VB:
Range("H1578").Select
Selection.AutoFill Destination:=Range("H2:H1578")
{H1578 have a formula so...}
I have data in the first 7 columns, with a variable(Range) for the first 5 columns
VB:
Dim oRange As Range
Set oRange = ActiveSheet.Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(89, 4))
{The first cell in it is A1}
My question is : How to fill Range("H2:H1578") using my ''oRange'' variable?
I try with OffSet but my code didn't work. I need to do the same with the 6 columns to the right and then plot in a chart.
View 4 Replies
View Related
Oct 17, 2008
I am attempting to create a macro that opens a file named "shrinkage-billing.xls", searches for a variable "PTOSH" in column A, copies the adjacent cell and pastes the data in another worksheet named "Shrinkage Report 2009.xls"
The code follows ...
View 8 Replies
View Related
Apr 20, 2012
Since you can copy to someplace with one line of code like this:
Sheets(1).Range("A1:Z5000").Copy Destination:=Sheets(2).Range("A1")
is there any way of doing this with formatting, or are things like paste special features only possible by selecting something?
Ie: Values, column widths, formats, etc. Does the copy destination argument only allow simple copying?
View 2 Replies
View Related
May 1, 2012
Is there any way to use the formula below and send only the values?
FY07.Copy Destination:=Sheets("Age Roll Up").Range("A1")
I know that I can copy and paste special, but was wondering if I could tweak the above line in any way to?
View 7 Replies
View Related
Feb 14, 2008
I have the following code to copy a range to another destination. I would like only the value to go to the destination. How to implement this?
Set rngtocopy = Nothing
On Error Resume Next
Set rngtocopy = Range(rngdata(2, 9), rngdata(lngrows - 2, 9)).SpecialCells(xlCellTypeVisible)
On Error Goto 0
If Not rngtocopy Is Nothing Then
rngtocopy.Copy Destination:=Cells(5, 14 + cc + (t - 1) * 3 + (i - 1) * 17)
View 3 Replies
View Related
Dec 10, 2009
I am sure this is simple but cant get me head around it (tried paste & paste link).. I am wanting to copy formulas in file (A) to file (B) with data source linked in the file (A).
i want is when i copy the formulas to file (B) sheet 2 and it should retain the original path say H:excelfile A[sheet1]$G$1+....xls and source from which the data is being used.
View 7 Replies
View Related
Oct 1, 2009
ws5 and ws7 are defined and working due to other parts of the code already using them. ive copied the syntax from some of my other copy destination codes the only difference here is instead of ("A2:J10") ive got "(Cells(2,1):Cells(iRow, 10)" as the row number for this is variable, and it is calculating the correct value for iRow and iRow2. its probably something stupid im missing but i cant figure it.
View 7 Replies
View Related
Sep 14, 2009
I'm trying to copy a picture from one Worksheet to another and then resize it, when i select the picture after pasting it into the other worksheet i use the code ActiveSheet.Shapes("Picture 6").Select, the problem here is that i don't know the name of the picture because i use a loop that copys alot of pictures.
View 3 Replies
View Related
Apr 5, 2012
I have made no changes to Excel 2007, but suddenly when I attempt to copy a formula (e4=c4+d4) to a new cell, the result in the new cell is the value from the copied cell (and not a relative copy of the formula). I have checked the Calculation Options and it is set to Automatic. This is an existing spreadsheet that I have used for years. I also tried to copy a formula in a newly created spreadsheet and get the same result.
View 1 Replies
View Related
Oct 2, 2013
I want to copy the header from a previous months report and paste it to a new workbook in Excel 2007. How can I write a macro to copy from a1 to g2, keep the same column width and all formatting, then open a new workbook (trouble now in that I previously selected book1 for the new one but this could chnage), and then paste this to the new workbook, and then save this to a location on my computer? So that's, copy, open new workbook, paste keeping all formatting and values, and then save.
View 2 Replies
View Related
Oct 23, 2013
With a macro to copy from the last entire row with data and immediately insert and paste to the row below in the active worksheet. I am using Office 2007.
View 9 Replies
View Related
Nov 10, 2009
I'm currently working on a problem that I'm having with Hyperlinks. Basically I want to copy the destination data that the hyperlink points to onto another sheet.
The main problem I'm having here is that I cant seem to find a suitable method to do this....I had the idea of using the hyperlink.follow function and then copying the data once I'm there and then moving back to the source hyperlink. My only problem with that is that I dont know how to find the cell address that the hyperlink is in, once I have found that hyperlink.
Therefore my question is two-fold:
- Is there a way to copy the destination data using some sort of hyperlink function?
- If not, is there a way to find the cell address within a worksheet, once a hyperlink is found on that worksheet?
I've attached the spreadsheet below to give a better idea of what Im doing, along with the "findHyperlinks" macro,within that workbook, that I am currently working on.
View 9 Replies
View Related
Nov 8, 2012
I think I am closer but how do I get all of the data from A2 in the origination worksheet and then copy it to the last blank cell in column A in the destination sheet?
Code:
Sub test4()
Dim lastrow As Long
Set StartSheet = ActiveSheet
'MFG PART NUMBER
StartSheet.Range("R2").Copy
Workbooks.Open Filename:="D:\_DoxaMobiusServtrax Import Template"
[Code]...
View 6 Replies
View Related
Sep 27, 2013
I have this code that copies existing folders to a new destination path. How do I change the code so that the From path and To path is based on cell value rather than writing it into the code?
Code:
Sub Copy_Folders()Set Fobj = CreateObject("Scripting.FileSystemObject")
Fobj.CopyFolder "C:UsersHengDocuments1243-01234photos", "C:UsersHengDocumentsCasework1243-01234photos"
End Sub
View 9 Replies
View Related
Jan 30, 2007
i am writing a custom copy/paste routine which will paste data from a selection if the cell being pasted to is not locked.
The user will select the text for coping and then launch the routine.
The routine will query for destination cell and then process the paste.
This is my routine so far:
Sub testCopy()
Dim c As Range
Dim MyRange As Range
Dim Dest As Range
Set MyRange = Selection
Set Dest = Application.InputBox(prompt:="Select a cell", _
Title:="Paste Destination", Type:=8)
For Each c In MyRange
If Dest.Locked = False Then
Dest.Value = c.Value
End If
'dest = ?
Next c
End Sub
What I need to know is how to increment the dest reference so it is in the same 'relative' position from the initial dest that c (from the selection) is in or is there a better way to do this?
View 3 Replies
View Related
Oct 31, 2011
I have a Userform that when opened shows the Excel spreadsheet sitting behind. Is it possible to write code such that when opened the Excel workbook has been sized and re-positioned such that it is effectively hidden under the Userform?
View 2 Replies
View Related
Dec 27, 2009
I have a sheet with columns A to D
In Column B I have data like this:
Car, brake
Car, wheels
Car, exhaust
Boat, fender
Boat, sail
I need to copy everything after the comma (not the space) in a cell to the next cell in Column C and then delete everything in the original cell (column B).
how to do this like a macro, where I stand in the column I would like to copy and then run the macro.
View 7 Replies
View Related
Dec 30, 2012
I have excel 2007. I have a workbook with 2 tabs set up as follows:
Tab ATab B
Tab A contains a column with the source data, which will be constantly overwritten
Tab B has a row which references the data in tab A
I would like to copy the reference formula in Tab B down for say 100 rows, but when I use the fill tool, it automatically moves the reference cell up one. I want it to remain the same as the original.
E.g
Tab B, Row 1
ColA = Tab A, Row 1
ColB = Tab A, Row 2
ColC = Tab A, Row 3
When I fill copy the above; on Tab B, Row 2, the formula changes to ColA = Tab A, Row 2, ColB = Tab A, Row 3 etc. I would like them to remain as ColA = Row 1, ColB = Row 2 etc.
I will then use Tab A to input each rows data in Tab B, having converted the previous row into just text so it doesn't change with each update.
View 6 Replies
View Related
Apr 7, 2014
VBA to copy entire row in all worksheets in file based on criteria.
step1 Copy tab has criteria in cell c1
step2 search if this c1 value in each tab in column e or g or h
step3 check if column i is yes
then if criteria meet, copy entire row to copy sheet
I came across some similar posts in other forums which can do partial work but not entirely .
Note ; number of rows, columns and tabs varies in file
I am using excel 2007.
View 8 Replies
View Related
