Sort By The Same Column But The Row Count Can Differ
Apr 19, 2007
I have some code which copies down a formula in a range of data. After this I want it to sort the data by this column in question. However my data range will differ in rows all the time and if I record the sort through the macro method it saves the VB code as a fixed range i.e:
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A2:A1967" _
), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
The formula code beforehand does acquire the last row number if that's of any help:
Dim rng As Range
Set rng = Range(Cells(ActiveCell.Row, 1), [A50000].End(xlUp)).Offset(0, 1)
rng.FormulaR1C1 = "=IF(RIGHT(RC[-1],2)=""XP"",""5"","""")"
Column A has current building, column b has future building. Would like to count the number of changes without adding a separate column with an if statement.
I have 5 columns of numbers and at the bottom of each column I want to list every number in order from least to greatest and how many times it occurred in the column.
I'll just provide you with 5 rows of numbers so I don't waste a ton of space.
Ive written the macro below to sort Column A according to the length of the cell values in Ascending order. Ive done this by writing the length to Column B for each value and then sorting on column B. Surely there is a more elegant method, perhaps using arrays.
Sub SortIt() Range("A1").Select Do Until IsEmpty(ActiveCell) ActiveCell.Offset(0, 1).Value = Len(ActiveCell) ActiveCell.Offset(1, 0).Select Loop Columns("A:B").Sort Key1:=Range("B1"), Order1:=xlAscending End Sub
I'm transferring data from one workbook to another. The first workbook ('Request Form') will always have a different file name depending on which user is saving it. However, the worksheet within that book will always have the same name ('Tab A'). Workbook and worksheet 2 ('PTS' and '2008' respectively) will remain the same.
Basically I want the macro to open 'Request Form' (whatever the name, wherever it's saved) and stay open as the rest of the macro runs. I need that file name to be a sort of wildcard, since the file path and file name will never be the same. How can I do this?
Dim TabA As Worksheets Application.GetOpenFilename Application.ScreenUpdating = False Set wbOpen = Workbooks.Open("Request Form.xls") --THIS NEEDS TO BE A WILDCARD 'Declares the ClientName Sheets("TabA").Select
The rows will differ depending on the Active Cell that's selected and I don't know how to specify this. The range I want to copy is from Column B to DA on the worksheet ("Staff") which I want to paste to another worksheet ("Leavers"). This is as far as I got
'FindRemove = lstRemove.Value 'If FindRemove = "" Then End
' Goes to the start of the Data column 'Sheets("Staff").Select 'Range("B4").Select
' Tests current cell against FindRemove 'Do 'If ActiveCell.Value = FindRemove Then 'Call CopyPerson 'Exit Sub 'Else: ActiveCell.Offset(1, 0).Select 'End If 'Loop Until ActiveCell.Value = "" 'End Sub
I wanted to use if function, but I couldn't as there's a limit on the characters that can be used in "IF Function", but unfortunately, I can't because I exceeded the limit, as I have too many grades to include in "Logical_Test",
What I am looking for if one of this data was found write 45 Days, if other grades that is not listed was found write 30 Days.
I would like to have the duplicate numbers in position one ( cell D9:D18), position two (cell E9:E18) and position three (cell F9:18) all counted and then ranked based upon date range in column A.
The number order of precendence is 0-9 with zero being the lowest.
Column (I9:I18) counts the duplicates, draws and no draws of digits 0-9. Column (J9:J18) converts results from column I9:18 into a percent.
I need to add a sort button at the bottom of position 1 (columns H & I 22), position 2 (columns L & M 22) and position 3 (columns P & Q 22)
When the sort button is selected it will sort the data by # of repeats, draws, and no draws as illustrated in (columns I, M & Q) or sort data by Position number from 0-9 as illustrated in (columns H) which will then show data of repeats and percentages out of rank order, because it is in order of number precedence.
Last but not least a graphic bar chart that shows the results ranked highest to lowest from when the sort button is selected with the number at the top of the bar colored black. Bar graph colors to be: top 3 red, middle 4 yellow and bottom 3 blue. This should show a vertical cascade effect.
I have provided an attachment. what I am trying to accomplish. I am trying to have a worksheet that if I input multiple 3 number combinations into the input cell range, after pressing the sort button, it would then sort, rank and count each 3 number combination for me. So as my attached file illustrates, the input cells would be A9:D14. In this sample the ranking consists of cells A19 - A31 as the ranking columns. Cells F19 - F31 show the counted and sorted results and are ranked accordingly. I need a sort button as illustrated in cell F10 to make the worksheet function after the 3number combinations are inputted in cells A9:D14. How do I get started to make this work? I do not know VBA codes or macros so I will need guidance along the way if this is what is needed. I do have some working knowledge of formulas (e.g. countif, rank, etc.)
Is there a way to do this without using a macro, but I need it to be in a macro.
Column A has a value I am calling a label, ex. ABCDEF which occurs over and over. Column B has a list of animals, many of which repeat AND will be together if they do repeat. In other words, all rows in Column B with Cows are together, occurring in consecutive rows. I need a macro that will look at each row in column C and increment +1 starting at 0. That will be concatenated with the value in Column A and pasted as a value in column C.
See the linked spreadsheet tabs for Before Macro and how it should look After Macro is run.
I'm looking for a way to sort dates from several columns into a new single column (perhaps multiple columns if the entry columns become too numerous). I've included an example. There are currently only 4 columns, but there may be as many as 20 in the future, each with 20 dates under each heading. Any blank cells would be eliminated. If I filled a blank with a new date, that date would be placed into the chronological column. So basically, this would take the date from several different categories and create a single calendar of events.
I believe that the best way to evaluate this request is to look at the example. I have 2 buttons to demonstrate what I need, along with written instructions.
i want to sort column D acsending, then column C descending. i want to do this using VBA because i cant just format the sheet because another vba macro paste the sheet thier which would rid the formatting. (i would do it myself everytime but it is for someone to make it easier for them and not make mistakes..i searched, just found a sum formula post)
I have a file where I want to count number of cells where the value is greater than 0. in the attachment, i just want to populate that count below the column indicated therein. So in the example, desired result is two.
I have one column of names that has been entered as "first and last name" as one entry and I would like to sort by the last name (the last word in the column). Some of the entries are simply first and last name (e.g. Jane Doe), some are spouses together (e.g. Frank and Elaine Smith) and some contain middle initials (e.g. John Q. and Amy X. Public).
I want to sort them from highest to lowest in C1:C10 & D1:D10. This meaning the part with the highest number would fall in C1 and its corresponding value in D1 and so on. Is this possible using a formula?
if it is possible to sort a range by a specific value in a cell in a column within that range. The reason I'm asking is that I would like to sort by street name in an address line, ie:
Is it possible for a column of "sums" to auto sort from largest to smallest? I have a dashboard with 20 charts and I want them to show in the order of largest to smallest but its rolling data so it changes daily.
Need the formula that I will need in my macro to move to the next column (up one letter) for the next time I run the macro witout me having to manually change column the letter?
