Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.misc
Wicus
 
Posts: n/a
Default How do I make a section sort automatically?

I want a section to sort itself automatically when the information is updated
  #2   Report Post  
Posted to microsoft.public.excel.misc
Gary''s Student
 
Posts: n/a
Default How do I make a section sort automatically?

If the section is A1 thru C10 (no headers), then enter the following in
worksheet code:

Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Range("A1:C10"), Target) Is Nothing Then Exit Sub
Application.EnableEvents = False
Range("A1:C10").Sort Key1:=Range("A1")
Application.EnableEvents = True
End Sub

This will cause automatic re-sort (using column A as the key) after the data
has been updated.
--
Gary''s Student


"Wicus" wrote:

I want a section to sort itself automatically when the information is updated

Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Can I make Excel sort and graph a list of numbers? Nivek Charts and Charting in Excel 5 October 27th 05 10:05 PM
How do I make the sort default to 'No header rows' DJT Excel Discussion (Misc queries) 1 August 29th 05 11:40 PM
make a cell automatically populate with "1" when specified cell va WendyM Excel Discussion (Misc queries) 1 March 28th 05 09:11 PM
How can I make cell data automatically shift up when deleting Orangepegs Excel Discussion (Misc queries) 4 February 26th 05 11:11 PM
How can I make cell data automatically shift up when deleting... Orangepegs Excel Worksheet Functions 1 February 26th 05 04:17 AM


All times are GMT +1. The time now is 03:56 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"