Group

[sbaily]

hi

I want to be able to group data in excel but automatically
i have in a column A a customer ID and then mutliple rows for different orders, how do i group by the first entry for each customer so i will have one line and when clicking on the + the other orders are displayed?

Thanks

 

[ColinKJ]

Hi sbaily,

You could just use the "AutoFilter" function to display only those rows for the selected customer ID.

ColinKJ

 

[Datsmart]

I was intrigued by this question, put together some code to group some data by running a macro.
Here is my test data:

Excel Workbook
	A	B	C	D
1	ID	code	Date	Salemman
2	100001
3		1112-2027-3	4/1/2010	EMEKA ELENEWOKE (Phc)
4		9999-1001-1	4/1/2010	EMEKA ELENEWOKE (Phc)
5		9999-1002-1	4/1/2010	EMEKA ELENEWOKE (Phc)
6	100003
7		9999-1005-1	4/1/2010	EMEKA ELENEWOKE (Phc)
8	100034
9		1101-0022-3	5/1/2010	INNOCENT OGWOGWO (Phc)
10		1401-0018-2	5/1/2010	INNOCENT OGWOGWO (Phc)
11		9999-1002-1	5/1/2010	INNOCENT OGWOGWO (Phc)
12	100048
13		1202-0046-3	6/1/2010	DORIS KALIO (Phc)
14		1402-0040-2	6/1/2010	DORIS KALIO (Phc)
15	100065
16		9999-1002-1	7/1/2010	JOHNNIE AZIBAOLA (Phc)
17		9999-1005-1	7/1/2010	JOHNNIE AZIBAOLA (Phc)
18		9999-1006-1	7/1/2010	JOHNNIE AZIBAOLA (Phc)
19	100071
20		1112-2060-3	7/1/2010	SOLOMON IYALLA (Phc)
21	100084
22		1202-0030-3	8/1/2010	INNOCENT OGWOGWO (Phc)
23	100085
24		1112-0100-3	8/1/2010	SPENCER GREEN (Phc)
Sheet

Here is my code.

Sub AutoGroup()
    Range("B2").Select
    Do Until ActiveCell = "" And ActiveCell.Offset(1, 0) = ""
        If ActiveCell.Offset(0, -1) <> "" Then
            sr = ActiveCell.Offset(1, 0).Row
            Do Until ActiveCell <> "" And ActiveCell.Offset(1, -1) <> ""
                ActiveCell.Offset(1, 0).Activate
                If ActiveCell = "" And ActiveCell.Offset(1, 0) = "" Then GoTo LastGroup
            Loop
            er = ActiveCell.Row
        End If
        Rows(sr & ":" & er).Group
        ActiveSheet.Outline.SummaryRow = xlAbove
        ActiveCell.Offset(1, 0).Activate
        If ActiveCell = "" And ActiveCell.Offset(1, 0) = "" Then Exit Sub
    Loop
LastGroup:
    er = ActiveCell.Offset(-1, 0).Row
    Rows(sr & ":" & er).Group
End Sub