Multiple Copy From AS400 & Paste To Next Row
Mar 29, 2008
I need to copy from AS400 (ISearies) to Excel, return to AS400 and repeate a number of times for a specific AS400 layout. (Example) I would copy for AS400 row 7, column 2 thru row 7 column 10 then paste to Excel A1, repeate for row 8, column 5 thru row 8 column 15 and paste to A2, ETC. I need to keep repeting this about 20 times. I have a group of employees who do this all day. A Macro would speed work.
View 2 Replies
ADVERTISEMENT
Nov 29, 2006
Report 1 is downloaded from SAP into Excel and Report 2 is downloaded from AS400 into Excel.
Report1 contain 3 columns as follows:
Column A - Invoice #
Column B - Invoice date
Column C - Invoice Amt
Report2 contain 5 columns as follows:
Column A - Invoice #
Column B - Ship Date
Column C - Check #
Column D - Amt Paid
Column E - Payment date
I tried to use the Vlookup function in Report 1 Column D to lookup the matching Invoice # in report 2 and bring in the corresponding Amt paid. It did not work and I assume that this is because of the formats in the downloaded files. I did try to change formats for the columns involved but this did not work. This function works fine if both files were setup in Excel, however in these downloaded files even though saved as excel workbooks, something prevents this function from working. I do know for a fact that the same invoice number does show up in both these files but the vlookup does not pull up the required Amt paid from Report 2.
View 9 Replies
View Related
Nov 7, 2009
I have 8 different files all have a set of data in them
each one has a long list of (column a-n) however the number of rows change by date. I need each file copied into the finalfile.xls one after another. in the files that will be merged into the final file the final row i need copied is blank.
I have all the copy formulas and everything set, I just need a range to copy that automaticaly takes cell a10 to the first blank a cell from each file and pastes it in the finalfile.xls under the last paste so they dont over write each other.
View 9 Replies
View Related
Apr 21, 2013
I've got several worksheets that all have the exact same layout that a user will enter unique information in to each worksheet. Then I've got a final worksheet that I want to have a button that the user can click and when they do, it will look to each worksheet and do the exact same process for each worksheet as follows:
It first looks to see if the worksheet is visible. If it is, I want it to copy the range A5 to K5 down until it gets to the last non-blank cell in column C. The first non blank cell that will be referenced will be C7. Then I want it to paste this information into the range A5:K5 on the final sheet named Sheet8 with the same values and keep cell formatting such as width and height, font. If the worksheet is not visible, it skips the sheet.
I want it to do this for each visible worksheet, placing the next visible worksheet info under the previous visible worksheet info. My current code as shown doesn't do that. It requires that something be inSheet8 A6 before it will even paste, then it pastes the info from A5:K5 but it doesn't do just the values nor does it keep the formatting. What I mean about not doing just the values is some of the info that needs to be copied comes from a drop down they can choose from and it copies the actual drop down menu. Also, it seems to copy all of the ranges from each sheet and paste it into just A5:K5 on Sheet8 and overwrites each other instead of pasting Sheet2 just below the information from Sheet1. So the only information shown after the entire process is completed is the information from the last visible sheet.
If Worksheets("Sheet1").Visible = True Then
Sheets("Sheet1").Range(Sheets("Sheet1").Range("A5:K5"),
Sheets("Sheet1").Range("C7").End(xlDown)).Copy
Sheets("Sheet8").Range("A5").End(xlDown)
End If
[Code]...
View 4 Replies
View Related
Jun 10, 2009
I have a file for monthly result of different staffs (over 1000 of them) shown in Col A. Their monthly result are obtained by Vlookup, then copy and pasted in Col B. The staffs are arranged in groups, and each of those groups usually no more then 10 persons. What I usually do is the follow steps:
(1) Input the Vlookup in, say for Feb, C1, then drag the corner of the cell and pull down as copying the formula to the bottom cell (this will create errors in the S Total rows (row 8, 13, 19 etc) but will overcome later).
(2) Select the entire Col C, then copy and paste value, to make all the data into a value.
(3) Select the S Total cell from the previous month (B8, B13, B19 etc), drag the corner of the cell, and pull to the respective S Total cell in current month (C8, C13, C19 etc). This will copy the sum of each group formula from previous month column to the current month column. And also it can clear out the errors generated by step (1) above.
Due to the size of the staffs, I have over 300 repetitions of doing step (3). It is so time
consuming, and I feel like an idiot. As you know, Excel 2003 does not allow multiple copy and paste. I have tried grouping the staffs, hide details, then do the copy and paste but unsuccessful because it will be multiple and paste as well. I cannot change the format of the table because many others will use this table too.
View 10 Replies
View Related
Jul 12, 2013
I have created a named range that selects about 30 different cells (non-contiguous) and I am trying to copy over all the formulas and paste with values. However excel is not letting me to do this. It says this command cannot be applied to multiple selections. Can I get around this?
View 3 Replies
View Related
May 28, 2005
I want to copy a selection of cells and paste them into a row on another
sheet.
An example would be to copy:
Sheets("Sheet1").Range("T5,C7:T9,T13,C15:T17,T19,C21:T23")
and put it into A4:F4 on Sheet2
I know I can do it one cell at a time but I was hoping that I could speed
things up and do it all in one go as the macro will be quite long.
View 9 Replies
View Related
Oct 28, 2011
I am trying to write a basic VBA code to effectively remove the formulas from a workbook to reduce the size. I want to save the formulas in one hidden row above the data and have the macro select this row, copy the formulas down to the data, calculate the sheet, and then copy and paste the new calculated info and paste as values
Issues making this more difficult:
1) The number of rows of data is not constant, therefore I believe I need to make vba count the rows of data and therefore know how many rows to paste
2) The formulas are not in every column (E.g. A:C, E:R, AA:AD have formulas)
Here is a basic example:
A B C D E
1 FORMULAS (Hidden)
2
3 [Inv. Typ] [Material #] [Batch] [Qty] [$]
4 [FG] [545] [555A] [5000] [$250000]
5 [WIP] [984] [659A] [200] [$650000]
In this example I would like the macro to:
1) Copy the hidden formulas in (A1:B1, D1:E1)
2) Paste these formulas into the range (A4:B5, D4:E5) (*The height of this range is not constant)
3) Calculate the Worksheet
4) Copy and paste values to the range (A4:B5, D4:E5) (*The height of this range is not constant)
* I would like column C to be left alone.
View 4 Replies
View Related
Jun 6, 2014
I would like to create a formula on sheet 1 and be able to copy and paste it to 20 sheets in the same workbook.
View 2 Replies
View Related
Jul 28, 2007
I want to copy several separate sections on a worksheet and place these sequentially in an array, then paste these in order into another worksheet.
I have written a macro to copy and paste between the two spreadsheets, however, this is rather basic as it involves straddling between the two and performing multiple alternate copy and paste operations, as only one section can be copied at any one time.
View 9 Replies
View Related
Jun 18, 2009
I am importing some text files into an excel worksheet. I want to change the format just a little bit. For each date I have 5 rows (pixel: 25, 37, 50, 100, and 200). When I import my data the date is in the same row as my pixel numbers. I want to place the date in another column to the left of these pixel numbers.
Below is an example of my "spreadsheet" The first 5 lines (with date "2008_308.txt" next to each pixel number is what I want it to look like and the next (with date "2008_309.txt" is how it is imported with only one date above the pixel numbers. I could do this manually, but I have many years of data to import. And would like a way to kind of copy/paste these multiple items at the same time. Any ideas? .......
View 9 Replies
View Related
Sep 1, 2006
I've coded wrong. I get "Run-time error 424: Object required" when I run it.
Dim ws As Worksheet
x = 0
For Each ws In Worksheets
Select Case UCase(wSheet. Name)
Case "SAMPLE RESOLVED", "RESCALLTYPE", "DATA", "SUMMARY"
'Do nothing
Case Else
ws.Range("J22").Copy Destination:=Sheets("Summary").Range("B2").Offset(x, 0)
ws.Range("C3").Copy Destination:=Sheets("Summary").Range("A2").Offset(x, 0)
x = x + 1
End Select
Next ws
View 3 Replies
View Related
Feb 6, 2007
i am trying to create an invoice with the data from one sheet(invoice list1)to copy this and populate an invoice that i have in another workbook(invoice)
i need to generate for however many lines there is in the invoice list the equivalent number of invoices.
ie the data in list will be copied to relevant cells in invoice so
cell A4, A5 FROM (INVOICE LIST1) will go to cell B10, C10 of ("invoice" workbook)
cell E4 and f4 go FROM (INVOICE LIST1) go to cell b11,b12 ("invoice" workbook)
and cell g4(invoivelist1) will go to d12 of "invoivce"
i will attach the workbooks
View 3 Replies
View Related
Oct 12, 2011
I have a workbook with 6 worksheets in, 5 worksheets contain data whilst the 6th I will use as a search worksheet. The 5 data worksheets contain columns A to J which have text entries in.
What I would like to click a button on the search worksheet, lets call it worksheet 1, and for an inputbox to allow the user to enter a text search. The macro would then search for this text in columns A to J and all rows (or rows with data in) on the 5 data worksheets, and if found, copy the entire contents of those rows where the text is found and paste them into worksheet 1, the search sheet.
I have done a forum search and found a few examples of this type of search but not across multiple worksheets, also I found this code that does search across multiple sheets but does not copy and paste:
VB:
Sub Find_Data()
Dim datatoFind
Dim sheetCount As Integer
Dim counter As Integer
[Code]....
View 5 Replies
View Related
Mar 20, 2009
Basically on the file below whenever there is data in column "type" I want excel to copy the "name" and "account" next to it. The whole file has about 80,000 rows. Spacing is not always one blank row between accounts. I am using excel 2007.
View 5 Replies
View Related
Jan 10, 2009
How can I copy a column (C6:C200) and paste it according to a cell value . If I have in a cell 5 it will paste column (C6:C200) five times .
View 7 Replies
View Related
Mar 26, 2009
I have the following VBA code in Excel that looks in sheet called mri.txt for a cell called “AcquisitionMatrix”, Then goes one cell down and two cell to left and copy them all into Application.Workbooks(imgMain).Worksheets("Sheet1").Activate cell “AC2”, But for some reason it copies the field’s name as well such as:
AcquisitionMatrix , 0, , 256, , 256,.
Is there a way to avoid copying the filed name into cell AC2? Such as :
0, , 256, , 256,?
here is the
View 2 Replies
View Related
May 12, 2009
I have a spreadsheet that contains data that is currently split up into 2 or more cells. Sometimes it's 2 cells, sometimes 3, even 4, etc. I would like to right click on multiple adjacent cells, select copy, right click on another cell and paste these multiple cells into 1 cell. I checked paste special but didn't really find anything. I'm not sure a formula/macro would work either as I need to manually determine which cells need this attention.
View 2 Replies
View Related
Jul 9, 2009
Thank you all so much for this wonderful forum. Today has been a day of going through post after post. I am usually able to solve my problems through reading similar issues. However, just can quite get this one and I think it is rather simple, but frustrating none the less.
Attached is a spreadsheet with a list names in column B. The codes I have tried to write or have copied find one name and paste it to sheet 1. However, I need to find several names and then copy each row to sheet 1.
View 14 Replies
View Related
Mar 1, 2012
I have to take data from about 10 rows and then paste them into ONE cell . . . any easy way of doing that without VBA or concatenating?
Example -
Move -
Jeff
Bob
Joe
Mary
into Jeff Bob Joe Mary
View 1 Replies
View Related
Jul 23, 2013
I need to copy multiple rows in a spread sheet with a forloop. The problem is I only need a select few columns. A:C and F:H. When pasted into a new sheet I need to columns to come in A:F
I have a loop that does this already but it is huge and is slowing down my file. Here is part of it.
Sub MinerInfo()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
resultsRow = 2
[Code]...
View 4 Replies
View Related
Dec 7, 2008
I want to be able to prompt a user to select a sheet to import to another file. The ranges are as follows.
Sub Importtimesheet()...
View 9 Replies
View Related
Sep 26, 2007
I am using following code to copy a range from one worksheet to multiple worksheet.
I used both the option to paste the copied content i.e. ActiveSheet.Paste and Selection.PasteSpecial Paste. However in both cases getting error message 'Paste Method Of WorkSheet Class Failed'.
find any error here
Sub CopyList()
Application.CutCopyMode = True
Counter = Sheets.Count
For i = 3 To Counter
Sheets("Summary").Select
View 4 Replies
View Related
Aug 14, 2014
I have one master excel file (masterexcel.xlsx) and 100 small excel files. The small excel files are saved as M30.xlsx, M31.xlsx, M32.xlsx, M33.xlsx, M34.xlsx....
I want to open the M30 file, copy a certain section and paste it into the master excel file, close the M30 file whilst saving the new information in a file called recording. Then open the next file which is M31, copy a certain section and paste it into the master excel file, close the M31 file and then open m32 and so on....
How do I create a loop for the files so it automatically opens the files in the order M30, M31, M32.......and performs the aforementioned actions.
I have attempted the following for m30 but i need to make it a loop for m31, m32, m33, m34, 35 and so on....
[Code] .....
View 1 Replies
View Related
Nov 3, 2008
I have multiple .xls sheets in a folder. C:Documents and Settingsu369875DesktopProject stuffTestin Save_ASCompleted History. And need to copy the data in all of them and paste them into a new sheet (one main sheet) in this folder...........
View 2 Replies
View Related
Mar 8, 2007
I am trying to create a macro to copy multiple sheets to a single named worksheet, all within the same workbook. The code below works, except I want to copy only the data (no formulas). Can I add code to paste values, or do I need to start over?
Public Sub CopyandPaste()
Dim ws As Worksheet
Worksheets("Summary").UsedRange.Delete
For Each ws In Worksheets
If ws.Name <> "Summary" Then
ws.Range("a2"). CurrentRegion.Copy _
Destination:=Worksheets("Summary").Range("A65536").End(xlUp)
End If
Next ws
End Sub
View 4 Replies
View Related
Sep 13, 2007
I am looking for either formula which will allow me to copy data from a workbook with multiple named sheets into a workbook with a single named sheet. For instance workbook 1 has sheets named bob, sue, and tom and there is a workbook 2 which only has sheet bob. I want to copy the range fo data from sheet bob in workbook1 to workbook 2 as long as workbook 2 has sheet bob.
View 2 Replies
View Related
Aug 3, 2012
I have a macro that takes info/data from multiple sheets in the Basin workbook and summarizes it into the Median Database workbook. I need to copy the values in range B5:EM5 in every sheet (each sheet name is site #) in the Basin workbook and paste that range into the median database workbook row with the corresponding site.
Here is what I have so far
VB:
Sub Median_Database()
'This Macro takes the median from each station tab in the current Basin workbook
'And inserts it into the Median Database workbook
[Code]....
how to grab the sheet name and insert it in the median database. The problem is the copy/paste of the range in each sheet. The macro locks up every time.
View 2 Replies
View Related
May 23, 2013
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?
View 2 Replies
View Related
May 23, 2008
I need to copy specific rows that have a specific value in colum B and Colum M to new worksheets.
So from attached screenshot , say for an example macro shud filter rows that have "BigPond" in coloum B ,"RG2" in column M & "INT" in column W and i dont want all cells in these rows , i only want copy cells under column C,AK,AL,AM (in this order) to my other excel sheet that is named "BigPond" and it should paste it starting from Row5?
I want to avoid recording a macro as it selects a range and i am expecting more new rows every week so if a record a macro the cell range for selection changes and i get incorrect result.
View 14 Replies
View Related