VBA Macro Sort Column A, With The Selection Expanded
Aug 31, 2009I have information from column A to column F. I have this macro to sort column A, with the selection expanded.
View 3 RepliesI have information from column A to column F. I have this macro to sort column A, with the selection expanded.
View 3 Replieshow to sort a selected range.
The end of the range could be any cell. The top of the range is fixed in A1.
I've tried with this:
Sub Order()
Dim final As Variant
final = Selection.End(xlUp).Address
Range("A2").Select
Range("A1:" & final).Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:=Range _
("G2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
End Sub
Is there a faster method than this code? it slows way down when the range is expanded b/c it loops through every cell.
Private Sub Worksheet_SelectionChange(ByVal target As Range)
If target.Cells.Count > 1 Then Exit Sub
Set Rng = Range("A1:GA400")
clrind = 42
If Not Intersect(target, Rng) Is Nothing Then
For Each cell In Rng
If cell.Interior.ColorIndex = clrind Then cell.Interior.Pattern = xlNone
Next cell
End If
End Sub
I need to sort column I. How do I sort it alphabetically using macro. Will the macro still work if it is inserted in the middle of the code below??
Dim sht As Object
For Each sht In ActiveWorkbook.Sheets
If sht.Name Like "*simple*" Then
'macro to sort column I
End If
Next sht
End Sub
How would you right code to automatically sort (using the same sort parameters all the time) when the value of a column changes?
Here's the scenario:
Columns B through N are populated.
The sort parameters are (in order) column F ascending, column D ascending and then column B ascending. The sort in column F is based on a custom list (but I doubt that matters here).
As far as the number of rows to select, it varies but there is always a blank row at the bottom of the selection.
What I am looking for is code that will sort the selection (currently its B4 through N37) in the above order automatically when the value in any of the selected rows changes in column F.
a way, without using a macro, to have a specific column automatically sort data being pulled in from another column, so that even if the data from the initial column gets changed, that the destination column will take that change into effect and update the sort automatically?
View 9 Replies View RelatedI have a concatenated value in a column D (from three colums A, B and C). Whenever a user enters data in colums A, B and C, I would like to get a sorted list of values from column D to be populated in column E. I use the sorted values in Column E for a dropdown list in another worksheet. Could somebody help me with the macro code?
View 9 Replies View RelatedI am trying to write a sorting macro using a selection change event, but am unable to apply the sorting to multiple columns. ie the code below will only re-sort an individual column upon activation of the macro, but I would like it to re-sort a full data range based on ascending / descending order of one column.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.EntireRow.Sort Key1:=Target, Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
I already have a Macro button built that hides values in column A. The next step I am trying to perform is a custom sort on column B in this order "Backordered", "Sourced", Shipped", and "Received". Here is my code that I have so far but where to begin adding in code to make this button sort.
Sub Inbound()
ActiveSheet.Cells.EntireColumn.Hidden = False
ActiveSheet.Cells.EntireRow.Hidden = False
Application.ScreenUpdating = False
[Code] ........
Excel 2007/Windows 7
Attached is a copy of a spreadsheet that im working on, im trying to sort staff on their correct locations depending where i originaly select them.
The attachement will have more info
I have a worksheet that contains multiple task lists, each having two columns, a "Priority" field and a "Description" field. The data should be sorted by Priority first and by Description second. The header row is 5 and the data is in rows 6 through 50. The first list is in A5:B50, the second C5:D50, and so on until the sixth list in K5:L50. I have a macro that works for one task list, but cannot get it to function for multiple task lists. Below is the macro that functions for the first task list. It is in the code for the sheet tab.
Option Explicit
Private Sub Worksheet_Change(ByVal Target1 As Range)
If Target1.Column = 1 Then
[Code]....
Using DataEntry sheet for data.
Trying to rearrange the data to DataFormatedProperly sheet.
So far all I can accomplish is DataFormatedWrong sheet.
Edit: Not sure what happened but file was NOT understandable before. It should be correct now.
I am looking for a macro to sort my colums in ascending order the range i need sorted is from A7:F107, it will be sorted with the numbers in the A column ie 1 - 107. sometimes different numbers get added and it has to be sorted in number sequence.
If possible i would also like a macro to protect this range after the sort,
Here's what I have.. (on a much smaller scale)
http://www.jmetenterprises.com/produ...pics/excel.jpg
(notice how the lines that match are now even.)
[Edited by admin~ *Link* to large images, don't display them]
is it possible to leave a column out of this sort code as in A the very first column which just numbers the rows?
Here is my sort ....
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.
View 8 Replies View RelatedI 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.
eMailSampleTest.xls
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)
View 3 Replies View RelatedI am making a spreadsheet that sorts and pastes, but I need to know if I can add a code to the Sort and Paste Macro that will open the second spread sheet needed without just already having it open and using the
Windows("estimate sheet one.xls").Activate
How can i make selection in Column A from 5th line from first value in this column to last value in this column? i thing first value is in A2...so selection will from A2+5...A7 to last value in this column?
View 7 Replies View RelatedI have a two vba codes. The first one defines the currency while the second one uses that info in order to convert them accordingly. I would like to edit the script in order to create a new column after my selection and then insert in each cell the proper currency as words (i.e $ -> USD, € -> EURO). So, if I select A1:A2 then only the cells B1:B2 must be converted into words. As an example:....
View 3 Replies View RelatedI need to create a macro that clears the contents of a range of cells. However, that range of cells is variable.
I know my starting cell (C9) and I know the selection goes over to column Z every time but the number of rows I want to clear after that may change.
Also, whatever that first cleared range is, I would need to skip the row below it then clear the same number of rows below that. (not entire row of course, just the ones from column C to column Z)
I am having trouble returning the value of the second column in a listbox.
The listbox is originally populated with an array (vaData) from an SQL query through
With UserForm3
With .ListBox1
.Clear
.ColumnCount = 2
.List = Application.Transpose(vaData)
.ListIndex = -1
End With
.Show vbModeless
End With
and then if i try to return the value of listbox1.list(1,2) elsewhere, there is an error "Could Not Get the List Property". Invalid Argument.
column A has random numbers 1- 10. Column B has numbers 1-10 also but in a different order. How can i sort column B to match Column A?
View 9 Replies View RelatedI have values in 4 Cols a,b,c,d and row count varies... For ex i make selection from A1 to D5
I want values of colA1 to A5 stored Range K1
values of colb1 to b5 stored in range K2
values of colC1 to C5 stored in range K3 and
values of colD1 to D5 stored in range K4..
I need the values of each columns seperately based on the selection..
As with most of the issues I post on this forum, this may be a problem with the concatenation. What I would like the following line of code to ultimately do is take a set of columns and delete them, shifting the other columns to the left. The problem is that I'm using variable index values as column references, which is not working.
Code below:
how to Keep Selection in Column But Change to 2 rows less. I have the following code that works.
View 2 Replies View RelatedWhy is this giving me a Type mismatch Run Time Error 13? The debugger highlights the Columns Select line.
Sheets("LB").Activate
Columns("AA:AZZ").Select
Selection.Delete Shift:=xlToLeft
Rows("20:300").Activate
Selection.Delete Shift:=xlUp
I am wanting to allow the user to select a cell in a worksheet and return the cell address and information/value from the cell. For example, if "Dog" is in cell A1 and "Cat" is cell A2 and the user initiates the Macro I would like the macro to to pop up a message box and say something like "Select a cell in Column A". When the user clicks on cell A1, I would like the message box to pop up and say, you selected "Dog" in cell A1.
View 4 Replies View RelatedI 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).
View 2 Replies View Related