Sort from Cell to End of Column
Good day,
I am looking for a formula or VBA Code to dynamically sort a range of cells from Cell B2 down to the end of the Column regardless of length of data in the column. Thanks in advance for any ideas or suggestions. Cordially, |
Sort from Cell to End of Column
Sub sortcoltoend()
Range("B1:B" & Cells(Rows.Count, "b").End(xlUp).Row). _ Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "Brent E" wrote in message ... Good day, I am looking for a formula or VBA Code to dynamically sort a range of cells from Cell B2 down to the end of the Column regardless of length of data in the column. Thanks in advance for any ideas or suggestions. Cordially, |
Sort from Cell to End of Column
Put the following worksheet event code in the worksheet code area:
Private Sub Worksheet_Change(ByVal Target As Range) n = Cells(Rows.Count, "B").End(xlUp).Row Set r = Range("B2:B" & n) Set t = Target If Intersect(r, t) Is Nothing Then Exit Sub Application.EnableEvents = False r.Sort Key1:=Range("B2") Application.EnableEvents = True End Sub as you update column B, the re-sort occurs automatically. -- Gary''s Student - gsnu200806 "Brent E" wrote: Good day, I am looking for a formula or VBA Code to dynamically sort a range of cells from Cell B2 down to the end of the Column regardless of length of data in the column. Thanks in advance for any ideas or suggestions. Cordially, |
Sort from Cell to End of Column
Thanks guys. I'll give these a try.
"Don Guillett" wrote: Sub sortcoltoend() Range("B1:B" & Cells(Rows.Count, "b").End(xlUp).Row). _ Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "Brent E" wrote in message ... Good day, I am looking for a formula or VBA Code to dynamically sort a range of cells from Cell B2 down to the end of the Column regardless of length of data in the column. Thanks in advance for any ideas or suggestions. Cordially, |
All times are GMT +1. The time now is 05:45 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com