I was tired of making my list smaller to upload it here, so I uploaded the complete thing on megaupload :P Here is the link:
http://www.megaupload.com/?d=1W6PBADE
On the bottom of the list is a button; "Add New Anime". When you click on that you get a UserForm where you can enter; Title, Type, Total Episodes, D/L Eps and Watched Episodes. When you press ''Add Anime" the entered values are entered at the bottom of the list, underneath the corresponding list names on the top.
Now there are 4 list names left (Left, Status, Status 2, and Progress (%)) I still have to make a option to enter Status 2 as well in the UserForm.
Now the question:
In columns F (Left), H (Status) and I (Progress (%)) are formulas. How can I copy those formulas automatically when I add something new with the UserForm? And can it automatically insert a new row, since I have to move the buttons down with every new title.
I have a spread sheet that I have locked with the expection of certain cells. I also have left the ability to insert and delete rows. The cells that are locked have functions in them run in sequance.
Is there a way that when the new row is inserted its copies the formula from the row above automatically but also adjust for the new row and adjusts the rows below it automatically?
For example if I insert a new row between rows 2 and 3 below. (orginal layout) a1 (unlocked) b1 (locked)(function is =sum(a1:b1) a2 (unlocked) b2 (locked)(function is =sum(a2:b2) a3 (unlocked) b3 (locked)(function is =sum(a3:b3) a4 (unlocked) b4 (locked)(function is =sum(a4:b4)
(layout after inserting row) a1 (unlocked) b1 (locked)(function is =sum(a1:b1) a2 (unlocked) b2 (locked)(function is =sum(a2:b2) a3 (unlocked) b3 (unlocked) *inserted row* a4 (unlocked) b4 (locked)(function is =sum(a4:b4) a5 (unlocked) b5 (locked)(function is =sum(a5:b5)
this is what i want the end product to be. (layout if formulas are copied and adjusted after inserting row) a1 (unlocked) b1 (locked)(function is =sum(a1:b1) a2 (unlocked) b2 (locked)(function is =sum(a2:b2) a3 (unlocked) b3 (locked)(function is =sum(a3:b3) *inserted row* a4 (unlocked) b4 (locked)(function is =sum(a4:b4) a5 (unlocked) b5 (locked)(function is =sum(a5:b5)
I'm not great anyways with VBA Macro.Effectively, here is my issue. I have a spreadsheet which is really badly designed.In one column I have multiple numbers separated by a comma. I need this data separated into new individual rows, but at the same time, copying the data in the other columns in that row to the new row.
Example of what I have:
Test 1 54 email1 Test 2 32, 343, 63, 34 email2 Test 3 4934, 5342 email 3
What I need:
Test 1 54 email1 Test 2 32 email2 Test 2 343 email2 Test 2 63 email2 Test 2 34 email2 Test 3 4934 email3 Test 3 5342 email3
I have have the following code below which paste everything into a new column and into a new row, but the problem I have is that it does not push the other rows data down, nor does it copy the 1st rows data (for that data set) into the new rows created.
Code: Option Explicit Sub Macro1() Dim fromCol As String Dim toCol As String Dim fromRow As String Dim toRow As String Dim inVal As String Dim outVal As String
[Code] ........
The amount of rows I have, so this manually (text to column, then transcoding etc) it out of the questions (i have 1000 rows of this!)
I have generated some dates that appear in column a. I want to make a macro that copies lines from sheet 2 and inserts them between the appropriate dates in column a sheet 1.
eg: A 1/1/01 23/1/01 4/2/01 5/2/01 7/2/01
sheet2: 2/1/01 23/1/01 6/2/01
outcome: A 1/1/01 2/1/01 23/1/01 23/1/01 4/2/01 5/2/01 6/2/01 7/2/01
the lines will also have 2 other fields for copying (description and amount). I will also need to copy formulas to the inserted rows in some columns (eg balance) but not all (not the date column).
On sheet "Create Package" in cell "AA14" I have a value (lets say 2).
I want it to go to sheet "Samples" and insert a number of rows equal to the value on sheet "Create Package" cell "AA14" (so 2 rows)
I have a header row in row 1, so I would like it to insert the designated number of rows beneath that.
Then I would like it to copy a designated number of rows (based off of the "AA14" value, so 2) from the "Create Package" sheet starting at row 66 and then paste special values into the new rows that were inserted on sheet "samples".
I am attempting to create a template to make time and dollar budgets for various projects easier to create (20 plus projects a year with varying number of employees).
I want to have a template in which you input the number of employees working in a cell (IE. 3 employees), and with that the table expands to have enough rows to have 3 employees data input. However, only insert the number required but not overriding "totals" row below. With the new inserted rows I would like to keep the same format and formula for the row it was based on.
I have a spreadsheet with a lot of financial information going down a column (about 500 rows down). Most of the cells are just typed in, but certain rows have sum formulas in them. Is it possible to copy values from another workbook, paste the values in, but somehow keep the formulas that are running through?
I'm working on a spreadsheet that tracks project accepted and done over a course of time. I am expecting the data to eventually reach the thousands in a year's time. I have several formulas in specific columns that I need to replicate as the user enters new data into the next row.
While it is easy to copy paste the formulas from the cells above, we are looking to save time by having the sheet do this automatically which also prevents the user from accidentally deleting/modifying the said formulas. I am also looking to save file size which is why I am considering doing this in VB. An example of a formula that I need to move down into the next column is:
If I have formulas in A1, A5, A19, and A36, highlight them with goto, how do I move them into B1, B5, B19, and B36? Copying and pasting puts them in B1, B2, B3, and B4.
I need to be able to copy a formula from a row that is 180 rows before the current cell.
I then need to edit the formula so that the rows all start at 6. then i need to change the column references.
The formula that I am editing looks like this after it has been copied from before:
=IF('Entry Form Portrait'!$d870="m",IF('Entry Form Portrait'!$n870="a",'Entry Form Portrait'!$a870,""),"")
So I need d870 to be changed to d6, the n870 to be changed to o6 (current column +1), the a870 to be changed to a6.
Then this resultant formula to be copied to the next column and a6 changed to b6, then copied to next column again and b6 changed to f6.
Then all 3 columns to be copied (or autofilled) down 105 rows.
I tried to do it by recording the macro, however it only works for the first time that i use it, and then just keeps repeating in the same place. I need it to use the cell i have selected as the starting point.
I have cells (all in one column) containing text separated by commas e.g. (SD-299, SD-200, SD-300)
I am trying to transpose the text in these cells into rows.
VB: Sub SplitAndTranspose() Dim N() As String N = Split(ActiveCell, ", ") ActiveCell.Resize(UBound(N) + 1) = WorksheetFunction.Transpose(N) End Sub
The problem with that is that when transposing it does not shift the cells down (/ insert new rows) so I lose the data already in the cells underneath.
Also, that macro would only apply to one cell I would like to be able to apply it all the data in the specific column on my Sheet.
see the attachment. You will see that I have recorded two macros:
1) To insert a new row for new people. 2) To insert a row for new animals.
With regards to 1), I would like to create a macro that copies the contents of the row with the penultimate name in the people section, and for a new row to be inserted beneath the copied cell. Similarly, with regards to 2) I would like to create a macro that copies the contents of the row with the penultimate name in the animal section, and for a new row to be inserted beneath the copied cell.
The issue that I have is that the macros do not copy the penultimate cell in each section, but copy a particular row, say row 11 each time I want to insert a new animal. So if I had inserted numerous new rows for the people section, and subsequently wanted to insert a new row for the animal section, I press “crtl+sht+a” which copies the contents of row 11 and which is not the contents of the penultimate row for the animal section.
I'm trying to write a macro that inserts multiple rows by giving user a MsgBox to enter the # of desired rows. Meanwhile, I need to make sure that the formulas in certain cells are filled down (not just copied from cell directly above). I put something together but it's only adding a single row. Attached is my sample workbook.
Is there a way for a macro to be not active when trying to insert a row or a way to have the macro understand that it's just a row shift? I'm trying to have a time stamp that anyone changes the value in a column. The following code generates an error 1004: application or object defined error when I insert or delete a row.
I have the macro to insert rows every nth row, but need to be able to insert text into that nth row.
I have a list of addresses and every 10 addresses i need to insert a 'seed' which will be have the same details everytime. This is what i have so far...
Sub InsertRowsMod10() Dim r As Long r = 10 Do Until Len(Cells(r, 1)) = 0 Rows(r).Insert Shift:=xlDown r = r + 10 Loop End Sub
I`m making a list of gas and electricity readings and want to show the difference between the last reading such as =h5-h4 and then the next to show =h6-h5 and so on. How do I copy this formula for subsequent rows or columns.
I'm trying to copy multiple rows with a macro. Below code lets me duplicate one row at the time and the duplicate is inserted just below the chosen row.
I'm trying to create a macro that examines a sheet of data, and if the data in a certain column (column P) contains either A,B, or C then it would copy the entire row over to another sheet. If it contained a blank or D,E, F, etc,etc then it would just ignore that and move to the next row.
I have no idea where to start, i've searched google and here on Mr.Excel.
I have a spreadsheet that has formulas in cells C3 to C10 (cells C3 to C10 have =(sheetc), (cells C3 to C10) formulas. I want to be able to add a row somewhere in between those cells and have the that new row take on the same cell formula as the others...resulting in cells C3 to C11 now having formulas..
This Code is Pasting "A1" into the destination - format and all. I need it to only paste in the value.
Sub test() Dim lastrow As Long lastrow = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row Sheets("Sheet2").Range("A1").Copy Destination:=Sheets("Sheet1").Range("A" & lastrow) Application.CutCopyMode = False End Sub
Why does my macro mess up on second line C23 and not places Play Equipment or the amount in the right column it stays on row C22
[URL]....
Code:
Private Sub CommandButton1_Click() Dim SheetName As String SheetName = "Estimate1" SheetName = InputBox("enter the name of a sheet to use", "sheet name", SheetName)
I have a very simple inventory spreadsheet that I used to keep track of certain products. The issue is that I often have to insert new columns and when I do, the formulas get convoluted. Is there a trick to making them follow the structure of the formula before?
My formula is =SUM(GT4:GU4) and appears in the Running Total column. When I insert two columns - a white column where an order will be inserted, as well as a running total column. When I perform the insert, the formula for the inserted columns, as well as the set of columns immediately to the right require corrections:
Inserted columns: =SUM(GT4:GW4) [Should be GV4:GW4] Columns to the right: =SUM(GV4:GY4) [Should be GX4:GY4]
I know how to manipulate the formulas correctly, I would like to keep a clean file for my predecessor.
I am wanting to build a macro to calculate the average of a range of cells. I have about 2000 lines of data, and I want to average the first 12 cells (then paste the answer somewhere else), then average the next 12 cells, and so on. Using a loop to do this is simple enough. My problem is that I can't insert variables into the average formula as the cells to be averaged
Sub AutoAverage() For x = 0 To 20 For y = 0 To 171 FirstRowRef = Workbooks("NP FT01-03 010206.xls"). Sheets("NP - FT01") _ .Range("a5").Offset(12 * y, 12 * x) LastRowRef = Workbooks("NP FT01-03 010206.xls").Sheets("NP - FT01") _ .Range("a16").Offset(12 * y, 12 * x) Workbooks("Mega Spectrums.xls").Sheets("NP - FT01").Range("a5").Offset(y, x).Select ActiveCell.FormulaR1C1 = "=AVERAGE(FirstRowRef:LastRowRef)" Next y Next x End Sub
I have a long list of inventory parts and there can be additions or deletions at any time. Currently the inventory is determined using formulas from other worksheets and this uses formulas. If I have a user insert a row to create a part in inventory, is there a way to make the formulas automatically be created in the cells within the row?
I am looking for some VBA programming that will allow me to use 1 button to consolidate rows (delete them). The problem I am running into is that the rows I want to delete have formulas in them so I can use "find all blank cells & delete" type of macro.
Capture.PNGCapture1.PNG
Attached are a couple of brief images on a small scale what I am looking to do.
I want a user to be able to have this sporadic list of choices, consolidate them so the are all one right after each other, then export to a word file for editing later on.
I have 2 speadsheets, I want to copy rows of Formulas from Spreadsheet 1 and copy them into Spreadsheet 2 but convert them into Values.
Is it possible to create a button on Spreadsheet 1 and assign macro to do exactly what i want? I also want the macro to look for the first empty row in the database so that the information being copied are on the next row and not overwritten.