Macro. Pasting, Deleting & Shifting
Jul 26, 2007
I have a challenge for any macro wizard out there - this is something I really need and I'd be happy to reimburse whomever can help with an iTunes gift card or something.
I regularly receive a dataset such as the one you see here on the tab called 'Data comes in varying # of rows' (either link should work):
[url]
[url]
The dataset comes each time with a different number of rows, and what I need to do is combine all the 'Issue' and 'Issue Description' columns (there are 8 total) into just two columns.
I think this should be relatively easy for someone who has a better knowledge of macros by simply copying and pasting the data on top of itself (as I have done on the next tab called 'Want to change to this format'), and then simply deleting from the second section the 'Issue #1' and 'Issue #1 Description' columns, and shifting all the data left by two columns.
If you repeat this process for the third and fourth sections (for the third, you must delete 'Issue #1' and 'Issue #1 Description' and 'Issue #2' and 'Issue #2 Description' and shift the data left, while for the fourth you must delete Issues and Issue Descriptions 1 to 3 and shift the fourth Issue and Description to the left), you will end up with the columns A, B, C, and D as I have on the 'Want to change to this format' tab. (The extra columns after column D should all be deleted.)
Finally, the 3 extra header rows that are now at the top of the bottom three copied-and-pasted sections should all 3 be deleted.
View 5 Replies
ADVERTISEMENT
Jun 25, 2009
I need to search column C for the text "X". If an "X" is found, I need to copy the text from the cell directly left of it and paste it into a seperate worksheet into cell B2, then go back to the original worksheet and delete the cell with "X" on it and the cell to the left.
View 9 Replies
View Related
Feb 4, 2014
I am looking for some code that will use A,B,C as filters to find duplicate cells, and if duplicate found, there should be deleted the duplicated row (but not only the row from a,b,c column, but the whole 8 cells from that row - A,B,C,D,E,F,G,H).
As filter I would like to be used A,B,C columns.
EXAMPLE:
BEFORE
A B C D E F G H
Kristijan Markovski 26,2,1992 1389 Prilep Prilep Mice Kozar1 1
Kristijan Markovski 26,2,1992 1389 Prilep Prilep Mice Kozar01 1
Kristijan Markovski 26,2,1992 1389 Prilep Prilep Mice Kozar001 1
Bojan Smileski 5,2,1992 1356 Prilep Prilep Borka Taleski 1
AFTER
A B C D E F G H
Kristijan Markovski 26,2,1992 1389 Prilep Prilep Mice Kozar1 1
Bojan Smileski 5,2,1992 1356 Prilep Prilep Borka Taleski 1
View 1 Replies
View Related
Aug 19, 2009
This is far too complicated for me to program.
Ideally, if at all possible, I want a macro that will align every row of my data by the cell which has the value closest to 20. i.e.
8 10 12 14 16 18 20 22 24 26 28 30
9 12 15 18 21 24 27 30 33 36 39 42
5 10 10 10 12 10 14 50 54 59 62 72
1 10 40 42 44 46 48 50 56 48 62 70
would become...
8 10 12 14 16 18 20 22 24 26 28 30
........9 12 15 18 21 24 27 30 33 36 39 42
5 10 10 10 12 10 14 50 54 59 62 72
.....................1 10 40 42 44 46 48 50 56 48 62 70
As you can see, it looks quite tricky.
If it's too complicated, I can do it by hand (very time-consuming) and a simple macro button would help. I'd need something that will select the whole row of the active cell, and shift it all one space to the right. I'd have another button doing it to the left.
View 9 Replies
View Related
Feb 12, 2014
Any way to automatically shift the numbers in a calculation range without having to manually enter for =SUM every time.
The spreadsheet shows a listing of the 20 most recent golf scores in one column, and the other column adds the best 10 of the most recent 20. Currently I am doing this by hand, and just entering the sum in the top cell. Is there a way once I enter the newest score for excel to read that and automatically adjust the formula?
View 7 Replies
View Related
Oct 23, 2008
I'm looking to create a program that enables the macro to run with placing the desired cell blocks (A3:F12) from Sheet1 into Sheet2, and when i press the shortcut key again, it automatically places the cell blocks underneath the previous data that was pasted in the Sheet2. The goal of this is to keep a history of the data into the Sheet2.
I'm new to this, especially with VBA but is there any possible way to create this type of macro program?
View 12 Replies
View Related
Jul 23, 2013
I have an array defined from 1 to 100; however, only six elements of the array have a value. I need to add a value in between the ones already in the array. I have tried this snippet already with no luck.
Code:
For Z = a To MinPos
WOList(Z + 1).F1 = WOList(Z).F1
Next Z
WOList(MinPos).F1 = CalcValue
A is defined as the total number of elements with values in the array (6 values in this example). MinPos is defined as the location of which the value needs to be inserted (lets say index 2). I tried to shift all the elements to the right one, and add the number into the array.
View 4 Replies
View Related
Feb 13, 2009
I need a macro to shift column data to the top row for a given cell range sharing common data in row A.
I need to get from this:
Name Fruit Meat Dairy Bakery Alex Apples Alex Milk Alex Bacon Alex Bread Bill Steak Bill Eggs Bill Chicken Bill Oranges
Carl Butter Carl Cake Carl Milk Carl Bananas Carl Pork Carl Peaches Carl Chicken
To this:
Name Fruit Meat Dairy Bakery Alex Apples Bacon Milk Bread Bill Oranges Chicken Eggs Bill Steak Carl Bananas Chicken Butter Cake Carl Peaches Pork Milk
It would be nice if the shifting would sort the data as well.
View 9 Replies
View Related
Sep 21, 2008
I had a sheet that had a web query imported into it which took up columns A to F. The web query varies in length upon every refresh. In columns G onwards i have lots of formulas that read the information from the query to produce results.
When i imported the web query, on some refreshes it has the ability to push my formulas down in certain columns. I'm assuming this is because the length has changed of the web query maybe? Although it can do it on the opening import of the query which i find strange.
I was told the best way around this would be to put my web query on another sheet, however this doesnt appear to have fixed my problem.
Lets say for example #Sheet1!A1 looks at #Sheet2!A1, #Sheet1!A2 looks at #Sheet2!A2 and so on. This will work fine. When the web query is imported into Sheet 2, its data goes down to cell A72. Upon another refresh though, the length will changed and now the data might go down to cell A81. However, #Sheet1!A72 will have changed its formula to look at #Sheet2!A81 and my formulas on Sheet 1 will now read as follows:
#Sheet1!A69 = #Sheet2!A69
#Sheet1!A70 = #Sheet2!A70
#Sheet1!A71 = #Sheet2!A71
#Sheet1!A72 = #Sheet2!A81 <----- Problem!
Basically the problem with this is Sheet 1 will not be including Sheet 2 A72:A80 which i also need.
View 9 Replies
View Related
Nov 16, 2013
I have been trying to produce a spreadsheet that works out the correct gear and rpm depending on shift limits across six gears.
In column M I have all of the rpm values for 1st gear, which I require in column S until the shift limit for 1st gear is reached, now I wish to have the rpm values for 2nd gear (Obtained now from column N) displayed in column S up until the 2nd gear rpm limit is reached and so forth until 6th gear. I have tried an IF() statement down the entirety of column S but this only seems good for taking into account two columns at a time, whereas I require six all dependent on the respective gear shift rpm. Also the position of the shift rpm will change relative to other functions in the spreadsheet, so I can't simply have different IF() statements lined up appropriatly in column S.
So if my shift rpms are in column B I wish column S to read column M until M>B1 then it will need to choose values from column N until N>b2 where it then picks column o and so on.
View 6 Replies
View Related
Aug 13, 2009
I was wondering if there was a way to create a two cell dynamic range that doesn't expand, but instead shifts.
The cells that I'm interested in are always at the bottom of the column of data. For example, the first two cells I want as my range are C13 and D13. Then, for my next use of the range, I would like it to include C14 and D14.
View 11 Replies
View Related
Jan 11, 2009
I am trying to use the code below to select certain information from different areas of each sheet in the workbook and paste it onto the List sheet one after the other so I end up with a long list made up of short lists off each sheet. The macro runs through each sheet OK. each sheet has the correct area I want to copy highlighted, so I know it's selecting the right area for copying, but the 'List' sheet is blank, i.e. nothing has been copied to it.
This macro is one I'm trying to put together from other macros I already have, and they all work
Sub Generate_Repair_Kit_List()
For Each ws In Sheets
ws.Activate
Const testColumn = "A" ' change for your data
Dim lastRow As Long
Dim topCell As Range
Set topCell = Range(testColumn & 1) ' top of column
lastRow = Range(testColumn & Rows.Count).End(xlUp).Row
'work up from the bottom until we hit
'a cell that has a border on the bottom edge.
Do While lastRow > 1
lastRow = lastRow - 1.........
View 9 Replies
View Related
Jun 6, 2013
I am creating a macro for a monthly report of inventory. When I filter out items and the copy and paste them to another sheet, how do I tell the macro to paste it in the next available cell rather than say A20? Because the report has a different number of items and filter results from month to month.
View 3 Replies
View Related
Sep 14, 2007
I have a sheet pasted below for reference. I am trying to make a macro that when I type the word "Completed" into "Sheet1" row N then in this sheet pasted (ProductionList) below the corresponding row gets deleted. I hate explaining this stuff. I'm so bad at it.
******** ******************** ************************************************************************>Microsoft Excel - Unique Print Schedule.xls___Running: 11.0 : OS = Windows XP (F)ile (E)dit (V)iew (I)nsert (O)ptions (T)ools (D)ata (W)indow (H)elp (A)boutA9B9C9D9E9A10B10C10D10E10A11B11C11D11E11A12B12C12D12E12A13B13C13D13E13A14B14C14D14E14A15B15C15D15E15A16B16C16D16E16A17B17C17D17E17A18B18C18D18E18A19B19C19D19E19A20B20C20D20E20A21B21C21D21E21A22B22C22D22E22A23B23C23D23E23A24B24C24D24E24A25B25C25D25E25A26B26C26D26E26=
ABCDEF1*2345678Job*NameTowelQuanitityDate*Due:HandlingPress9GCHS*Tigres1525-23-BKHL759/14/2007Ship*From*Team*Spirit*TowelsB10Crunk*Energy1518-125*WHHC50009/18/2007NoneDONE11Atlanta*Falcons1518-15WHHL500069/18/20076*Post*Pro*To*DonB12Sunstreet*Mortgage1626-30*WHDC3029/18/2007Hook*&*GrommetR13McDonalds*Hacer*Golf*Outing1626-30*WHDC3049/18/2007Hook*&*GrommetR14Arizona*Cardinals1218-13*WHFI670069/20/20076*post*Pro*To*DonR15Michigan*Go*Blue1118-12PMS10910169/20/200710*towels*to*Greg*Cannon*6*to*DonR16Golf*Etc.1626-30WHDC1549/24/2007Hook*&*Grommet.**4*samples*to*sendB17Buffalo*Bills*"Billieve1118-12WHHR600369/26/200736*post*pro*to*Donny*DonB18Wreck*Em*Tech1518-125*WHHC100510/1/2007NoneR19Go*Hogs1518-125*WHHC100510/1/2007NoneR20U*Conn*Huskies1518-125*WHHC100510/3/2007NoneR21Go*Bulldogs1518-125*WHHC150510/3/2007NoneR22Chargers??6800010/8/20070R23Kansas*University*Homecoming1118-13RYFC2501810/30/2007Strike*to*Corey*&*VernR24Go*Aggies1518-125*WHHC50511/1/2007Drop*ShipsR25St.*Paul*USBC1118-16*COLORS1512FlexibleRDDC,*HUDC,*RYDCB26Fire*Antz1118-12WHHR2000PENDINGNoneBProduction List*
[HtmlMaker 2.42] To see the formula in the cells just click on the cells hyperlink or click the Name box
PLEASE DO NOT QUOTE THIS TABLE IMAGE ON SAME PAGE! OTHEWISE, ERROR OF JavaScript OCCUR.
View 9 Replies
View Related
Aug 3, 2009
There are two sheets named "dataset" and "result"
I need to copy the content of sheet "dataset" staring from line containing ("final dataset") till the missing row.
This data is dynamic. i.e line containing text "final dataset" can start from any row and can go upto any row , depending upon the number of drugs selected.
For example in the sheet named "dataset" , the text "final dataset" starts from Row 7 and teh data goes upto row 16( since the drugs selected are 9.
example:
A B C D E
7 final dataset
8 drug 1 1 3 42 7
9 drug 2 1 3 44 6
10 drug 3 1 3 4 96
11 drug 4 1 3 4 56
12 drug 5 1 3 4 67
13 drug 6 1 3 4 622
14 drug 7 1 3 4 622
15 drug 8 1 3 4 26...................
View 9 Replies
View Related
Jul 17, 2014
I'm trying to implement a very simple macro to paste a set of cells - already copied to the clipboard from a CSV file - into a worksheet.
Basically, all I need it to do is to allow the user to open that other CSV file, hit CTRL+A and CTRL+C, then go to the relevant sheet in my workbook and run the macro, which should simply paste the copied data into that sheet (starting at cell A30).
Here's what I have so far - I keep getting an error when the macro reaches the ActiveSheet.Paste command.
VB:
Sub UpdateData()
'
' UpdateData Macro
'
Dim strSheetName As String
[Code]....
View 5 Replies
View Related
Feb 8, 2010
I'm working on a quality control project (for products with Model #'s "1098", "1190", & "1220") for the company I work for and I'm having an issue with a macro.
I have data coming from worksheet "Sheet1" AB6:AB21, that's getting "sent" to worksheets "1098", "1190", & "1220" E86:E101, and "Sheet1" AC6:AC21 -> worksheets in E151:E166
In "Sheet1" cell F4, you enter the Model # ("1098" "1190" "1220"). I'd like this data above to ONLY go to the corresponding worksheet as cell F4 and not ALL model # worksheets. Is there a way that I can do this?
View 8 Replies
View Related
Feb 18, 2010
I'm working on a quality control project (for products with Model #'s "1098", "1190", & "1220") for the company I work for and I'm having an issue with a macro.
I have data coming from worksheet "Sheet1" AB6:AB21, that's getting "sent" to worksheets "1098", "1190", & "1220" E86:E101, and "Sheet1" AC6:AC21 -> worksheets in E151:E166
In "Sheet1" cell F4, you enter the Model # ("1098" "1190" "1220"). I'd like this data above to ONLY go to the corresponding worksheet as cell F4 and not ALL model # worksheets. Is there a way that I can do this?
View 2 Replies
View Related
Aug 11, 2014
Macro (see below).
I have two sheets 1) ap modified 2) gl download
It's merging the two sheets together. however, it's pasting over the last row of data. For example, gl download has data from row 4 to row 100. The Macro is pasting data from ap modified starting in row 100 of gl download instead of row 101. How can i correct this?
Sub C_Merge()
Dim w1 As Worksheet, w2 As Worksheet
Set w1 = Sheets("ap modified")
Set w2 = Sheets("gl download")
Dim lr1 As Long, lr2 As Long
[Code] .........
View 3 Replies
View Related
Jan 26, 2009
I have a workbook that has a worksheet for each day in a year and a worksheet at the end called "RollingData". Every so often I would like to select the same range of cells on each worksheet and copy it to the RollingData worksheet, placing it at the end of the last data. Right now, the macro will do that for a selected sheet. I would like to select several sheets and run the macro on them. When I try to step through it, it fails. I get an error saying that the Paste size and Copy size are not the same and to select a single cell. The macro leaves the first blank cell in the first blank row on worksheet "RollingData" selected so I can't see where this won't work. Here is the
View 3 Replies
View Related
Sep 26, 2013
I am having trouble with a project for school. The instructions are: (In Worksheet 1) Type Your Name. Now, begin recording a Macro. Copy and Paste your name from Worksheet 1 to Worksheet 2. Fill in the background and edit the font. End.
Here is an example of the coding.
ActiveCell.Range("A1:E1").Select
Selection.Copy
ActiveSheet.Paste
Application.CutCopyMode = False
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
[Code] .....
Now, according to the instructions I should be able to run the Macro in any worksheet....but anytime I run the Macro in any other worksheet I just get a yellow block without my name there.
View 4 Replies
View Related
May 4, 2014
I began to ponder a way to copy down cells so that the copying of the formulas results in references as shifting horizontally instead of vertically. One particular reason that this occurred to me had to do with my attempting to use Excel to make more orderly text copied from Adobe.
So, for example, if I copied text from Adobe, I would paste it in Excel. Thirty lines of text would past vertically into a column, from Row A1 to Row A30, with each line of text in its own row. I wanted to figure out a way so that in adjacent columns, I could put it so that I would have a set of formulas reading in =A1 in Column C cell/row 1, =A2 in Column D cell 1, =A3 in Column E cell/row 1, =A4 in Column F cell/row 1, =A5 in Column G cell/row 1, and so forth. I realized that if I copied this down, in the second row, the result would entail references to A2, A3, A4, A5, A6. I would prefer that the references update to A6, A7, A8, A9, and A10.
View 5 Replies
View Related
Jun 4, 2014
I'm new to VBA but have had it working well for me, until the other night when a user complained that when he ran a macro, it came up with the error "Paste method of Worksheet class failed". I should note that this has worked time and time again, so I'm lost. I also found tonnes of answers with a Google search but they were all relative to that persons code.
So this is the code I am using to paste from the clipboard into another tabbed worksheet :
[Code] .....
View 1 Replies
View Related
Mar 14, 2013
1. I need to paste data that is copied from an internet window into sheet1 without selecting the cell so that I can continue working on a data in sheet5. The macro prevents me from editing sheet5 in an orderly fashion because when it goes to paste the data into sheet1 it selects the cell in sheet1 interupting what I am trying to manually do with the data in sheet5. How to paste data into a cell withou selecting the cell so that my program stops interupting what I am doing in a different sheet?
2. My macro is meant for real-time defect monitoring in a production facility. The macro opens an IE window that contains the defect occurences, copies the data, pastes it in sheet 1 then sheets2 and 3 analyze the data, closes the IE window, and then waits for a time period before repeating the process. This macro is so slow though that it is hard to work on this file while the macro is running. How to run the macro in the background and speed it up so that I can continue working on Sheet5 of the file while the macro repeats itself over and over again? Here is my code.
The variable website is determined by earlier parts of the code that direct the macro to a specific network website.
Sub Half_Hour_Data
1
'Open Internet Window and Navigate to Website
Set myIE = CreateObject("InternetExplorer.Application")
myIE.Navigate Website
myIE.Visible = True
Application.Wait Now + TimeSerial(0, 0, 10) needed to wait until the page loads
[code]....
Is there a way to speed up the macro by removing the timeserials and just telling it to continue when the task is complete. Then run the whole thing in the background so I can work on another sheet while this program runs?
View 1 Replies
View Related
Feb 26, 2009
I'm trying to do is record a macro that will copy data from cells A1/A2 of Test.xls and paste it to cell A1/A2 of Text2.xls. Then when I run the macro again, it will copy B1/B2 of Test.xls to B1/B2 of Test2.xls, and then do that for the remaining cells.
View 9 Replies
View Related
Jul 19, 2006
I need to paste the format and formulas of the last row of data into a new row beneath it. I've seen a bunch of different end row functions, but which one is best and how do I only paste the formulas and formatting?
View 8 Replies
View Related
Feb 20, 2013
I've attached a sample workbook in which there are 3 macro-buttons.
The buttons will paste a shape in the active cell. So this means the buttons themselves could be deleted and replaced with a shape.
Since locking and then protecting the cells disables the macros, how can I amend the code to make sure the buttons' cells are protected from the copying and pasting macros? Or, how do I ensure that the macros only work in A1 - E5?
View 4 Replies
View Related
Mar 31, 2014
I have a sheet made into a form with some check boxes included. If I select all the relevant columns, create a new sheet, and paste into cell A1 - all of the information carries over just fine. You can still select cells and check the boxes in the new sheet.
However, when I record this action as a macro, using the macro produces a picture of the selected columns instead of actually copy/pasting the information. I can't click on the cells or check boxes. I can only move the picture around within the new sheet.
View 7 Replies
View Related
Jul 11, 2014
i was wonder is there was any way I could go to the following website:
[URL]
and copy paste it into an excel sheet. What i would need is to get this page and the previous 7 days by changing the date "20140711" to "20140710" and so on. Each orevious day needs to be copy pasted to a different sheet.
As a new day occurs, I would like to delete the page 7 days ago and add the new day on a new sheet.
View 9 Replies
View Related
Sep 13, 2006
I have a macro that takes a worksheet and copies it to another workbook. It works, but the graph that is contained in the new worksheet ends up a little screwy; for instance, the Plot Area is larger than it should be (height-wise along the screen), and the chart's legend isn't in the exact same place as in the original chart.
ThisWorkbook.Worksheets(tempSheet).Copy After:=wb.ActiveSheet 'before:=ThisWorkbook.Sheets(1)
RenameTemplate
'unlink copy from template
'must unprotect before unlinking. We'll leave it unlocked cuz we don't care.
wb.ActiveSheet.Unprotect
'cells
wb.ActiveSheet.UsedRange.Copy 'ThisWorkbook.Sheets(tempSheet).UsedRange.Copy
wb.ActiveSheet.UsedRange.PasteSpecial Paste:=xlPasteValues ......................
View 3 Replies
View Related
