I thought that was what we were doing, based on column C's values (the
names). There should be no duplicated values in column C after the macro is
run.... Do you want to do the table based on column A instead? I'm a bit
confused, so let me know.

It would help if you created two very small text table examples of before,
and then after the merge, to show exactly what you want.

Bernie



"NeedExcelHelp07" wrote in
message ...
Ok this macro works. Now the only problem is how do I merge the
information
of all the duplicates? There are 30,000 plus users so I can't go one by
one.
In coumn A is the Id which is unique to the user. There's an X marked
which
indicates they have access to that software. Is there a way to merge the
information from the duplicates?
Thanks!

"Bernie Deitrick" wrote:

Try this version, below.

HTH,
Bernie
MS Excel MVP

Sub MakeSummarySheetV2()
Dim mySht As Worksheet
Dim mySumSheet As Worksheet
Dim myCell As Range
Dim myDest As Range
Dim myRow As Long

On Error Resume Next
Application.DisplayAlerts = False
Worksheets("Summary").Delete
Application.DisplayAlerts = True

ActiveSheet.Copy Befo=Sheets(1)
Set mySumSheet = ActiveSheet
mySumSheet.Name = "Summary"

For Each mySht In ActiveWorkbook.Worksheets
If mySht.Name = "Summary" Then GoTo SkipMe:
Set myDest = mySumSheet.Cells(1, 256).End(xlToLeft)(1, 2)
myDest.Value = mySht.Name
Set myDest = myDest.EntireColumn

For Each myCell In mySht.Range("C1").CurrentRegion.Columns(3).Cells
If myCell.Row < 1 Then
If Not IsError(Application.Match(myCell.Value, _
mySumSheet.Range("C:C"), False)) Then
myDest.Cells(Application.Match(myCell.Value, _
mySumSheet.Range("C:C"), False)).Value = "Yes"
Else
myRow = mySumSheet.Cells(Rows.Count, 1).End(xlUp)(2).Row
mySumSheet.Cells(myRow, 1).Value = myCell.Offset(0, -2).Value
mySumSheet.Cells(myRow, 2).Value = myCell.Offset(0, -1).Value
mySumSheet.Cells(myRow, 3).Value = myCell.Value
myDest.Cells(myRow).Value = "Yes"
End If
End If
Next myCell
SkipMe:
Next mySht

End Sub



"NeedExcelHelp07" wrote in
message
...
I want to extract the name and the login and then if there's a secondary
ID,
that information as well.

"Bernie Deitrick" wrote:

What information do you want to extract from each sheet? Just the
name, or
do you need to get the login information as well when the name is new?

Bernie

"NeedExcelHelp07" wrote in
message ...
Thanks a lot! How can I run this Macro if in each sheet there's a
login ID
down Column A, and in some instances there's a secondary ID down
Column B,
then the names in Column C. Each sheet represents a different
software as
mentioned previously. So same macro but there's two more columns of
information.
"Bernie Deitrick" wrote:

Run the macro below. Change the "Yes" to the mark that you want:
an "X",
or perhaps a wingding font
checkmark.... You may need to apply formatting to the cells (either
manually or with the macro) if
you use the wingding....

HTH,
Bernie
MS Excel MVP


Sub Macro1()
Dim mySht As Worksheet
Dim mySumSheet As Worksheet
Dim myCell As Range
Dim myDest As Range
Dim myRow As Long

On Error Resume Next
Application.DisplayAlerts = False
Worksheets("Summary").Delete
Application.DisplayAlerts = True

ActiveSheet.Copy Befo=Sheets(1)
Set mySumSheet = ActiveSheet
mySumSheet.Name = "Summary"

For Each mySht In ActiveWorkbook.Worksheets
If mySht.Name = "Summary" Then GoTo SkipMe:
Set myDest = mySumSheet.Cells(1, 256).End(xlToLeft)(1, 2)
myDest.Value = mySht.Name
Set myDest = myDest.EntireColumn

For Each myCell In
mySht.Range("A1").CurrentRegion.Columns(1).Cells
If myCell.Row < 1 Then
If Not IsError(Application.Match(myCell.Value,
mySumSheet.Range("A:A"), False)) Then
myDest.Cells(Application.Match(myCell.Value,
mySumSheet.Range("A:A"), False)).Value =
"Yes"
Else
myRow = mySumSheet.Cells(Rows.Count,
1).End(xlUp)(2).Row
mySumSheet.Cells(myRow, 1).Value = myCell.Value
myDest.Cells(myRow).Value = "Yes"

End If
End If
Next myCell
SkipMe:
Next mySht

End Sub



"NeedExcelHelp07" wrote
in
message
...
Yes, the names are listed down column A. Each sheet is labeled
after
the
Software (Software A, Software B, etc.)

"Bernie Deitrick" wrote:

How are the individual sheets laid out? Just a list of names
down
column A?

HTH,
Bernie
MS Excel MVP


"NeedExcelHelp07"
wrote in
message
...
I have a workbook with several worksheets. Each worksheet is
divided
by the
software they have access to. There's overlapping names in
each
worksheet as
some names have access to more than one software. How can I
make
this into a
report listing the names on the left column, the names of the
software listed
across the top row, and a mark below each column if that
person has
access to
that software.

Thanks!