hi  sort your data on item basis first

try this


Sub Macro1()
Dim i, z, k, t   As Long
t = 2
z = Application.WorksheetFunction.CountA(ActiveSheet.Range("a:a"))
k = 2

For i = 2 To z

If Range("a" & i + 1).Value <> Range("a" & i).Value Then


 Range("B" & k & ":B" & i).Select
  Selection.Copy

    Range("E" & t).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
        False, Transpose:=True
    Range("A" & i).Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("D" & t).Select
    ActiveSheet.Paste
    k = i + 1
   t = t + 1
  End If

  Next i

End Sub



regards
ashish koul
akoul.blogspot.com




On Mon, Aug 23, 2010 at 5:32 PM, <shin...@gmail.com> wrote:

>  Attached: Lookup Multiple values and display horizontally
> Message from shin...@gmail.com:
>
> Hi
>
> It would be helpful if someone can provide a solution without using VBA
>
> I have a series of data as shown on left side of the sheet. I want to get a 
> summary of it as shown on right side. What I am trying to get is a 
> combination function that looks up for multiple values and display it 
> horizontally. Requesting you to help me out.
>
> Thanks
> Shine
>
>
>
> Google Docs makes it easy to create, store and share online documents,
> spreadsheets and presentations.
> [image: Logo for Google Docs] <http://docs.google.com>
>
> --
>
> ----------------------------------------------------------------------------------
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links :
> http://twitter.com/exceldailytip
> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
> 3. Excel tutorials at http://www.excel-macros.blogspot.com
> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><><><><><><><><>
> HELP US GROW !!
>
> We reach over 7000 subscribers worldwide and receive many nice notes about
> the learning and support from the group.Let friends and co-workers know they
> can subscribe to group at
> http://groups.google.com/group/excel-macros/subscribe
>

-- 
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links : 
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
 
To post to this group, send email to excel-macros@googlegroups.com

<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!

We reach over 7000 subscribers worldwide and receive many nice notes about the 
learning and support from the group.Let friends and co-workers know they can 
subscribe to group at http://groups.google.com/group/excel-macros/subscribe

Reply via email to