ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Sort (https://www.excelbanter.com/excel-programming/428877-sort.html)

tofimoon4[_12_]

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


Don Guillett

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



tofimoon4[_13_]

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



All times are GMT +1. The time now is 02:44 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com