sorting/filtering automatisation

[nn992]

Hello everyone,

I have spent quite a lot of time trying to figure this one out.

I have excel with bunch of data, and I need to show data which is based on filtering. I need to, based on one data column, show filtered content of another column.
I can do this manually, but data source is dynamic, so I need a formula or macro for this thing...

One idea would be to represent unique elements of column 1, and then somehow filter column 2 based on content of column 1.



To make it simpler, here is a screenshot of what I am trying to do...

 

[MickG]

This should give you what you want, though, I'm not sure if the method is what you want.
Your Data starts"B4", results start "H6".

[COLOR="Navy"]Sub[/COLOR] MG23Feb09
[COLOR="Navy"]Dim[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range, Dn [COLOR="Navy"]As[/COLOR] Range, n [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] Q [COLOR="Navy"]As[/COLOR] Variant
[COLOR="Navy"]Set[/COLOR] Rng = Range("B5", Range("B" & Rows.Count).End(xlUp))
[COLOR="Navy"]With[/COLOR] CreateObject("scripting.dictionary")
.CompareMode = vbTextCompare
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] Rng
    [COLOR="Navy"]If[/COLOR] Not .Exists(Dn.Value) [COLOR="Navy"]Then[/COLOR]
            ReDim Ray(1 To 1)
            Ray(1) = Dn.Offset(, 1).Value
        .Add Dn.Value, Ray
    [COLOR="Navy"]Else[/COLOR]
        Q = .Item(Dn.Value)
                ReDim Preserve Q(1 To UBound(Q) + 1)
                Q(UBound(Q)) = Dn.Offset(, 1).Value
        .Item(Dn.Value) = Q
    [COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]Next[/COLOR]
[COLOR="Navy"]Dim[/COLOR] K [COLOR="Navy"]As[/COLOR] Variant
[COLOR="Navy"]Dim[/COLOR] Ac [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
Ac = 7
    [COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] K [COLOR="Navy"]In[/COLOR] .keys
        Ac = Ac + 1
        Cells(6, Ac) = K
        Cells(7, Ac).Resize(UBound(.Item(K))).Value = Application.Transpose(.Item(K))
    [COLOR="Navy"]Next[/COLOR] K
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]With[/COLOR]
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick