This question would be much easier to get if I could copy paste my sheet for a look!This sheet is being coded for a test that will be taken repeatedly.
B1 to Z1 are various variables(1,2,3,4...25) while B2 to Z2 are the status of each variable(yes,no).AA2 gives me the accuracy of my test(14/26).I have used 2 countif formulas for this with a "/" in between.A1 asks current instance of test which is filled in A2(1st, 2nd, 3rd).
What I want to do is each time the user tries to change the param in A2, cell AA2 gets copied somewhere with the Test instance(Instance 1-14/25, Instance 2-12/25, Instance 3-20/25) so that I can make a dynamic bar graph out of it i.e. the bar graph tells me how I'm trending in my results inclusive of the last taken test.
I'm confused cos while I can make a cell pick up the value of another it takes the most current value with no...memory of the last test.
how can I combine the Formula =(SUM(A2:A100))/(SUM(B2:B100)) with setting a value of the cell D2?
What I want would look like this (in column C):
=(SUM(A2:A100))/(SUM(B2:B100)) with the condition that D2=0 =(SUM(A2:A100))/(SUM(B2:B100)) with the condition that D2=100 =(SUM(A2:A100))/(SUM(B2:B100)) with the condition that D2=200 =(SUM(A2:A100))/(SUM(B2:B100)) with the condition that D2=300
and so on.
The point is that the values A2 to A100 are dependent on the input value in D2.
I have a template workbook and a macro that finds lines of data in a source workbook and copies parts of it to the template workbook. It then deletes left-over blank rows, leaving a summary section just below the last row. There is a formula in column C of the summary section that gets messed up slightly by the deleted rows, specifically a cell reference within the formula that refers to data on another sheet within the same workbook.
On the template the original formula is in cell C1667 of a sheet entitled "2014" and reads...
[Code] .....
After the macro is run, lets say that for argument sake, we end up with 13 rows of data that got copied across to the template, the data exists in rows 3-13 and excess rows have been deleted. The above formula now sits in cell C16, and reads....
[Code] .....
The last cell reference in the formula has not updated itself to row 13, I believe because it refers to another sheet.
I would like to add in a line of code at the end that will find which row the formula sits at in column C after excess rows have been deleted, and correct it, so that for this example, it would end up being this....
[Code] .....
The formula will always be in columns C but what row it ends up on will vary.
I have a macro which inserts rows at certain places in a data table. This works fine. I then want to copy the formulae from the the row aboove or below (dependent on certain criteria). This sort of works.
I have is that when the row is copied, the row numbers within the formulae do not change relative to the new row. Eg if I copied down "=A6" one row, the formula still says "=A6", rather than "=A7".
I have tried variations of
Selection.PasteSpecial Paste:=xlPasteFormulas
I also tried the AutoFill method (but this didn't work at all when I tried it with a whole row)
Previously, I would have selected ranges and then pasted on the active sheet. However, I am trying to re-educate myself in writing macros that do not 'select' ...
First need to create a "Text" Folder in your desktop, then try running the macro. It will create a number of text files inside the "Text" folder.. And they contain the used cells from each row. It's supposed to create 982 text files, with the text name referred to the first column. Problem is, if you try running it, it will only create around 53 text file
I am building an interactive sheet to profile a number of divisions based on a summary sheet of about 1200 rows and 90 columns of profiling criteria
I have attached an example but essentially:
1. I would like to be able to select from a list a value which would also be a named range title 2. Have the range information transposed into a row
What works: 1. I can transpose the range information when I use the following formula I used OFFSET(Governance,COLUMN()-MIN(COLUMN(HGovernance)),0)
The problem: I cant get it to use a cell reference (i.e. When I select Governance out of a Drop down list of Finance, HR, Governance etc). Having to type in "Governance" to bring back governance range information is fine, but not great when I am trying to profile the Finance or HR division as it then becomes too manual.
I've created a User Form to input data on a dashboard where you can select a date from a dynamic list of dates. The list of dates is calculated using:
Code: =(TODAY())-WEEKDAY((TODAY()),1)+2 The other dates are based on this date -7.
The User Form code:
Code: Private Sub CommandButton1_Click() Dim emptyRow As Long 'Make Sheet30 Active
[Code]....
This works perfectly for any date except dates from December. 3/12/12 (3rd Dec) turns to 12/3/12 (12th Mar) when it's copied to the cell. The same happens for 10/12/12 - becomes 12th October instead of 10th December.
I'm trying to search for a column by looking for a specific column header and then format the entire column in the specific number format desired, but I keep getting an error message with this line.
Code: With Rows("1:1") .Find(what:="Go Live Date").Column.NumberFormat = "m/d/yyyy" End With
I have currently written a macro in excel 2003, it doesn't run on excel 2007, or some versions of 2003, I realize this is due to missing references, I was curious if there is any way to write code to actually prompt or install these references using VB. This way novice users can use the macro by themselves.
At the moment it fails on code such as
ans = MsgBox("??", vbYesNoCancel, "Title") saying ans is not found "Compile Error: Project or Library cannot be found"
I can avoid these errors by dimensioning everything as a string or variant. BUt doing this will use more memory which is not desired at the moment as it sometimes exhuast available memory on some machines.
A database spits out a 42-column (A-AP) and 3,000+ row csv sheet of raw data with column headers. Frequently (due to improperly inputted information), there is a random line break in the middle of a cell, resulting in data that should be in columns Q (or R or S) - AP winding up in columns A thru Y (or Z or AA).
The only data that is consistent is in column AC.
Basically, I need to delete any blank rows and pull the incorrectly wrapped data up to complete the row where the split occurred.
Upon examination of the csv file in Word, there are instances of improperly placed paragraph marks (^p), which can easily be searched and replaced—in Word (by replacing each column A data with a unique character and the same data, deleting all paragraph marks and then replacing the unique character with a ^p.
Firstly, I'm not sure how to accomplish this same task in Excel and secondly, doing so brings the data into the proper rows but it doesn't fix the varying number of blank cells. Simply deleting blanks and shifting left doesn't work because the split often occurs in the middle of a cell which would require concatenating. But I would be ok deleting the latter part of the data so the columns align if need be.
In the attached example sheet, I highlighted the relevant data and what needs to be aligned. There is an ideal and an acceptable version in addition to the initial way the csv imports.
I want to automate the Display labels in my Charts using VBA Coding…
I would need to use this small code in Charts with different Scales as some of the Scales in my Data are in a very large Range close to Trillions so its not possible to have these as the Primary-Y-Axis Scale and therefore I would need to use the in-built Display label option which Excel provides..
However, I always prefer to have the scale in the Range of Thousands so the Max I can have in the Scale can be 10,000 so if there is any Number more than that or the Scale is going above than I would prefer that this gets auto-calculated to Multiply with the remainder and show appropriate Scaling.
For Ex:In this example My largest Number is 4500000000 which is 100 M..So I would want the scale to show 4500 and the Display label as X Millions..
So The Display Label would be different for different Ranges but the Max Scale preffered would be 10,000.
I keep getting a type mismatch when I run this code. The code worked fine until I added the last condition to check if the left most character of the active cell is a number.
Do While ActiveCell.Value vbNullString If 1 >= Range("L" & ActiveCell.Row).Value / Range("AS" & ActiveCell.Row).Value And Range("L" & ActiveCell.Row).Value / Range("AS" & ActiveCell.Row).Value >= 0.9 And IsNumeric(Left(ActiveCell.Value, 1)) Then myCountA = myCountA + 1 myCandA = myCandA & " " & Range("B" & ActiveCell.Row).Value End If
I have a user form which I would like info entered into various text boxes to be assembled in a way which can be copy and pasted. See the attached example to see the results I am looking for.
I want to transpose the data set. I am using the following formula
HTML INDEX(Dataset!$B$2:$Y$13366, MATCH(B$1, Dataset!$A$2:$A$13366, 0), MATCH($A2, Dataset!$B$1:$Y$1, 0))
But there seems some problem with the reference of year (I want the range will change From A2:A15 then it will start from A17:A31 like this until my row ends at 13366).
I have very large sections of data which I need to transpose as links. Problem is that the copy/paste links function cannot be followed up with the copy (the linked cells)/transpose option, without having the transposition screw the links up.
I have a list of numbers in Col.A which can be variable in length.The objective is to copy these numbers into Columns with 3 col gaps in between.So the objective is that these numbers are listed horizontally (with 3 col.gaps separating each nr).To achieve this I have written the script below. However, as the orig.list of p/ns in Col.A can be variable, I would like to perform the transposing in blocks of 10 numbers.The transposed end product should be listed 10 numbers in each row (with 3 col gap between)rather than in one row. how to modify my vba script to do the above?
Code: Sub TransposeSkippingColumns() Dim c As Range Dim i As Long
I have an excel spreadsheet with my students' grades on it. I want to be able to click on a student's name and have a list of all the assignments, along with only that student's corresponding grades, transposed on a new sheet so that I can print out to give to a parent.
I have a column of numbers going down the sheet in column A.
I need to concatenate all the numbers in each cell in the column and separate each by a comma. This would then be displayed as a long list all in cell B1.
I was recently helped very much by the forum moderator and code from D_Rennie in a file to transpose about 25,000 rows into a few organized columns. The code worked very well. I have a slightly new twist on the problem. I have uploaded a different file with a different data structure in the columns but the same need for the data to be transposed to the columns under the same headings. This VBA worked very well before, but I can't seem to re-use it for this new dataset.
I have a set of chemicals from groundwater tests at various wells. I need to sort the data, but chemical names can prove to be frustrating, since often times numbers or letters are found before the chemical name. Essentially, I'm trying to sort like this example:
Further complicating things is that at the end there's a (m,p-Xylene) and (o-Xylene) thrown into the mix.
Is there an easy way to do this sort? I imagine I'll have to have some sort of reference list that the sorting looks to?
After I sort it and do some data manipulation, I have a macro that transposes the data like the example below:
Here's the macro:
Sub Step4_ReorgData() Dim w1 As Worksheet, wR As Worksheet Dim c As Range, LR As Long, NR As Long, NC As Long Application.ScreenUpdating = False
I ve got a similar issue with converting the rows to columns... At the file I attached below, I need to convert to columns some sort of data which is organized as rows. They are all set up as 12 cells in a row and I need to convert them to a single column which keeps the time references of the data. I mean, both of the data and their years will be needed for my aims, but it is not important to keep the years columns with dataset, as long as rows are literally converted to columns under their order.
I actually found a vba macro on the net but it doesn't useful at all when it comes to keeping all data in their original order. It has some specific design to solve the issue without the aim of keeping the data in its original order I guess. Is there any possibility to modify its code or any other way to do this?
Code:
Sub Data_to_Column() Dim rData As Range Dim r As Range, c As Range Dim rStart As Range Dim counter As Integer
I work on some High-throughput Projects analyzing biological samples. The software we use for analysis spits out the data into excel. This is all well and good, being mostly automated. However, my issue arises when I get the output data. It's simply one long list of values in a single column. This could potentially be 384 entries. Depending on the parameters of our experiment, I'd like to be able to take a set number of consecutive entries and transpose them to another worksheet. However I don't know how to loop the function to get the specific entries transposed to their specific worksheet. I'm pasting a recorded macro I made to illustrate my point.
Sub HTSoutput1() ' ' HTSoutput1 Macro ' Macro recorded 3/2/2007 by Jack Rosa ' ' Keyboard Shortcut: Ctrl+q ' Range("B2:B9").Select Selection.Copy Sheets("K562").Select Range("B2").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "2330"
This would have to be repeated for a column that contains 312 entries so that I end up with each destination worksheet containing a 13row x 8col table (or should it be called an array?).
Is there a function or VBA out there that would allow me to transpose non-contiguous cells? For example, say I want to transpose ther contents from cells A1, C1, E1, G1, and I1 on worksheet 1 to A1:A5 on worksheet 2.
