I am using Excel 2007
I have a spreadsheet with 1,000 rows in multiple columns
In column "B" i have 8 unique names.
What I am trying to work out is to copy and paste all the rows for each unique name and save in a separate workbook named as the unique name.
I want to copy 4 sheets and paste it in a new workbook and save it.
I have this code recorded
VB:
Sheets(Array("PIV", "Report")).Select
Sheets(Array("PIV", "Report")).Copy
But it don't work?
I would like to implement specific cell ranges from two specific worksheets each within 33 workbooks (which all have several tabs) into a summary page in a separate workbook.
The cell ranges are going across my spreadsheet in rows and I would like for them to transpose into a columns depending on the data which I have separated by catergory on the summary page. They are all on the same location in each workbook which is separated by country. The cell ranges are E26:P37 and I would like to transpose them and have them put below eachother without overwriting for my format on the summary page, how I can put this together in a macro?
I am wanting to find rows that with unique values in the first column, and then take those rows and display them in a more readable format. The section titled input is an example of information that would be pulled from a query into Excel. The Desired Output section is how I would like the info to be displayed. If this is possible without VBA then that is even better.
Excel 2007
A
B
C
D
[Code].....
Intention is to (automatically) fully protect each completed worksheet/workbook on "save"/"save as" in MS Excel 2007... Is this possible by means of a macro? Which one? Saving in a ".xlsm" format is required?
View 9 Replies View RelatedI am using 2007. This may be something simple but I can't seem to find a solution to this, I have an excel macro enabled workbook which produces a daily report the final task is to save and send an email but I need the file to save as an xls rather than xlsx as some of the recipients are unable to open the file here is the code used for the tasks in the
workbook:Sub Step1_Refresh()
'
' Step1_Refresh Macro
'
'
ActiveWorkbook.RefreshAll
End Sub
Sub step2_save_close()
[Code] ........
I am using 2007, I have an excel macro enabled workbook which produces a daily report the final task is to save and send an email but I need the file to save as an xls rather than xlsx as some of the recipients are unable to open the file.
Here is the code used for the tasks in the:
workbook:Sub Step1_Refresh()
'
' Step1_Refresh Macro
'
'
[Code]....
I have a macro that opens all workbooks from one directory and runs a macro for each workbook to clean up the data. I cannot figure out how to take all those open workbooks and save them to another directory and close the workbook. Also, I do not want the macro workbook (xlsm) to save. I only want it to close. I am working in 2007 Excel.
View 8 Replies View RelatedAutomating Excel from Access, I'm attempting to generate a single sheet workbook and save to a Sharepoint site. This process works fine on my machine (XL2007, XP), but on a coworkers computer (XL2003, XP), the code throws a 1004 error on the save as line. However, the really odd thing is that stepping through the code doesn't throw an error on the coworkers machine.
Here's the sub being ran; the line it errors out on is the first branch in the .saveas block.
Code:
Private Const csSharePointSaveAs = "\sharepoint-us.mycompany.comsitesfinance adminlah blahlah-blahCustomer Publication Tracking.xls"
Private Sub PublishXLtoMOSS()
Dim objXL As Excel.Application 'Object
Dim wb As Excel.workbook 'Object
Dim ws As Excel.Worksheet 'Object
Dim rs As DAO.Recordset
Dim i As Long
'Set objXL = CreateObject("Excel.Application")
[Code] ...........
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 RelatedSuddenly realized that I can't paste formulas. When I copy/paste, it only pastes as values. When I copy and Paste Special, the only option is "Unicode Text". No option for formulas, formatting, or anything else. Excel 2007.
View 4 Replies View RelatedI'm looking for a macro that can do the following:
Contact
First Name
BD
Case
XXXXXXX
Aaron
A
XXXXXXXXXXXXXXX
XXXXXXXX
Abigail
C
XXXXXXXXXXXXXXX
XXXXXXXXXXXXXX
Accounts
D
XXXXXXXXXXXXXXX
XXXXXXXXXXXXXX
Adam
C
XXXXXXXXXXXXXXX
Filter by BD 'C'
Copy all rows containing 'C' to new workbook.
Save new Workbook as 'Mailing C.xls' and close to specific flolder.
I'm new to this forum and to VBA
First-off, I'm using Excel 2003 SP3.
The setup: A software application I regularly use produces csv data files (in this case approx 300 files). These I have converted to xls format using a separate macro. The files are in one folder and named as follows eg
G1 18800.xls
G1 18802.xls
G2 18975.xls
G3 19881.xls
G3 19990.xls
G5 19990.xls
etc
The files contain the following data:
DATE TIME VALUE STEPS EXCL ACCEL
01-Oct-03 08:00 0 0 FALSE 0
01-Oct-03 08:01 0 0 FALSE 0
01-Oct-03 08:02 0 0 FALSE 0
01-Oct-03 08:03 0 0 FALSE 0
01-Oct-03 08:04 757 20 FALSE 0.18
01-Oct-03 08:05 1714 32 FALSE 0.44
01-Oct-03 08:06 1524 32 FALSE 0.39
01-Oct-03 08:07 1665 45 FALSE 0.47
01-Oct-03 08:08 1644 42 FALSE 0.46
01-Oct-03 08:09 263 8 FALSE 0.06
etc
I then created a macro using code I sourced from the internet, and included some addtional commands (filename, copy/paste). See below. This macro opens the all the xls data files in the folder and copies the relevant data to an analysis workbook [Analysis sheet, Results sheet, Master sheet] ie the data is copied from the data file and pasted into the Analysis worksheet. Then the results are copied from the Results sheet to the Master sheet. So far so everything works.
My problem is this: I'm stumped at how to delete rows from the xls data files before running the analysis workbook and macro. In other words, after converting the csv files to xls format I need to clean the xls data files.
I have a separate xls file with criteria data in two columns:
FileName Date
G1 18800 06-Oct-03
G1 18801 02-Oct-03
G1 18801 03-Oct-03
G1 18801 05-Oct-03
G2 18795 14-Oct-03
G2 18795 15-Oct-03
G2 18795 16-Oct-03
G2 18795 17-Oct-03
etc
The rows in a particular data file, with dates that are not present in the Criteria workbook must be deleted. This to be done for every data file in the folder. Also, I need to exclude rows for specific time periods eg 12H00AM - 04H00AM from all the files irrespective of date.
the code needed [should a separate macro be run or can code be placed within the present macro?]. I've tried looking for something similar on the internet, but my requirements seem too customized to be able to adapt the code that I found. And of course this is waaaay above my present skill level!
Option Explicit
Sub CopyPaste()
'This code opens up data files (xls) in a specified folder and copies data A1:G17281 to an Analysis workbook (Analysis sheet).
'The data from the Results sheet is then copied to the Master sheet.
Dim wkbDest As Workbook
Dim wksDest As Worksheet
Dim wkbSource As Workbook
Dim wksSource As Worksheet
Dim MyPath As String
Dim MyFile As String
[Code]...
copy or cut then paste - paste grayed out in excel 07 tried several popular fixes from the web without luck.
Tried: the Excel repair and diagnose tool
Tried: uninstall / reinstall Excel program as well
Tried: go into Hikey - user - software - Microsoft - excel - new - 32 binary and tried adding new rule
Tried: Close Excel.2. Go to C:Documents and Settings[userID]Application DataMicrosoftExcel3. Delete the XLB file.4. Open Excel (the XLB file will be recreated - like the normal.dot) ------> This one - I could not find the XLB file - looked everywhere.
Tried: Open excel hit alt-f11 (to get to the VBE) hit ctrl-g (to see the immediate window) type this and hit enter: application .command bars ("cell").reset Then back to excel to test it."
Excel 2007 copy/paste is bringing over formula results and not the formula (e.g. Ctrl-c "=A1+B1", Ctrl-v "3").
I've validated my calculation options are set to automatic and that the sheet format is "general", which I saw on older posts.
Perhaps related, when I paste special, I get a different box which only allows me to paste as Unicode Text or Text.
Here is my situation:
Background:
- Excel VBA 2007
- I have a macro that inserts a set of vlookups in range D3:D8.
- When D3:D8 has been filled, I need the macro to COPY the Vlookups in D3:D8, skip down one cell, and paste in the next set of open spaces.
- I have a Do statement that isn't working, and and IF...THEN that quits the loop when a blank cell is found (This means the range of vlookups is no longer needed).
Objectives:
- Fix Do...Loop so it copies D3 throuh D8, skips a cell below D8, and Pastes in the next section? - There will sometimes be only one section to paste in, and sometimes 20. It is dynamic.
Code:
Sub InsertVLookup2()
' This macro inserts the VLookup into cell B2
Dim lastcolumn As Long
Range("D3").Formula = "=VLOOKUP($A2,INDIRECT(""'"" & B$1 & ""'!A:I""),9,FALSE)"
Range("D3").Select
[Code] .......
I'm back working on my estimate sheet again and hit another roadblock. I have a series of rows all separated by multiple spaces and would like to copy every one to the first empty column on a separate page sequentially until a certain condition is met (first time row starts with zero in column U, in this pic second row down would end routine).
The first column here is U on sheet "Partitions & Woodwork" so since this first row doesn't start with a zero, U10 - BC10 would need to be copied and pasted transposed into the first open column on sheet "Rebirth" (2nd pic below).
U V W X Y Z
It would be pasted transposed here from B2 downwards on sheet named "Rebirth". The next row that didn't start with zero would be pasted transposed starting at c2 and so on until the first time a row beginning at column U on sheet "Partitions & Woodwork" began with a zero (0).
The number of spaces between rows being copied varies on the partitions & woodwork sheet but the columns (U - BC) are a constant every time a row needs to be copied.
Have a HUGE excel 2007 sheet of over 1500 rows that looks like this:
A1IDS09C1_PEND_COB2345678910IDS15C1_HIST_GATIL111213141516Sheet3
I need to get it to look like this:
A1IDS09C1_PEND_COB2COPY YES SHRLEVEL CHANGE SORTKEYS SORTDEVT SYSDA3BMCSTATS YES UPDATEDB2STATS YES UNLDDN
RU0014CONDEXEC YES UNLOAD RELOAD REDEFINE NO DELETEFILES YES SORTNUM 125DDTYPE WORK ACTIVE YES
DDTYPE SORTWORK ACTIVE YES6DDTYPE LOCPFCPY ACTIVE YES7DSNPAT
[Code] .......
In other words, I need to copy the text in blue so that it is above the text in black and the text in red so that it is below. Then I need the macro to repeat this procedure for each cell that it finds containing text in black. I have already created and run a macro to insert blank lines between each black text entry.
I need to copy a specific column range K18:M180 to only columns that have an "X" on a specific row. Below is my small example.
In this example it would be in columns OPQ and WXY
Excel 2007IJKLMNOPQRSTUVWXY
121314xxxxxx1516$Units$/Units$Units$/Units$Units$/Units$Units$/Units
1718aaa180.0 0.00 19bbb0.0 0.00 20ccc1.6 0.11 14.74 21
ddd9.0 0.53 16.93 22eee7.3 0.45 16.22 232425Sheet1
I have a folder containing 40 single sheet excel workbooks and I would like to automate following tasks:
- Open each excel file (need to open the file so as to update it since it gets the data from another workbook through =formulas)
- Copy paste as values
- Save this as excel html in the same folder as original excel files (keeping the original file name)
- Close (original excel file should not be changed ie formulas should remain in place, only the html file will contain values)
- Since there will always be xHtml files with same name need the macro to replace the excisting file
My abilities with excel are limited to functions, no VBA knowledge other than finding ready codes and pasting them in the module.
Since this routine is to be run almost daily the macro should run all files, instead of one by one.
I just hope that I am not asking too much for excel to handle and I hope that explanation is clear.
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 RelatedExcel 2007, Windows XP Pro
Dim strLoan As String
Dim longCat As Long
Dim rHere As Range
Range("A1").Select
[Code] .....
I can see the cursor move to all the desired cells when this macro executes; it just isn't dropping any data where it should be. I have been working at this stage for the last five hours with no success. I don't know whether my copy-paste methodology is broken or if it is my selection criteria
for my school project, I am right now doing time tracking for all of my activities throughout the day with excel. Here is basically what I am doing: For everything I do, I record and put in start time and end time for the activity.(I use simple formula to subtract these twos) If my day goes on like study, break, study, meal, study, break and each activity takes one hour for each, I have total of 3 hours studying, 2 hours taking break and one hour for meal. I am using pivot table to show all totals for each activity.
Pivot table is working best as far as my knowledge goes as I can choose and look up total of multiple activity combined. The problem here is I am making one sheet per a day and I need to continue this for three months. (So that seems like 90 worksheet). What I was thinking is I make Sheet 1 as master sheet. Then, copy and paste the entire sheet for 90 sheets assuming all formulas including pivot table go along with them. then, when I put in new data to other sheet,magic happens and values in pivot tables will change relatively after refresh. You might be probably laughing hard at me right now. I know..I tried it for like 3 sheets. Simple formula to subtract endtime and start time still work accordingly with new data. But, Pivotal table is playing dead at all.
I researched and found that that might be problem with reference and absolute cell reference thingy. ( to make pivotal table work for different worksheet). All the cells used ( including column and row ) will be entirely the same for all worksheets. The only difference aka problem is different sheet. I want to use sheet 1 as a template and copy it down to next 90 sheets taking all contents except data. Is there anyway I can copy and paste the whole template to another 90 sheets while making pivot table work and calculate and update itself according to relative data from each own worksheet? I use excel 2007 btw
Excel 2007
I have a workbook (book1) that is modifying multiple other workbooks (book2). I need to do a vlookup of a sheet in book1 from a value in book2. I then need to insert the value found by the lookup into G7:H7 (merged cells) of book2.
value is in column B of page "Routes" of book1. Found by value B3:C3 of book2. The vlookup looks in column A of book1. The found value is put into G7:H7 of book2.
In a step by step, to possibly make this more clear:
1) check value of B3:C3 in book2
2) find value in Routes sheet of book1, column A
3) upon match, grab the value of column B
4) insert that value into G7:H7 of book2
[URL]
I have two Workbooks
1. Main (where I have a button and I intent to write code and paste the data)
2. Data (where I have data to be copied)
My code so far
Code:
Sub copy()
Dim wbData As Workbook
Dim wbMain As Workbook
Set wbData = Workbooks.Open("path")
Set wbMain = Workbooks.Open("path")
wbData.Sheets(1).Range("A1:A5").copy
wbMain.Sheets(1).Range("A1:A5").PasteSpecial
wbData.Close
End Sub
In the above code the problem is that the file wbMain is already open and when I try to re-open it gives an error and program crashes and if I do not open the file then it gives me the error and says sub or function not defined as wbMain variable is not set.
Second problem:When an error is thrown or I close my files, I lose all the VBA code and module? strange ! how to save modules permanently? using Excel 2007
Ok I am using Excel 2007. I want to copy 4 cells from a row on sheet 1 to sheet 2 based on value in first cell in row. Example if cell a13 > 0 then copy row 13, cells b13 thru e13 only to first available row in sheet two but starting from row 12 on sheet two. Because sheet 2 has title information at the top from row 1-12.
I would rather not have to use a button to do it, would like it to do it as data is entered in sheet 1.
Am working in Excel 07, but this would need to work in 2000 as well.
Need a macro that will...
1. Select a range of cells from B4 to RX. X is defined as the last row where Column A has a value.
2. Copy the visible cells
3. Open an email in Outlook (not via the email workbook function of excel), enter "Submission" into the title, enter "Dear X," insert 2 returns.
4. Paste the copied table (not the workbook, just what is on the clipboard) into the body the email.
I am trying to create a macro to copy a set of datas in a row , paste into another workbook (specific sheet),then save it as one of the datas that was copied over.
Workbook1
Ticket#
Description
Name
12345
Test 1
David
32145
Test 2
Steve
Workbook2 - sheet (ABC)
Copy row 2 from Workbook1, paste to row 1 in Workbook2 sheet(ABC)12345
Test 1
David
Saveas Workbook2 - ABC - "12345" - Ticket #
Copy row 3 from Workbook1, paste to row 1 in Workbook2 sheet(ABC)
And so on. I will have a set of data to trasfer to Workbook2, each row different workbook.
In versions prior to Excel 2007, I was always able to copy a chart when I copied a tab. However, when I copy a tab in 2007, the data copies fine, but the chart does not. Something similar happens when I try to move a tab with a chart on it to another workbook.
View 5 Replies View RelatedI have files that have thousands of rows in them with company names. The rows contain the company name plus lots of other info. I'd like to be able to create files or sheets with the company name as the file or sheet name with the respective rows contained within it. Make sense?
For example:
Original file or sheet
Date Company Info1 Info2
Jul Sams Expense Desk
Jan Freds Expense Doughnuts
Jun Sams Deposit Return
Feb Sams Expense Food
Dec Freds Expense TV
Would become:
Sheet or File Sams
Date Company Info1 Info2
Jul Sams Expense Desk
Jun Sams Deposit Return
Feb Sams Expense Food
Sheet or File Freds
Date Company Info1 Info2
Jan Freds Expense Doughnuts
Dec Freds Expense TV