VBA To Copy And Paste To Different Columns
Jun 5, 2014
Is there a way to copy from one sheet to another but to different columns? For example, I want to copy the information from Sheet1 to Sheet2, starting at row 17 and leaving column C blank and pasting the information from Sheet1 column C to Sheet2 Column D?
I thought I could use something like this or with a combination using Unbound but couldn't get it to work.
Code:
Worksheets("sheet1").UsedRange.Copy Destination:=Worksheets("sheet2").Cells(Rows.Count, 1).End(xlUp)(17,
But how do you drop the info to the correct columns?
Sheet1ABC1EmployeeStartEnd2Bill3/8/20143/11/20143Bill6/5/20146/8/20144Dave10/2/201410/5/20145Debra6/7/20146/10/20146Michael1/2/20141/5/20147Rachael9/15/20149/18/20148Rick9/12/20149/15/2014Excel 2010
Sheet2ABCD16EmployeeStartEnd17Bill3/8/20143/11/201418Bill6/5/20146/8/201419Dave10/2/201410/5/201420Debra6/7/20146/10/201421Michael1/2/20141/5/201422Rachael9/15/20149/18/201423Rick9/12/20149/15/2014Excel 2010
View 8 Replies
ADVERTISEMENT
Dec 30, 2008
when i copy columns resulted from another columns operations and paste in new sheet i got garbage ,could you tell me why and how to overcome this problem.
View 2 Replies
View Related
Jul 19, 2009
I have one master sheet that I update daily from several other spreadsheets.Right now I'm having to manually place the columns side by side and copy the new data over. The column and row format are exactly the same for each of these spreadsheets. Each day we go out and collect data, just numbers. I then must copy the numbers to the master sheet. I cant just copy and paste the columns because in the rows that don't have data in them it will overwrite the previous days information with blanks. I've attached a sample with some dummy data in it. I only update data in columns G and H.
View 5 Replies
View Related
Dec 29, 2012
what i want in my code here is, i have 3 tabs in my attached workbook(product db, product export, invalid product).
In product db tab if Export column contain Y then that required info should paste in "product export" tab and only this columns(A,B,C,E,F,G,H,I,K) should paste
In product db tab if export column contain N then that required info should paste in "invalid product" tab and only this columns(A,B,C,E,F,G,H,I,K) should paste
to get this output i prepared code but it seems in longer way and make shorter to this code.
i make a separate lines for each column to copy and paste.
[URL]
View 4 Replies
View Related
Oct 8, 2008
I want to copy a column of values and blanks and past the values into another column without the blanks.
View 9 Replies
View Related
Jul 7, 2012
I am trying to copy and past different columns from different sheets and copy them in one sheet which I named "BI Output Data".
VB:
'This copy and past the BI Result'
If CheckBox1.Value = True And CheckBox7.Value = True Then
With Sheets("AFA Output Data")
[Code]....
View 2 Replies
View Related
Dec 14, 2011
I am having a problem with hidden columns when creating a new sheet via VBA.
The source sheet has (4) columns that are hidden when this data is pasted to the destination sheet it ignores the four columns.
I need the destination sheet to be identical to the source sheet with the hidden columns.
As you can see in the code I have been able to hide the columns however the data is now in the wrong columns because the copied data excluded these columns. I tried hiding the columns before and after the paste with no success I'm thinking the issue lies in the actual copy portion of this task.
Code:
Sub E_MAIL()
'
' E_MAIL Macro
'
' Multiple_emails_and_Sheets Macro
'This is used for one sheet with multiple e-mails.
' ThisWorkbook.Sheets("NO").Copy
[Code] ........
View 3 Replies
View Related
Apr 30, 2013
I have Data in Row 1 beginning in Cell E1 then K1 (Every 6th Cell) About 300 Records with 5 Blanks between each one of them...
How would I get that Data In A5 Down Without the Blanks?
View 9 Replies
View Related
Jun 23, 2006
I'm trying to copy and paste range in alternate columns from one worksheet to another. I can record this macro, but I believe it'll be really long because I have 21 alternate columns to copy and paste. What I'm trying to do:
-copy range B9:B41 in workbook 'Channel OU template' then paste values only in range BI9:BI41 in workbook 'final'
-copy range D9:D41 to range BK9:BK41
-F9:F41 to BM9:BM41
..and so on until the last column AP9:AP41 to CW9:CW41
Basically it's just simple copying and pasting from alternate columns. This is the really basic code that I have just for one column:
Sub copy()
Windows("Channel OU template").Activate
Sheets("sheet1").Select
Range("b9:b41").copy
Windows("final").Activate
Sheets("ou").Select
Range("bi9").PasteSpecial xlPasteValues
End Sub
View 8 Replies
View Related
Jun 17, 2008
I am trying to save me a lot of copy and pasting. I have cells A1:A100+ with customer names listed out. I am trying to create a chart on a different page but on this particular chart, i need those customer names at the top of the columns going across the page instead of the rows.
View 3 Replies
View Related
Jun 11, 2014
I want to copy 4 columns and one cell to different sheet. I have 'Main' sheet and 'Report' , 'Report(1), 'Report(2), 'Report(3)' and so on. In this 'Report', I'd like to copy column A,E,F, and J and paste to column B, C, D, and E in the 'Main' sheet. I also copy Cell C3 in 'Report' sheet and paste in column A. The cell C3 is ID.
[Code] .....
I need to check every 'Report' sheet for copying and put these records into 'Main' sheet.
The first row in 'Report' is 6
The first row in Main is 4
View 4 Replies
View Related
Mar 24, 2014
getting a vba formula to copy values from two columns and paste it in 3rd column on the click of a button.
For example:
if I have 3 rows filled in column A and 5 rows filled in column B then i need a formula to copy 3 rows in A and 5 rows in B and paste it to column C. so column C will have 8 rows now.
The number of rows the value can be entered can vary. [ example: sometimes we may have 6 rows filled in A 2 rows in B ]
View 9 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 31, 2009
I am trying to copy three columns of information from sheet1 into sheet2.
When pasted I need the information to be spaced or offset as per below sample.
Sheet1
HTML ABCDEF
1#AnimalDescription
21Dogfour legged fur ball
32Catother four legged
43Horsegsdfgdfgdbfb
54Snakedfgegergeg
65Ratlkjlmlbnm,
76Birdtshgjmgjkk
Sheet2
HTML ABCDEF
1#AnimalDescription
21
3Dog
4four legged fur ball
52
6Cat
7other four legged ...................
View 6 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
Apr 20, 2007
I need to copy certain columns from one sheet to another sheet based on a formlua on the date.
So, on 'Master Sheet' I have a column called 'Date'.
I would like a formula, or macro, which does the following.
If date (column D) is over 2 weeks old (today's date - 14 days) then copy columns A, D, S and T to another work sheet called 'Not Attended' and paste them into columns A,B,C, and D.
View 9 Replies
View Related
Apr 18, 2014
I need copy duplicate data to another sheet, but paste only column(1,2,4,5,6,13,14)
[Code] .....
Cross-Post : [URL] .....
View 3 Replies
View Related
Jul 10, 2014
I have some data from many csv files.
I would like to record/create a macros to open the file and paste 4 columns worth of data into another spreadsheet. Making sure the data is pasted in the correct column and doesn't overight data already in a tracker. Ie. paste it into the next available space.
Output.csv
View 9 Replies
View Related
Sep 27, 2009
Yeah it is 1:33 am where I am.
I'd like to filter a column and paste only 2 columns to another sheet in the first available row.
I found a code that was posted by Tom Ogilvy and made a few adjustments: ....
View 14 Replies
View Related
Sep 23, 2011
I'm trying to figure out how to copy & paste the following conditional formatting down the column.
The conditional formatting I'm using is in cell A1, D1, G1, J1, M1 (so I have to Ctrl click each cell manually & I then choose to "format the values that rank in the:" "bottom 1" & format it green.
I want to copy and paste that all the way down column A, D, G, J, & M and have the conditial formatting pick for each row, not the whole column. eg. A2, D2, G2, J2, M2... A3, D3, G3, J3, M3...
View 7 Replies
View Related
Aug 24, 2012
I have a sheet that has columns from A to BS, and the column headers start in Row two.
I need to 1st filter the data by Column E where the data in Column E should not contain a particular Value, like"Sleeve".
Then it needs to copy the Columns A,D,G, BN, BO, BP,BP,BR & BS.
And it needs to delete Rows 3 & 4 from the current sheet, before pasting it in a new sheet.
And at the bottom of the sheet it needs to give me a count of the rows and the month end date for each month.
View 1 Replies
View Related
Jan 3, 2013
Is there any way to copy a column that has a specific range
=COUNTIF(B10:BE10,"*p")
=COUNTIF(B12:BE12,"*p") etc
to copy that to a column lets say 5 columns to the right without my range changing?
=COUNTIF(G10:BJ10,"*p")
=COUNTIF(G12:BJ12,"*p")
I need the same range in all columns, and I cant seem to accomplish this.
View 3 Replies
View Related
May 1, 2013
I'm trying to get a macro together that will take a set of workbooks that I've merged (using Ron de Bruin's RDBMerge add-in) and transpose all columns from B to HB into rows. Now, I know that each spreadsheet is 210 columns and 244 rows large and they are concatenated on one another. Attached is a brief example of what I am trying to go from and what I am trying to get to.
View 1 Replies
View Related
Jun 2, 2009
I'm alittle new to excel and MrExcel website. I have a spreadsheet that im trying to get a formula to work as below. If anyone knows how to get this to work please help! Thank you.
My spreasheet has the following:
Sheet1:
Column B Column G
1 test 1
2 center 2
3 school 4
Sheet2:
Column B Column G
1 work blank
2 school blank
3 home blank
I'm trying to find the value from sheet2 cell B2 (school) in sheet1 column B and then when it finds that, I need it to copy the data from the Corresponding sheet1 Column G cell to sheet2 Column G cell.
View 9 Replies
View Related
Dec 6, 2006
I have a spreadsheet that I would like to loop through column "C" and if criteria is met copy and paste A:C on sheet1 to sheet2 over multiple columns alternately. What I mean by alternately is that I would past the first row in column A6 then the second in E6 then the third in A7 and so on until all items are copied. I purposely left a blank column between both columns of information. I've tried sorting/and advance filtering and couldn't get it to work.
Example:
loop through column "C" If I have the Letter "A" copy data to column "A" and "E" alternately back an forth until I no longer meet the criteria. I start putting data on the 6th row due to header information in rows 1-5.
... If column "C" is the letter "B" copy to column I,M,Q,U
Lastly I could always have less rows of information than I do columns. SO the last column could be empty. I always sort my data by column "C" so data will be sequential.
View 9 Replies
View Related
Oct 12, 2007
Code copies the first two columns of a many column table and pastes them at a certain interval (14 columns) to make transfer to a report easy. The problem is that the worksheets each have a different number of columns, but none more than 56 columns. The macro works wonders on the first sheet, but thereafter does not work at all. The first sheet has 27 columns, the second sheet only has 4 columns and the one after has 38 or something.
Option Explicit
Public iMaleGroup As Integer
Public iFemaleGroup As Integer
Public iMaleAnimal As Integer
Public iFemaleAnimal As Integer
Public iMaleGroup1 As Integer
Public iFemaleGroup1 As Integer
Public StudyTitle As String
Public SmallAnimal As Boolean
Sub CommandModule()
Dim Wrkst As Worksheet
Dim wsName As String
Dim wsSubject As String
Dim wsNumber As String
Dim rSummaryHeader As Range
Dim MergedHeader
Dim NextMergedHeader
Dim HeaderRange
Dim AddHeader
Dim TableHeader
Dim SumTableHeader
Dim PasteRange
Dim x As Integer
Dim n As Integer
Dim z As Integer
Dim i As Integer
Application.Calculation = xlCalculationManual
Application. ScreenUpdating = False ............................
View 9 Replies
View Related
Sep 29, 2012
I'm in the middle of building a code that will look at the value in Sheet: "DATA" column "J", for each row that matches a criteria that I pull from a cell - Sheet: "Test" Cell: "C1".
The number of rows varies. I want to paste columns: "I2, K2:P2, U2:AJ2" when the value in Sheet: "DATA" column "J" matches the cell "C1".
I'm using a Command button to click every time I want to generate the filtered data. And I would prefer the code to always copy data starting at Sheet: "Test" Cell: "K2".
I've copied, below, my test code that I have so far which only copies row 2 from the Sheet: "Data", and copies it into Sheet: "Test", starting at K2.
VB:
Private Sub CommandButton2_Click()
If Sheets("DATA").Range("J2").Value = Sheets("Test").Cells(1, 3) Then
Sheets("DATA").Range("I2,K2:P2,U2:AJ2").Copy
Sheets("Test").Cells(2, 11).PasteSpecial Paste:=xlValues, Operation:=xlNone
End If
End Sub
View 3 Replies
View Related
Aug 27, 2012
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
View 1 Replies
View Related
Apr 21, 2007
Sub moveit()
Dim MyRows As Double
Dim TotalRows As Double
Dim Counter As Double
Dim StartRange As Variant
Dim Newrange As Variant
MyRows = InputBox("This macro will copy and paste the current data into mupltiple columns. Make sure that you have at least one cell in the targetted region of data selected. How many rows deep do you want the finished data to be?") - 1
StartRange = ActiveCell.CurrentRegion.Cells(1).Address
TotalRows = Selection.CurrentRegion.Rows.Count
Counter = 1
Do Until Counter > (TotalRows / (MyRows + 1))
Newrange = Range(Range(StartRange).Offset((Counter * MyRows) + Counter), Range(StartRange).Offset((Counter + 1) * MyRows + Counter, 2)).Address
Range(Newrange).Copy Destination:=Range(StartRange).Offset(0, Counter * 3)
Counter = Counter + 1
Loop
End Sub................
View 4 Replies
View Related
Nov 21, 2011
I have a macro that would check data in Column A and validate if a particular number is repeating, then for that number go to column B, Take the Values from there go to a new sheet and paste the values in a row.
CurrencyDateRef CodeIDAccountAmountDes.USD07152011XDVU4315210.4200.C5001.USD-18,606,772.190Distr Payable 07152011USD07152011XDVU4315210.4200.C5002.USD-111,131.450Distr Payable 07152011USD07152011XDVU4315420.4240.C5001.USD18,606,772.190Distr Payable 07152011USD07152011XDVU4315420.4240.C5002.USD111,131.450Distr Payable 07152011
I get the data in the below format
CurrencyDateRef CodeIDAccountAccountAmountDes.USD07152011XDVU4315210.4200.C5001.USD420.4240.C5001.USD-18,606,772.190Distr Payable 07152011USD07152011XDVU4315210.4200.C5002.USD420.4240.C5002.USD-111,131.450Distr Payable 07152011
I need to the macro to get the data not from the second cell.
Below is my macro
Sub test()
Dim idRange As Range, c As Range
Dim uniqueID As String
Dim destSht As Worksheet, sourceSheet As Worksheet
Dim r As Long
Dim i As Integer
Dim map As Object, key, item
[code]....
View 2 Replies
View Related
