My data looks like this in one sheet:
A
2
B
C
D
1
E
F
3
G
H
I
Where A is associated with 2 other letters, B and C. D is associated with one other letter, E, and F is associated with 3 other letters. I want an automated way to paste this into 2 columns in a new sheet, like this:
A
B
A
C
D
E
F
G
F
H
F
A
2
B
C
D
1
E
F
3
G
H
I
On the attached Excel file, I have code that will insert a variable number of rows and copy and paste from and to variable positions. That all works fine when run from a command button, but when I try to run it from the Worksheet_Calculate by entering 1 in J1 or K1 (inrange cell is J1+K1 for testing purposes) the CommandButton1_Click sub runs continously until an error occurs.
View 4 Replies View Relatedget this macro to paste the formula across to a variable number of columns? It is falling over at
VB:
Range(Cells(5, .Columns.Count)).Paste
VB:
Sub Clear()
'
With ActiveSheet
[Code]....
I am looking to place a formula which will look like this:
=min("A2:?2"), where ? depends on "number of columns". If number of columns is 4, then it should be D, E or Z. Number of columns is specified as an integer in range("B2").
I do not want to do it in a macro, want to do it in the formula.
I have done this before, but can't quite remember. I have tried:
=min(range(cells(1,2),cells(1,2+B2))), but does not work.
I have two variables - the number of stages, and the number of people.
The stages will start in say C22 through G22 (if there were 5 stages). The number of stages will vary upon a user-inputted number in A1.
The names of people will start inB29, so I'd like to insert the simple formula (=Max(C23:C28)) across cells C29-G29 (again with my example of 5 stages), with relative references to the columns, of course.
Ditto for the next name in B30, etc, so that I get the max value for Person#1 in Stage 1, 2, 3...Person#2 in Stage 1,2,3...
Inserting the formula over the dynamic ranges.
I have a sheet with a company name in column A, and a list of comma separated values in column B. I can easily convert column B to multiple columns with the Text to Columns function, but then I'd like to insert each individual value in a new row in column B.
So, at the moment I have data that looks like this:
Company A
Value 1, Value 2, Value 3, Value 4, Value 5
Company B
Company C
Value 1, Value 2, Value 3
[Code].....
I am working on a macro where I am creating a formula to string together some text columns and then copy the formula down the entire column. The data source I will be performing this on will change in number of rows period to period. The data would be in columns A,B & C and the formula is in D. The formula in D is stringing together the data in AB & C and then I want to copy and paste that formula down to the bottom of all of the data. What would the code be for the copy and paste with variable rows?
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
Example;
Cell 1 equals a number
Cell 2 is the number entered into cell one times(X) 35 up until the number 6 is entered. Any number above 6 is Times 50. So. 1-6 is times(X) 35 while 6+ is Times(X) 50.
I am. Here's another example:
A salesperson gets a commission of $35 for each widget sold up to the first 6 widgets. If he sells more than six widgets, he gets paid $35 for the first 6 and $50 for anthing over 6.
The sales person will enter the number of widgets sold into a cell and the formula should do the rest.
I have been stuck on this for months.
So I have the first part of my equation and it works fine. The equation is in Column D.
=IF(ISERROR(FIND("Van",A7,1)),"",B7*C7+50)
What I want it to do is: Combine the above for Col D with: if the Unit Name Column (A) says anything EXCEPT Van, I want it to multiple Cost (Col B) by QTY (E) and put the total in Col D.
I need to copy cells M6 to S6 down to all rows in a worksheet. The columns will remain M to S. The number of rows however vary in each worksheet.
How do I get the macro to read "End Down" with varying number of rows. I will need to do other functions also using "End Down" so if possible is there a generic code for this.
Inserting Variable Number Of Rows and Populating Data
View 10 Replies View RelatedThe workbook I have created will allow user to set up records for customer pricing. The code below is the module that will check if the file already exists and if so it will add the new record to that file and If it does not exist it will go to a nother module to create a new workbook.
View 3 Replies View RelatedI have two sheets
sheet1 and sheet2
What i want to do is this
if (a1 in sheet1) is found in (e1:e30 in sheet2) to copy cell from collum C (row which the value was found in) to (a4 in sheet1) if there is more then one then copy the next one to a5 in sheet1 etc
I have tryied vlookup hlookup but this does not work
I have two columns of data with a minimum value in the first column and a maximum value in the second column. What I'm trying to get is an indicator in a third column which tells me if a whole number falls at or between the minimum and maximum values. Here is a sample of my data:
A1 B1 C1
0 0.1 TRUE
0.2 0.5 FALSE
0.6 0.8 FALSE
0.9 1.2 TRUE
1.3 1.6 FALSE
1.7 2.0 TRUE
I have an Invoice setup for a Car Servicing Garage in excel. It does a few things:
1) On saving the workbook it will take a jpeg screenshot of the worksheet and save it locally
2) The name of the created jpeg file is taken from cell B9
Cell B9 contains the vehicle registration number. So, obviously my problem is that if a the same car comes in on more than one occasion (which happens frequently), the original jpeg will be replaced as the file name is not appended. This will mess up the invoice records. So what I would like is for it to acknowledge that a jpeg file with that name already exists and to just append a "_1", "_2", "_3" etc on the end of the original jpeg file name for the new jpeg file name. I have attached the my excel file so ideally, if someone could insert the necessary code or PM me that would be great.
I have a spreadsheet with columns set up like this: RowName, Date, Value1, Value2, Value3 etc. The date is in format YYYYMMDD. What I am trying to do follows, in some sort of pseduo fashion.
View 2 Replies View RelatedIs it possible to search a directory looking for a particular file, then if found, copy the directory and all its contents to another location?
it should be noted that not all of the files will be *.xls.
I have declared a 'long' variable. however; how do I change the variable data type to string if user input is not a number? how do I recognize the user input's datatype?
View 7 Replies View RelatedI need a macro that will create a sheet at the end of the workbook.
Sum data from a variable amount of sheets and display that data on the created sheet.
Here is a step by step:
Starting on sheet 5.
Column D has a variable amount of part numbers in it. These part numbers would be different between the ascending sheets.
Column T, U, V has an inputed number in it that would need added up across all duplicate part numbers in all the sheets.
(Note: The data would also need started on row 4. Everything above row 4 is headers)
Here is a small example:
D E T U V
13019090W Part A1
68705500 Part B1
64202900 Part C-11
59634600 Part D1
26005300W Part E1
I need the macro to start with sheet #5(starting on row 4). Check to see if there is data in column T, U or V. If there is, to create a new sheet at the end. And copy the entire line into that sheet (starting on row 4).
After that, to check every sheet after (excluding the newly created one, starting on row 4) for data in Column T, U and V. And then check for duplicates in Column D on the newly created sheet. If there is a duplicate to add/subtract that number in Column T, U and V to the SUM in column T, U and V in the newly created sheet. If there is no duplicate, to copy the entire line to the new sheet.
So that when finished. On the new sheet, you have the SUM of T, U and V for everything that has data in T, U or V for all of the previous sheets, plus the entire line of the first instance (excluding the first 4 sheets).
I have a spreadsheet that contains data that needs to be copied over to a new worksheet if it contains a Date. For instance, if a Date exists in column F on worksheet1, I want to copy the entire row's contents from worksheet1 to the next empty row on worksheet2.
As it stands now, the data ends on row 67 in worksheet1 and ends on row 221 in worksheet2. So, if there is a date in F30, I would like to copy all of row 30 and past it into row 222 on worksheet2.
I require a row of details to be copied to another worksheet by typing in a unique ID using a macro so Sheet 1 is a data base of items (every item have a unique code like 1001, 1002 etc) and sheet 2 has a table, and next to the table is a cell, which i need to work like a search engine.
i need to be able to type the unique id in a cell, in sheet 2, then click an Add command Button. This button then finds the unique id in sheet 1, and copies all the items details in the same row, into sheet 2 in the table, then i require the search engine to be cleared for the next item to be added. (Assumed Experience:Below Average, I know few formulas and know very basic macros)
I need a formula that will look into a range of data and tell me whan the last time a value exceeded 0 (working backwards).
So below the first row would return a value of 6, the next 5, the next 0, the next 1 and so on....
I can do it with an if formula but the amount of days it will be looking at will be too many, plus the range will keep growing as time passes.
FriSatSunMonTueWedThuFriSat
222000000
111100000
111100011
110111110
000111111
000000011
111111111
111111111
5117400000
564000000
8110660000
0000018171318
I have a worksheet which contains certain sections. I want to create a macro which will run if data is input into those sections. This macro should copy whatever was entered into another worksheet automatically as data is being entered. Is there a way for that?
View 8 Replies View RelatedI have attached an Excel workbook to try to help explain my problem. At the moment I am completing the following process manually but wonder if anyone knows of a way I can automate the process:
The data collected from the instrument are in columns A and B. I need to copy the data from A2:A99 (i.e. the highest angle to the lowest angle) into column G (starting in cell G9). Then copy the corresponding torque values in B2:B99 into column E (starting in E9). I then need to copy the next string of data from A100:A210 (i.e. lowest angle to the highest angle) into column AU (starting in cell AU9) and again copy the corresponding torque values in B100:B210 into column AS (starting in cell AS9).
I need to continue this process of copying the highest angle to lowest angle then lowest angle to highest angle and the corresponding torques from columns A and B respectively into the following columns.
Column Copied To Copy From A Copy From BRow Number
O M 211:323
BC BA 324:427
W U 428:533
BK BI 544:634
AE AC 635:738
BS BQ 739:842
AM AK 843:947
CA BA 948:1052
To complicate things slightly I have many data sets that I need to do this with and need to be able to use the formula or macro to also process these, however the length of the string of data (i.e. the number of values between highest and lowest angles) is different for each string of data therefore it is not as straightforward as copying the same number of values each time, so the formula or macro needs to look for the highest angle then the lowest followed by the lowest angle then the highest.
I would be extremely grateful for any suggestions or help you may be able to provide as this could save me days of data processing.
I have a very big list in one column with the customers name and its account number. I am looking for a way to extract just the number from the cell.
I am aware of the 'fit data to columns' option but some of the customer names have an inconsistant number of spaces to assign a delimiter.
I am using a variable named " Totals" as a range type to refference the range in a formula. It works the way I have it.
Dim Totals As Range
Set Totals = [U37: AE37]
Now instead of the absolute refference, I would like to change the row refference by an offset of my current row, using a formula with a varriable. The columns stay the same.
I have the following within a macro:
Code:
ActiveCell.FormulaR1C1 = "=WEEKDAY(RC[-2],2)"
Range(Selection, Selection.End(xlDown)).Select
Selection.FillDown
Calculate
I want to add to it so that it only fills the formula down as far as there is data in the column to the immediate left. (eg this fills down column C as far as the data goes down in column B).
I have the following data set:
1
Test
2
Testing
3
Test 3
4
Test
Exists on line 1
5
Test 5
6
Test 6
7
Testing
Exists on line 2
So basically I'd like to know if there is a duplicate line item what line item the duplicate actually exists on. Is there an easy way to do this with a formula?
Right now, when selecting "Sheet2", this macro auto runs, and does it's thing. Is there a way to code it so that upon selecting sheet2, if data exists in the cells, make the macro go to the end of the list? For instance, this macro is great the first time someone goes to sheet2, but if they begin putting data in, and need to go back to sheet1 to reference something, then come back into sheet2, this macro runs again and moves the focus to the cell I coded. I need it to realize that there is now info in the cells, and move not to the selected cell, but to the end of the newly entered data.
Sub Macro3()
FinalRow = Cells(65536, 1).End(xlUp).Row
If Range("Manual").Value = True Then
Sheets("Usage").Activate
ActiveWindow.SmallScroll Down:=48
Range("A11").Select
Else 'assume Manual is false if it is not true above
Sheets("Usage").Activate
ActiveWindow.SmallScroll Down:=49
Range("A59").Select
End If
End Sub