#1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 1
Default Sort


Dear sir,in attached file i have sorted the nos.mentioned in (H) column
to four sheets , i need (1) a code to transfer sorted datas from main
sheet to (A,B,C,D)sheets depending on the nos.of supplying items in (B)
column.(2)button to transfer these data without duplication them in
their sheets.
Thanking you in advance.


+-------------------------------------------------------------------+
|Filename: Sort.zip |
|Download: http://www.thecodecage.com/forumz/attachment.php?attachmentid=144|
+-------------------------------------------------------------------+

--
tofimoon4
------------------------------------------------------------------------
tofimoon4's Profile: http://www.thecodecage.com/forumz/member.php?userid=138
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=99846

  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 10,124
Default Sort

First, DELETE row 4 on the MAIN sheet. Then use this when at the main sheet.
It could be further refined.

Sub filterem()
With Range("b3:g" & Cells(Rows.Count, "b").End(xlUp).Row)
.AutoFilter Field:=6, Criteria1:="=150", Operator:=xlAnd, _
Criteria2:="<=500"
.Offset(1).Copy Sheets("a").Range("b5")
.AutoFilter Field:=6, Criteria1:="=50", Operator:=xlAnd, _
Criteria2:="<=149"
.Offset(1).Copy Sheets("b").Range("b5")
.AutoFilter Field:=6, Criteria1:="=1", Operator:=xlAnd, _
Criteria2:="<=49"
.Offset(1).Copy Sheets("c").Range("b5")
.AutoFilter Field:=6, Criteria1:=0
.Offset(1).Copy Sheets("d").Range("b5")
.AutoFilter
End With
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"tofimoon4" wrote in message
...

Dear sir,in attached file i have sorted the nos.mentioned in (H) column
to four sheets , i need (1) a code to transfer sorted datas from main
sheet to (A,B,C,D)sheets depending on the nos.of supplying items in (B)
column.(2)button to transfer these data without duplication them in
their sheets.
Thanking you in advance.


+-------------------------------------------------------------------+
|Filename: Sort.zip |
|Download:
http://www.thecodecage.com/forumz/attachment.php?attachmentid=144|
+-------------------------------------------------------------------+

--
tofimoon4
------------------------------------------------------------------------
tofimoon4's Profile:
http://www.thecodecage.com/forumz/member.php?userid=138
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=99846


  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 1
Default Sort


Dear sir wonderful solution many thanks for help


--
tofimoon4
------------------------------------------------------------------------
tofimoon4's Profile: http://www.thecodecage.com/forumz/member.php?userid=138
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=99846

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
Updating workbook with an alpha sort sheet and a numeric sort shee cjlatta Excel Discussion (Misc queries) 2 January 28th 09 12:00 AM
sort function for dates does not sort properly in Office 2007 Exc. Rosalie Excel Worksheet Functions 1 November 22nd 07 10:25 PM
Pls. reply Sort Data and copy to next coulmn when sort order chang shital shah Excel Programming 1 August 19th 05 02:51 PM
Excel sort by Fill Color by custom list sort Dash4Cash Excel Discussion (Misc queries) 2 July 29th 05 10:45 PM
sort (on part of) string - originally posted under Tricky Sort Tom Ogilvy Excel Programming 0 August 6th 04 02:42 AM


All times are GMT +1. The time now is 12:59 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"