Please help me with VB Code
 

It's difficult to understand your layout. It might be easier if you just
sent your file to my address below along with a snippet of this msg and
before/after examples.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"ILoveMyCorgi" wrote in message
...
I need to place all of a students data on one row. In the first column I
have a student number [this number identifies the student], the second
column
contains a currency value, the third column contains comments. The next
row
may contain the same student number, with a different amount and a
different
comment, or the next row could go on to the next student number and a new
amount and comments for that student. Is there a way using visual basic
where
the one unique student number displays with all of the data for that
student
number on the same row? The spreadsheet is sorted by student number. I
am
trying to do a merge and need all the data on one row.

I have the VB below, but it doesn't work because I have one additional
column! Not sure what I need to do to modify this code to make it work.
I
am real lame when it comes to this... Please help me. Thanks for your
help.
Susan

Sub newlist()
Set w1 = Sheets("Sheet1")
Set w2 = Sheets("Sheet2")
w2.Cells(1, 1).Value = w1.Cells(1, 1).Value
w2.Cells(1, 2).Value = w1.Cells(1, 2).Value
Ide = Cells(1, 1).Value
w1.Activate
n = Cells(Rows.Count, 1).End(xlUp).Row
k = 3
kk = 1
For i = 2 To n
If w1.Cells(i, 1).Value = Ide Then
w2.Cells(kk, k).Value = w1.Cells(i, 2).Value
k = k + 1
Else
kk = kk + 1
k = 3
Ide = w1.Cells(i, 1).Value
w2.Cells(kk, 1).Value = Ide
w2.Cells(kk, 2).Value = w1.Cells(i, 2).Value
End If
Next
End Sub