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?
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.
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
how to shift data in a column down multiple rows while in an IF statement. I am assuming you cannot just simply repeat the insert cell formula.
Here is my code - it's ugly but it was working when I just needed it to move down one cell:
lastrow = Range("A2").End(xlDown).Row
For i = 2 To lastrow
Range("B" & i).Select
If Range("B" & i).Value = Range("B" & i).Offset(-1, 1).Value Then
[Code].....
I have a 2010 excel sheet containing 14 columns and 45082 rows in total. I am quite illiterate when it comes to writing macros but I know that what I need can be achieved with a set of codes.
To be more clear, I inserted two tables below. The first one represents the current data structure, and the second one is the way I want my data to look like.
Current data structure looks like
Variable 1
Variable 2
Variable 3
[Code].....
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.
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?
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.
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.
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.
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.
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.
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.
I have the code below that clears colums B-J and L-N in whatever row you activate a cell in. When a row gets cleared, how do I shift all the other rows up to eliminate blank rows in between the data real-time? I've deactivated the cut function already since this messes up references in the worksheet, so it would have to only use copy, paste, and clearcontents functions. Also, I don't want to DELETE any rows, just essentially shift the blank rows to the bottom. So when a row is cleared, all others shift up and the blank one goes to the end of the data that is available for data entry, so rows 17 to 116 are always available. But it must check to make sure that B-J and L-N are ALL blank, otherwise some wanted rows with one piece of information might get cleared. So at any given time, my range will always go from row 17 to 116. This is Excel 2007. Here is the code I have to clear rows that can be built upon.
View 14 Replies View RelatedHow can I format for a + or - for positive negative numbers and also have positive numbers be green and negative numbers be red?
View 2 Replies View RelatedI have a long list of sedols and wish to download the last price for each on a limited range of dates (30 dates, hundreds of sedols). So I built my excel file to have the sedol running down a column and dates across the top, with the function:
=BDH($A4&" Equity SEDOL1","PX_LAST",DATE(YEAR($D$1),MONTH($D$1),DAY($D$1)-0),DATE(YEAR($D$1),MONTH($D$1),DAY($D$1)-0),"Dir=V","Dts=S","Sort=A","Quote=C","QtTyp=Y","Days=T","Per=**","DtFmt=D","DTS=H")
the cells are not updating automatically, even when I hit refresh.. the only way is to go into each cell and hit enter (not practical!).
The next problem is that it adds something like ("cols=1;rows=2") to the end of the function and copies down further than I want.
Is it the case that the Bloomberg functions just can't handle having the dates across the top and security identifiers down the side - or is there some work around?
This what my excel sheet looks like that i am using the date ant time cell is set by using the now formula to get the current date and time, but I only want the date tiem change for each row when it changes.
For example when the data for the first row changes all the dates and time change, but I only want the effected rows time to change not all the times and dates, this progam is set up to monitor inventory and when some makes a change to the inventory I need to now when the that data was recorded but do not want the users to have to enter the data and want it to be enter automatically that is why i am using the now function. The data may not change at all for a couple days that why I need to be able to keep the Date data from changing automatically.
Bin #ProductAmount
D-21Red Lentils 3/47/7/09 1:54 PM
D-22Red Lentils 1/27/7/09 1:54 PM
D-23Yellow Peas 3/47/7/09 1:54 PM
D-24Yellow Peas 3/47/7/09 1:54 PM
D-25Yellow Peas 3/47/7/09 1:54 PM
D-26Yellow Peas 3/47/7/09 1:54 PM
D-27Yellow Peas 3/47/7/09 1:54 PM
D-28Yellow Peas 3/47/7/09 1:54 PM
D-29Yellow Peas 3/47/7/09 1:54 PM
D-30Yellow Peas 3/47/7/09 1:54 PM
I have this scenario which i need to automate it. I have 5 colums P1,P2,P3,P4,P5. It contains W or L combinations.
In my Column F i Concatenate(A2,B2,C2,D2) together and it follows on for the rest.
Now i have some criteria which i am going to search in my Column G. In Cell I1 i will list my combination to search. It can be as follows :
WWWW
LLLL
WWW
LLL
So what i need to do is search my F column for this possible match. If it is a match I need to color the my Player 1 to Player 5 for that match. I have shown in my example inside the excel. I know the formula for how to find for matches using my combination. But i got no idea on how i can color it with the respective colors automatically.
Yellow = all four W
Red= all four L
Green= will have 3 W and one L
Blue = have three L and one W
I am going to try to be as detailed as I can here:
I have been manually inputting the most recent "paid to date" field from one sheet to another within the same workbook.
There are about 20 different payment schedules for each deal. Each of these has their own sheet, and we will call this the "Deal" sheet. Some deals are paid based on a monthly schedule, some are quarterly, and others are annual.
The "deal" sheet looks like this:
Due Date Payment Payment Rcvd Remng Payment Payment Date
8/31/08 $10,000.00 $10,000.00 $0.00 08/1/08
9/31/08 $10,000.00 $10,000.00 $0.00 09/1/08
10/31/08 $10,000.00 $10,000.00 $0.00 10/1/08
11/31/08 $10,000.00 $10,000.00 $0.00 11/1/08
12/31/08 $10,000.00 $10,000.00 $0.00 12/1/08
1/31/08 $10,000.00 $0 $10,000.00
I want to have a macro that will paste the most recent "Due date" based on a zero value in the "Remng Payment" column. For this example, the most recent "Due Date" should be 12/31/08 because that is the most recent zero value.
I want to past this value in another worksheet that contains a report for all 20 deals. Lets call this the "Reports" worksheet. Each of these dates individual deals needs to be applied to its respective row on the "Reports" worksheet in a "Paid to Date column.
I have a worksheet in my Excel wookbook that references particular cells from another sheet. I use a simple macro to alter the values in some of these cells, but for some utterly bizzare reason, the cells referencing them are not updated. The only way to update the cells is to click on the cell and press Enter!
I've never had this problem before.
Does anyone know why this is, or perhaps know of a line of VBA code that updates every cell on a particular worksheet.
I often look at utility data (start date, end date, use, and cost) and have a large list with up to several years worth of monthly data. I am trying to write a formula that will automatically sum the last 12 entries of "use" no matter the amount of lines; be it 12 or 112.
View 2 Replies View RelatedIs there a way to automatically move cells down after I entered data in it? This way I do not have to scroll all the way to the bottom of the list to add new data.
View 5 Replies View RelatedIs there a way to automatically conditionally format each column in each row, when either open, closed or cancelled is selecting from a drop down in the Status column. For example every cell is blank in colour, but if I select open in the drop down menu for row A2, the entire row will turn Red. Just wondered if there is a way instead of individually formatting every row separately. I would like to be able to copy the formula or whatever down the entire sheet.
View 2 Replies View RelatedI was wondering how I could automatically enter a value next in a sequence in a cell when an adjacent cell has data in it and continue doing so indefinitely (or until the 65536th row). I could do this with autofil, but The sequence starts in the middle of the worksheet (there is a title and document data in the top few rows). The layout is as follows:
Cell A17 has "Part 1" in it (and always will before the form gets filled out), and all cells in colum A beneath that will be blank. Column B is where the user enters a dimension. So, at the start, entering a value into cell B17 won't do anything. However, if they enter a value into cell B18, I would like cell A18 to automatically be filled with the next part number in the sequence (in this case, "Part 2" in cell A18). The user will never skip rows when they enter data so the sequence will always be +1 to the previous cell in the column.
I'm doing this so they can just print out the completed sheet and not have to edit out the empty "Part *" cells that have no corrosponding dimensions.
Is there a simple way to tailor autofill to do this or would I need a macro?
I currently have three worksheets and I'm trying to keep the data the identical throughout all three worksheets in cells B6-B9. I need to automatically update the same cell on the other two pages with the data from the edited one. Meaning if cell B7 is updated on sheet 2, that same data would be updated in cell B7 in the other two sheets, or if cell B9 is updated on sheet 3, that cells B9 on sheets one and two would have that same data.
View 11 Replies View RelatedI'm needing to import a .csv into another software and it needs the fields formatted a specific way.
The spreadsheet I've been given has columns for different departments and an X to denote if they fall under it. As an example.
Name
Sales
OHS
HR
Joe Bloggs
X
X
Bob Smith
X
John Doe
X
X
For the import into this software it needs the fields like this, the name in the cell has to be exactly the same as the column header.
Joe Bloggs
Sales
HR
Bob Smith
OHS
John Doe
OHS
HR
Is there an easy formula to scan the row, if an X is found substitute the X for the column header text and if no X in a cell delete it and shift all cells to the left within the row ?
The substitution is quite easy and I've played around with lookup or if statements to quite easily do that but the bit I'm having trouble sorting is removing any unnecessary cells in that row so only cells with data are listed in the row.
When I click on a cell, for example T13, cell U13 will also automatically be selected. I have looked everywhere for something that is making it do that, but can't find an answer.
It doesn't happen with every cell. I have to do some more clicking around to see if there is a pattern.
I have a workbook with dozens of filled cells.
The cells contian the file names: "filen_name.extension" (for example word.doc)
Also I have these files located in some directory.
Is there any possibility to add simoltaneously links to the cells which contain the appropriate file name.
I have a workbook that contains part numbers and their components listed like below. There is always one empty row between the part number and the components, and then 3 empty rows between the last component and the next part number.
The number of components varies from sometimes only 1 up to 25. Currently, I select a part number and its components like B1:C5 and then I have a macro that copies it to another workbook. What I would like to do is somehow get the macro to automatically select the next set down, in this case, B9:C14, so I could copy every set over to its proper place with only one click of the button.
how to alter this Private Sub for my code to execute automatically once all 3 cells have changed. At the moment it executes as soon as any of the 3 cells change.
Here's the Private and Public Sub codes: