Sort alphabetically with Gender also

[shimaa01234]

I want code to arrange the names alphabetically and by type also
With the possibility to choose male or female first

NAME	TYPE
A	Male
B	Female
C	Female
D	Male
E	Male
F	Male
G	Male
H	Female
I	Female
J	Male
K	Female
L	Female
M	Male
N	Female
O	Male

<colgroup><col span="2"></colgroup><tbody>
</tbody>

 

[shimaa01234]

Great, you're a very nice man
God bless you

 

[shimaa01234]

I want to filter born in the month of October

Birthday

30-Jul-1967

25-May-1963

8-Mar-1982

12-Oct-1975

28-Jan-1966

24-Dec-1955

3-May-1982

14-Dec-1981

4-Feb-1986

13-Jan-1986

29-Jan-1985

12-Jun-1984

7-Feb-1984

13-Jan-1987

5-Dec-1982

17-Apr-1983

31-Mar-1987

<colgroup><col></colgroup><tbody>
</tbody>

 

[MickG]

Is this new data part of the original (previous) sort Data or something separate ?????

 

[shimaa01234]

No, this is a new application

 

[MickG]

Try this:-
Select List.
From Data Tab, Select Filter
Select Filter drop down
Select "Date Filters"
Select "All Dates in the period"
Select "October"

 

[shimaa01234]

Is there a code, it is easier to work

 

[MickG]

Your data assumed to be in column "A".

Right click sheet Tab, Select "View Code". VB window appears.
Paste code into VB window.
Close VB Window

To run code Select Date with required Month from Date list :- Rows Hidden
Select Cell "A1":- Rows Unhidden

Private [COLOR="Navy"]Sub[/COLOR] Worksheet_SelectionChange(ByVal Target [COLOR="Navy"]As[/COLOR] Range)
[COLOR="Navy"]Dim[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range, Dn [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] nRng [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]If[/COLOR] Target.Address(0, 0) = "A1" [COLOR="Navy"]Then[/COLOR]
Rows.Hidden = False
[COLOR="Navy"]ElseIf[/COLOR] Target.Column = 1 And Target.Count = 1 [COLOR="Navy"]Then[/COLOR]
 [COLOR="Navy"]Set[/COLOR] Rng = Range(Range("A2"), Range("A" & Rows.Count).End(xlUp))
    [COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] Rng
    [COLOR="Navy"]If[/COLOR] Not Month(Dn.Value) = Month(Target) [COLOR="Navy"]Then[/COLOR]
        [COLOR="Navy"]If[/COLOR] nRng [COLOR="Navy"]Is[/COLOR] Nothing [COLOR="Navy"]Then[/COLOR]
            [COLOR="Navy"]Set[/COLOR] nRng = Dn
        [COLOR="Navy"]Else[/COLOR]
            [COLOR="Navy"]Set[/COLOR] nRng = Union(nRng, Dn)
        [COLOR="Navy"]End[/COLOR] If
    [COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]Next[/COLOR] Dn
[COLOR="Navy"]If[/COLOR] Not nRng [COLOR="Navy"]Is[/COLOR] Nothing [COLOR="Navy"]Then[/COLOR] nRng.EntireRow.Hidden = True
[COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[shimaa01234]

Wow, code above imagination
You are a genius
And a nice guy
Thank you very much Mister "MikG"

 

[MickG]

You're welcome

 

[shimaa01234]

I do not know, how I can thank you