Re: $$Excel-Macros$$ Sort VBA Code Challenging difficult work
Dear Vabs Bro… Mind Freaking Vabs !!! Awesome!!! Great!!! Thank you so much for your code, for the effort and time dedicated to work. I wish Ayush Sir will declared Vaibhav as 'Most Helpful Member' in our excel forum give him certificate it will encourage to our group member to solve query more and more. I have no words to say thanks, there was a glow in my face. I'm happy to be part of this group too. You have save my time a lot by this solution. Again thanks so much bro… and God bless you! Regards Amar On Wed, Jul 2, 2014 at 12:57 AM, Vaibhav Joshi v...@vabs.in wrote: Hey Check att hope it is as per your need.. Cheers!! On Tue, Jul 1, 2014 at 4:21 PM, amar takale amartak...@gmail.com wrote: Dear Vabs I would appreciate very much if you can help me on this.I had try more effort on this problem but upset each time. Regards Amar On Mon, Jun 30, 2014 at 10:21 AM, amar takale amartak...@gmail.com wrote: Dear Lalitji Can any suggestion on this topic? On Fri, Jun 27, 2014 at 4:16 PM, amar takale amartak...@gmail.com wrote: Dear Lalit bro.. Thanks for this good one code but it is only for mkt cap column i required this filter for total Row no 7 means all field (If add other criteria field in row 7). So pls as per my criteria solution,provide me VBA Code. One more small Question that i dont required filter arrow in row 7 only I double click D7 then sort data as per criteria. And also data filter when I put criteria in cell D5 D6 then automatically sort data in few second not double click in cell D7 again again.I hope you understand my whole query I'll be greatly oblidged if you could help. Looking forward to your response. Thanks. On Fri, Jun 27, 2014 at 3:45 PM, Lalit Mohan Pandey mohan.pande...@gmail.com wrote: Try this, I have created this for only MCap column: Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = $D$7 Then Call FilterData Application.Goto Me.Cells(1, 1) End If End Sub Sub FilterData() Dim r As Range Dim i As Long Dim ii As Long Dim k As Long With Sheet1 Set r = .Range($B$7:$I$29) i = .Range(D5).Value ii = .Range(D6).Value k = 3 With r If .Resize(1, 1).Offset(, k - 1).ID = Then .Resize(1, 1).Offset(, k - 1).ID = asc End If On Error Resume Next .Sort.SortFields.Clear On Error GoTo -1: On Error GoTo 0: Err.Clear If .Resize(1, 1).Offset(, k - 1).ID = asc Then .Sort Key1:=.Resize(, 1).Offset(, k - 1), Order1:=xlAscending, Header:=xlYes .Resize(1, 1).Offset(, k - 1).ID = desc ElseIf .Resize(1, 1).Offset(, k - 1).ID = desc Then .Sort Key1:=.Resize(, 1).Offset(, k - 1), Order1:=xlDescending, Header:=xlYes .Resize(1, 1).Offset(, k - 1).ID = asc End If .AutoFilter .AutoFilter Field:=3, Criteria1:== i, Operator:=xlAnd, Criteria2:== ii End With End With End Sub On Friday, 27 June 2014 15:22:44 UTC+5:30, amar takale wrote: Dear Lali Mohan Exactly i want data by sort based on multiple criteria range. Regards Amar On Fri, Jun 27, 2014 at 3:20 PM, amar takale amart...@gmail.com wrote: Dear Pramod First thanks for reply.If you see Raw sheet (Row No 7) cell D7,here are I double click then mkt cap will sort as per criteria between 1000 to 5000 automatically which show output in output sheet,like this i will click each criteria Price,Roe... etc. data sort as per criteria range in cell E5 E6,F5 F6etc. I required for this VBA code to sort data. Only I double click Row 7. I hoe you understand my issue Regards Amar On Fri, Jun 27, 2014 at 3:02 PM, Pramod Singh pram...@gmail.com wrote: Not Sure What you are saying. Need more description. On Fri, Jun 27, 2014 at 11:28 AM, amar takale amart...@gmail.com wrote: Dear All friends Can anyone suggestion pls? On Wed, Jun 25, 2014 at 12:17 PM, amar takale amart...@gmail.com wrote: Dear Expert team I Required code for sort data as per criteria range in between numbers.PFA with more detailed in sheet. Regards Amar -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may
Re: $$Excel-Macros$$ Sort VBA Code Challenging difficult work
Dear Pramod,Thanks for your effort also. On Wed, Jul 2, 2014 at 4:06 PM, amar takale amartak...@gmail.com wrote: Dear Vabs Bro… Mind Freaking Vabs !!! Awesome!!! Great!!! Thank you so much for your code, for the effort and time dedicated to work. I wish Ayush Sir will declared Vaibhav as 'Most Helpful Member' in our excel forum give him certificate it will encourage to our group member to solve query more and more. I have no words to say thanks, there was a glow in my face. I'm happy to be part of this group too. You have save my time a lot by this solution. Again thanks so much bro… and God bless you! Regards Amar On Wed, Jul 2, 2014 at 12:57 AM, Vaibhav Joshi v...@vabs.in wrote: Hey Check att hope it is as per your need.. Cheers!! On Tue, Jul 1, 2014 at 4:21 PM, amar takale amartak...@gmail.com wrote: Dear Vabs I would appreciate very much if you can help me on this.I had try more effort on this problem but upset each time. Regards Amar On Mon, Jun 30, 2014 at 10:21 AM, amar takale amartak...@gmail.com wrote: Dear Lalitji Can any suggestion on this topic? On Fri, Jun 27, 2014 at 4:16 PM, amar takale amartak...@gmail.com wrote: Dear Lalit bro.. Thanks for this good one code but it is only for mkt cap column i required this filter for total Row no 7 means all field (If add other criteria field in row 7). So pls as per my criteria solution,provide me VBA Code. One more small Question that i dont required filter arrow in row 7 only I double click D7 then sort data as per criteria. And also data filter when I put criteria in cell D5 D6 then automatically sort data in few second not double click in cell D7 again again.I hope you understand my whole query I'll be greatly oblidged if you could help. Looking forward to your response. Thanks. On Fri, Jun 27, 2014 at 3:45 PM, Lalit Mohan Pandey mohan.pande...@gmail.com wrote: Try this, I have created this for only MCap column: Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = $D$7 Then Call FilterData Application.Goto Me.Cells(1, 1) End If End Sub Sub FilterData() Dim r As Range Dim i As Long Dim ii As Long Dim k As Long With Sheet1 Set r = .Range($B$7:$I$29) i = .Range(D5).Value ii = .Range(D6).Value k = 3 With r If .Resize(1, 1).Offset(, k - 1).ID = Then .Resize(1, 1).Offset(, k - 1).ID = asc End If On Error Resume Next .Sort.SortFields.Clear On Error GoTo -1: On Error GoTo 0: Err.Clear If .Resize(1, 1).Offset(, k - 1).ID = asc Then .Sort Key1:=.Resize(, 1).Offset(, k - 1), Order1:=xlAscending, Header:=xlYes .Resize(1, 1).Offset(, k - 1).ID = desc ElseIf .Resize(1, 1).Offset(, k - 1).ID = desc Then .Sort Key1:=.Resize(, 1).Offset(, k - 1), Order1:=xlDescending, Header:=xlYes .Resize(1, 1).Offset(, k - 1).ID = asc End If .AutoFilter .AutoFilter Field:=3, Criteria1:== i, Operator:=xlAnd, Criteria2:== ii End With End With End Sub On Friday, 27 June 2014 15:22:44 UTC+5:30, amar takale wrote: Dear Lali Mohan Exactly i want data by sort based on multiple criteria range. Regards Amar On Fri, Jun 27, 2014 at 3:20 PM, amar takale amart...@gmail.com wrote: Dear Pramod First thanks for reply.If you see Raw sheet (Row No 7) cell D7,here are I double click then mkt cap will sort as per criteria between 1000 to 5000 automatically which show output in output sheet,like this i will click each criteria Price,Roe... etc. data sort as per criteria range in cell E5 E6,F5 F6etc. I required for this VBA code to sort data. Only I double click Row 7. I hoe you understand my issue Regards Amar On Fri, Jun 27, 2014 at 3:02 PM, Pramod Singh pram...@gmail.com wrote: Not Sure What you are saying. Need more description. On Fri, Jun 27, 2014 at 11:28 AM, amar takale amart...@gmail.com wrote: Dear All friends Can anyone suggestion pls? On Wed, Jun 25, 2014 at 12:17 PM, amar takale amart...@gmail.com wrote: Dear Expert team I Required code for sort data as per criteria range in between numbers.PFA with more detailed in sheet. Regards Amar -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like
Re: $$Excel-Macros$$ Sort VBA Code Challenging difficult work
Cheers!! On Wed, Jul 2, 2014 at 4:06 PM, amar takale amartak...@gmail.com wrote: Dear Vabs Bro… Mind Freaking Vabs !!! Awesome!!! Great!!! Thank you so much for your code, for the effort and time dedicated to work. I wish Ayush Sir will declared Vaibhav as 'Most Helpful Member' in our excel forum give him certificate it will encourage to our group member to solve query more and more. I have no words to say thanks, there was a glow in my face. I'm happy to be part of this group too. You have save my time a lot by this solution. Again thanks so much bro… and God bless you! Regards Amar On Wed, Jul 2, 2014 at 12:57 AM, Vaibhav Joshi v...@vabs.in wrote: Hey Check att hope it is as per your need.. Cheers!! On Tue, Jul 1, 2014 at 4:21 PM, amar takale amartak...@gmail.com wrote: Dear Vabs I would appreciate very much if you can help me on this.I had try more effort on this problem but upset each time. Regards Amar On Mon, Jun 30, 2014 at 10:21 AM, amar takale amartak...@gmail.com wrote: Dear Lalitji Can any suggestion on this topic? On Fri, Jun 27, 2014 at 4:16 PM, amar takale amartak...@gmail.com wrote: Dear Lalit bro.. Thanks for this good one code but it is only for mkt cap column i required this filter for total Row no 7 means all field (If add other criteria field in row 7). So pls as per my criteria solution,provide me VBA Code. One more small Question that i dont required filter arrow in row 7 only I double click D7 then sort data as per criteria. And also data filter when I put criteria in cell D5 D6 then automatically sort data in few second not double click in cell D7 again again.I hope you understand my whole query I'll be greatly oblidged if you could help. Looking forward to your response. Thanks. On Fri, Jun 27, 2014 at 3:45 PM, Lalit Mohan Pandey mohan.pande...@gmail.com wrote: Try this, I have created this for only MCap column: Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = $D$7 Then Call FilterData Application.Goto Me.Cells(1, 1) End If End Sub Sub FilterData() Dim r As Range Dim i As Long Dim ii As Long Dim k As Long With Sheet1 Set r = .Range($B$7:$I$29) i = .Range(D5).Value ii = .Range(D6).Value k = 3 With r If .Resize(1, 1).Offset(, k - 1).ID = Then .Resize(1, 1).Offset(, k - 1).ID = asc End If On Error Resume Next .Sort.SortFields.Clear On Error GoTo -1: On Error GoTo 0: Err.Clear If .Resize(1, 1).Offset(, k - 1).ID = asc Then .Sort Key1:=.Resize(, 1).Offset(, k - 1), Order1:=xlAscending, Header:=xlYes .Resize(1, 1).Offset(, k - 1).ID = desc ElseIf .Resize(1, 1).Offset(, k - 1).ID = desc Then .Sort Key1:=.Resize(, 1).Offset(, k - 1), Order1:=xlDescending, Header:=xlYes .Resize(1, 1).Offset(, k - 1).ID = asc End If .AutoFilter .AutoFilter Field:=3, Criteria1:== i, Operator:=xlAnd, Criteria2:== ii End With End With End Sub On Friday, 27 June 2014 15:22:44 UTC+5:30, amar takale wrote: Dear Lali Mohan Exactly i want data by sort based on multiple criteria range. Regards Amar On Fri, Jun 27, 2014 at 3:20 PM, amar takale amart...@gmail.com wrote: Dear Pramod First thanks for reply.If you see Raw sheet (Row No 7) cell D7,here are I double click then mkt cap will sort as per criteria between 1000 to 5000 automatically which show output in output sheet,like this i will click each criteria Price,Roe... etc. data sort as per criteria range in cell E5 E6,F5 F6etc. I required for this VBA code to sort data. Only I double click Row 7. I hoe you understand my issue Regards Amar On Fri, Jun 27, 2014 at 3:02 PM, Pramod Singh pram...@gmail.com wrote: Not Sure What you are saying. Need more description. On Fri, Jun 27, 2014 at 11:28 AM, amar takale amart...@gmail.com wrote: Dear All friends Can anyone suggestion pls? On Wed, Jun 25, 2014 at 12:17 PM, amar takale amart...@gmail.com wrote: Dear Expert team I Required code for sort data as per criteria range in between numbers.PFA with more detailed in sheet. Regards Amar -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
Re: $$Excel-Macros$$ Sort VBA Code Challenging difficult work
Dear Vabs I would appreciate very much if you can help me on this.I had try more effort on this problem but upset each time. Regards Amar On Mon, Jun 30, 2014 at 10:21 AM, amar takale amartak...@gmail.com wrote: Dear Lalitji Can any suggestion on this topic? On Fri, Jun 27, 2014 at 4:16 PM, amar takale amartak...@gmail.com wrote: Dear Lalit bro.. Thanks for this good one code but it is only for mkt cap column i required this filter for total Row no 7 means all field (If add other criteria field in row 7). So pls as per my criteria solution,provide me VBA Code. One more small Question that i dont required filter arrow in row 7 only I double click D7 then sort data as per criteria. And also data filter when I put criteria in cell D5 D6 then automatically sort data in few second not double click in cell D7 again again.I hope you understand my whole query I'll be greatly oblidged if you could help. Looking forward to your response. Thanks. On Fri, Jun 27, 2014 at 3:45 PM, Lalit Mohan Pandey mohan.pande...@gmail.com wrote: Try this, I have created this for only MCap column: Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = $D$7 Then Call FilterData Application.Goto Me.Cells(1, 1) End If End Sub Sub FilterData() Dim r As Range Dim i As Long Dim ii As Long Dim k As Long With Sheet1 Set r = .Range($B$7:$I$29) i = .Range(D5).Value ii = .Range(D6).Value k = 3 With r If .Resize(1, 1).Offset(, k - 1).ID = Then .Resize(1, 1).Offset(, k - 1).ID = asc End If On Error Resume Next .Sort.SortFields.Clear On Error GoTo -1: On Error GoTo 0: Err.Clear If .Resize(1, 1).Offset(, k - 1).ID = asc Then .Sort Key1:=.Resize(, 1).Offset(, k - 1), Order1:=xlAscending, Header:=xlYes .Resize(1, 1).Offset(, k - 1).ID = desc ElseIf .Resize(1, 1).Offset(, k - 1).ID = desc Then .Sort Key1:=.Resize(, 1).Offset(, k - 1), Order1:=xlDescending, Header:=xlYes .Resize(1, 1).Offset(, k - 1).ID = asc End If .AutoFilter .AutoFilter Field:=3, Criteria1:== i, Operator:=xlAnd, Criteria2:== ii End With End With End Sub On Friday, 27 June 2014 15:22:44 UTC+5:30, amar takale wrote: Dear Lali Mohan Exactly i want data by sort based on multiple criteria range. Regards Amar On Fri, Jun 27, 2014 at 3:20 PM, amar takale amart...@gmail.com wrote: Dear Pramod First thanks for reply.If you see Raw sheet (Row No 7) cell D7,here are I double click then mkt cap will sort as per criteria between 1000 to 5000 automatically which show output in output sheet,like this i will click each criteria Price,Roe... etc. data sort as per criteria range in cell E5 E6,F5 F6etc. I required for this VBA code to sort data. Only I double click Row 7. I hoe you understand my issue Regards Amar On Fri, Jun 27, 2014 at 3:02 PM, Pramod Singh pram...@gmail.com wrote: Not Sure What you are saying. Need more description. On Fri, Jun 27, 2014 at 11:28 AM, amar takale amart...@gmail.com wrote: Dear All friends Can anyone suggestion pls? On Wed, Jun 25, 2014 at 12:17 PM, amar takale amart...@gmail.com wrote: Dear Expert team I Required code for sort data as per criteria range in between numbers.PFA with more detailed in sheet. Regards Amar -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros...@googlegroups.com. To post to this group, send email to excel-...@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout. -- Are you
Re: $$Excel-Macros$$ Sort VBA Code Challenging difficult work
Dear Lalitji Can any suggestion on this topic? On Fri, Jun 27, 2014 at 4:16 PM, amar takale amartak...@gmail.com wrote: Dear Lalit bro.. Thanks for this good one code but it is only for mkt cap column i required this filter for total Row no 7 means all field (If add other criteria field in row 7). So pls as per my criteria solution,provide me VBA Code. One more small Question that i dont required filter arrow in row 7 only I double click D7 then sort data as per criteria. And also data filter when I put criteria in cell D5 D6 then automatically sort data in few second not double click in cell D7 again again.I hope you understand my whole query I'll be greatly oblidged if you could help. Looking forward to your response. Thanks. On Fri, Jun 27, 2014 at 3:45 PM, Lalit Mohan Pandey mohan.pande...@gmail.com wrote: Try this, I have created this for only MCap column: Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = $D$7 Then Call FilterData Application.Goto Me.Cells(1, 1) End If End Sub Sub FilterData() Dim r As Range Dim i As Long Dim ii As Long Dim k As Long With Sheet1 Set r = .Range($B$7:$I$29) i = .Range(D5).Value ii = .Range(D6).Value k = 3 With r If .Resize(1, 1).Offset(, k - 1).ID = Then .Resize(1, 1).Offset(, k - 1).ID = asc End If On Error Resume Next .Sort.SortFields.Clear On Error GoTo -1: On Error GoTo 0: Err.Clear If .Resize(1, 1).Offset(, k - 1).ID = asc Then .Sort Key1:=.Resize(, 1).Offset(, k - 1), Order1:=xlAscending, Header:=xlYes .Resize(1, 1).Offset(, k - 1).ID = desc ElseIf .Resize(1, 1).Offset(, k - 1).ID = desc Then .Sort Key1:=.Resize(, 1).Offset(, k - 1), Order1:=xlDescending, Header:=xlYes .Resize(1, 1).Offset(, k - 1).ID = asc End If .AutoFilter .AutoFilter Field:=3, Criteria1:== i, Operator:=xlAnd, Criteria2:== ii End With End With End Sub On Friday, 27 June 2014 15:22:44 UTC+5:30, amar takale wrote: Dear Lali Mohan Exactly i want data by sort based on multiple criteria range. Regards Amar On Fri, Jun 27, 2014 at 3:20 PM, amar takale amart...@gmail.com wrote: Dear Pramod First thanks for reply.If you see Raw sheet (Row No 7) cell D7,here are I double click then mkt cap will sort as per criteria between 1000 to 5000 automatically which show output in output sheet,like this i will click each criteria Price,Roe... etc. data sort as per criteria range in cell E5 E6,F5 F6etc. I required for this VBA code to sort data. Only I double click Row 7. I hoe you understand my issue Regards Amar On Fri, Jun 27, 2014 at 3:02 PM, Pramod Singh pram...@gmail.com wrote: Not Sure What you are saying. Need more description. On Fri, Jun 27, 2014 at 11:28 AM, amar takale amart...@gmail.com wrote: Dear All friends Can anyone suggestion pls? On Wed, Jun 25, 2014 at 12:17 PM, amar takale amart...@gmail.com wrote: Dear Expert team I Required code for sort data as per criteria range in between numbers.PFA with more detailed in sheet. Regards Amar -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros...@googlegroups.com. To post to this group, send email to excel-...@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate
Re: $$Excel-Macros$$ Sort VBA Code Challenging difficult work
Not Sure What you are saying. Need more description. On Fri, Jun 27, 2014 at 11:28 AM, amar takale amartak...@gmail.com wrote: Dear All friends Can anyone suggestion pls? On Wed, Jun 25, 2014 at 12:17 PM, amar takale amartak...@gmail.com wrote: Dear Expert team I Required code for sort data as per criteria range in between numbers.PFA with more detailed in sheet. Regards Amar -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout. -- *PramodSingh* -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout.
Re: $$Excel-Macros$$ Sort VBA Code Challenging difficult work
Dear Pramod First thanks for reply.If you see Raw sheet (Row No 7) cell D7,here are I double click then mkt cap will sort as per criteria between 1000 to 5000 automatically which show output in output sheet,like this i will click each criteria Price,Roe... etc. data sort as per criteria range in cell E5 E6,F5 F6etc. I required for this VBA code to sort data. Only I double click Row 7. I hoe you understand my issue Regards Amar On Fri, Jun 27, 2014 at 3:02 PM, Pramod Singh pramod...@gmail.com wrote: Not Sure What you are saying. Need more description. On Fri, Jun 27, 2014 at 11:28 AM, amar takale amartak...@gmail.com wrote: Dear All friends Can anyone suggestion pls? On Wed, Jun 25, 2014 at 12:17 PM, amar takale amartak...@gmail.com wrote: Dear Expert team I Required code for sort data as per criteria range in between numbers.PFA with more detailed in sheet. Regards Amar -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout. -- PramodSingh -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please
Re: $$Excel-Macros$$ Sort VBA Code Challenging difficult work
Dear Lali Mohan Exactly i want data by sort based on multiple criteria range. Regards Amar On Fri, Jun 27, 2014 at 3:20 PM, amar takale amartak...@gmail.com wrote: Dear Pramod First thanks for reply.If you see Raw sheet (Row No 7) cell D7,here are I double click then mkt cap will sort as per criteria between 1000 to 5000 automatically which show output in output sheet,like this i will click each criteria Price,Roe... etc. data sort as per criteria range in cell E5 E6,F5 F6etc. I required for this VBA code to sort data. Only I double click Row 7. I hoe you understand my issue Regards Amar On Fri, Jun 27, 2014 at 3:02 PM, Pramod Singh pramod...@gmail.com wrote: Not Sure What you are saying. Need more description. On Fri, Jun 27, 2014 at 11:28 AM, amar takale amartak...@gmail.com wrote: Dear All friends Can anyone suggestion pls? On Wed, Jun 25, 2014 at 12:17 PM, amar takale amartak...@gmail.com wrote: Dear Expert team I Required code for sort data as per criteria range in between numbers.PFA with more detailed in sheet. Regards Amar -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout. -- PramodSingh -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
Re: $$Excel-Macros$$ Sort VBA Code Challenging difficult work
Try this, I have created this for only MCap column: *Option Explicit* *Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)* *If Target.Address = $D$7 Then* *Call FilterData* *Application.Goto Me.Cells(1, 1)* *End If* *End Sub* *Sub FilterData()* *Dim r As Range* *Dim i As Long* *Dim ii As Long* *Dim k As Long* *With Sheet1* *Set r = .Range($B$7:$I$29)* *i = .Range(D5).Value* *ii = .Range(D6).Value* *k = 3* *With r* *If .Resize(1, 1).Offset(, k - 1).ID = Then* *.Resize(1, 1).Offset(, k - 1).ID = asc* *End If* *On Error Resume Next* *.Sort.SortFields.Clear* *On Error GoTo -1: On Error GoTo 0: Err.Clear* *If .Resize(1, 1).Offset(, k - 1).ID = asc Then* *.Sort Key1:=.Resize(, 1).Offset(, k - 1), Order1:=xlAscending, Header:=xlYes* *.Resize(1, 1).Offset(, k - 1).ID = desc* *ElseIf .Resize(1, 1).Offset(, k - 1).ID = desc Then* *.Sort Key1:=.Resize(, 1).Offset(, k - 1), Order1:=xlDescending, Header:=xlYes* *.Resize(1, 1).Offset(, k - 1).ID = asc* *End If* *.AutoFilter* *.AutoFilter Field:=3, Criteria1:== i, Operator:=xlAnd, Criteria2:== ii* *End With* *End With* *End Sub* On Friday, 27 June 2014 15:22:44 UTC+5:30, amar takale wrote: Dear Lali Mohan Exactly i want data by sort based on multiple criteria range. Regards Amar On Fri, Jun 27, 2014 at 3:20 PM, amar takale amart...@gmail.com javascript: wrote: Dear Pramod First thanks for reply.If you see Raw sheet (Row No 7) cell D7,here are I double click then mkt cap will sort as per criteria between 1000 to 5000 automatically which show output in output sheet,like this i will click each criteria Price,Roe... etc. data sort as per criteria range in cell E5 E6,F5 F6etc. I required for this VBA code to sort data. Only I double click Row 7. I hoe you understand my issue Regards Amar On Fri, Jun 27, 2014 at 3:02 PM, Pramod Singh pram...@gmail.com javascript: wrote: Not Sure What you are saying. Need more description. On Fri, Jun 27, 2014 at 11:28 AM, amar takale amart...@gmail.com javascript: wrote: Dear All friends Can anyone suggestion pls? On Wed, Jun 25, 2014 at 12:17 PM, amar takale amart...@gmail.com javascript: wrote: Dear Expert team I Required code for sort data as per criteria range in between numbers.PFA with more detailed in sheet. Regards Amar -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros...@googlegroups.com javascript:. To post to this group, send email to excel-...@googlegroups.com javascript:. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message
Re: $$Excel-Macros$$ Sort VBA Code Challenging difficult work
Dear Lalit bro.. Thanks for this good one code but it is only for mkt cap column i required this filter for total Row no 7 means all field (If add other criteria field in row 7). So pls as per my criteria solution,provide me VBA Code. One more small Question that i dont required filter arrow in row 7 only I double click D7 then sort data as per criteria. And also data filter when I put criteria in cell D5 D6 then automatically sort data in few second not double click in cell D7 again again.I hope you understand my whole query I'll be greatly oblidged if you could help. Looking forward to your response. Thanks. On Fri, Jun 27, 2014 at 3:45 PM, Lalit Mohan Pandey mohan.pande...@gmail.com wrote: Try this, I have created this for only MCap column: Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = $D$7 Then Call FilterData Application.Goto Me.Cells(1, 1) End If End Sub Sub FilterData() Dim r As Range Dim i As Long Dim ii As Long Dim k As Long With Sheet1 Set r = .Range($B$7:$I$29) i = .Range(D5).Value ii = .Range(D6).Value k = 3 With r If .Resize(1, 1).Offset(, k - 1).ID = Then .Resize(1, 1).Offset(, k - 1).ID = asc End If On Error Resume Next .Sort.SortFields.Clear On Error GoTo -1: On Error GoTo 0: Err.Clear If .Resize(1, 1).Offset(, k - 1).ID = asc Then .Sort Key1:=.Resize(, 1).Offset(, k - 1), Order1:=xlAscending, Header:=xlYes .Resize(1, 1).Offset(, k - 1).ID = desc ElseIf .Resize(1, 1).Offset(, k - 1).ID = desc Then .Sort Key1:=.Resize(, 1).Offset(, k - 1), Order1:=xlDescending, Header:=xlYes .Resize(1, 1).Offset(, k - 1).ID = asc End If .AutoFilter .AutoFilter Field:=3, Criteria1:== i, Operator:=xlAnd, Criteria2:== ii End With End With End Sub On Friday, 27 June 2014 15:22:44 UTC+5:30, amar takale wrote: Dear Lali Mohan Exactly i want data by sort based on multiple criteria range. Regards Amar On Fri, Jun 27, 2014 at 3:20 PM, amar takale amart...@gmail.com wrote: Dear Pramod First thanks for reply.If you see Raw sheet (Row No 7) cell D7,here are I double click then mkt cap will sort as per criteria between 1000 to 5000 automatically which show output in output sheet,like this i will click each criteria Price,Roe... etc. data sort as per criteria range in cell E5 E6,F5 F6etc. I required for this VBA code to sort data. Only I double click Row 7. I hoe you understand my issue Regards Amar On Fri, Jun 27, 2014 at 3:02 PM, Pramod Singh pram...@gmail.com wrote: Not Sure What you are saying. Need more description. On Fri, Jun 27, 2014 at 11:28 AM, amar takale amart...@gmail.com wrote: Dear All friends Can anyone suggestion pls? On Wed, Jun 25, 2014 at 12:17 PM, amar takale amart...@gmail.com wrote: Dear Expert team I Required code for sort data as per criteria range in between numbers.PFA with more detailed in sheet. Regards Amar -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros...@googlegroups.com. To post to this group, send email to excel-...@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get