Compiling Data For Mail Merge

[Dratchsky]

Good Morning,

I am looking for a solution to quickly help fill rows based on their shared Value in Column C

I have several group id (Column C) that I need to have go from this

To This

Please let me know if you need more information

 

[mrshl9898]

Perhaps:

*Note GroupID looks like column B, I have made the below for Column C.

Sub makeso()

Dim mycol As Long
Dim currow As Long
Dim searchrow As Long
Dim GroupID As String
Dim IDNumber As String
Dim Counter As Long

currow = 10

Do Until Cells(currow, 3) = ""
    GroupID = Cells(currow, 3)
    IDNumber = Cells(currow, 4)
    searchrow = 10
    mycol = 8
        Do Until Cells(searchrow, 3) = ""
            If Cells(searchrow, 3) = GroupID Then
                If Cells(searchrow, 4) <> IDNumber Then
                    Cells(currow, mycol) = Cells(searchrow, 4)
                    Cells(currow, mycol + 1) = Cells(searchrow, 5)
                    Cells(currow, mycol + 2) = Cells(searchrow, 6)
                    Cells(currow, mycol + 3) = Cells(searchrow, 7)
                    mycol = mycol + 4
                End If
            End If
        searchrow = searchrow + 1
        Loop
currow = currow + 1
Loop

Counter = 1
colnum = 8
Do Until Cells(10, colnum) = ""
    Cells(9, colnum) = "Room " & Counter & " ID"
    Cells(9, colnum + 1) = "Room " & Counter & " F"
    Cells(9, colnum + 2) = "Room " & Counter & " L"
    Cells(9, colnum + 3) = "Room " & Counter & " Email"
    colnum = colnum + 4
    Counter = Counter + 1
Loop
    
End Sub

 

[Macropod]

You don't actually need to do any of that... See: Mail Merge Multiple Rows into one based on multiple columns

 

[Dratchsky]

Perhaps:

*Note GroupID looks like column B, I have made the below for Column C.

Sub makeso()

Dim mycol As Long
Dim currow As Long
Dim searchrow As Long
Dim GroupID As String
Dim IDNumber As String
Dim Counter As Long

currow = 10

Do Until Cells(currow, 3) = ""
    GroupID = Cells(currow, 3)
    IDNumber = Cells(currow, 4)
    searchrow = 10
    mycol = 8
        Do Until Cells(searchrow, 3) = ""
            If Cells(searchrow, 3) = GroupID Then
                If Cells(searchrow, 4) <> IDNumber Then
                    Cells(currow, mycol) = Cells(searchrow, 4)
                    Cells(currow, mycol + 1) = Cells(searchrow, 5)
                    Cells(currow, mycol + 2) = Cells(searchrow, 6)
                    Cells(currow, mycol + 3) = Cells(searchrow, 7)
                    mycol = mycol + 4
                End If
            End If
        searchrow = searchrow + 1
        Loop
currow = currow + 1
Loop

Counter = 1
colnum = 8
Do Until Cells(10, colnum) = ""
    Cells(9, colnum) = "Room " & Counter & " ID"
    Cells(9, colnum + 1) = "Room " & Counter & " F"
    Cells(9, colnum + 2) = "Room " & Counter & " L"
    Cells(9, colnum + 3) = "Room " & Counter & " Email"
    colnum = colnum + 4
    Counter = Counter + 1
Loop
   
End Sub

 

[Dratchsky]

Perhaps:

*Note GroupID looks like column B, I have made the below for Column C.

Sub makeso()

Dim mycol As Long
Dim currow As Long
Dim searchrow As Long
Dim GroupID As String
Dim IDNumber As String
Dim Counter As Long

currow = 10

Do Until Cells(currow, 3) = ""
    GroupID = Cells(currow, 3)
    IDNumber = Cells(currow, 4)
    searchrow = 10
    mycol = 8
        Do Until Cells(searchrow, 3) = ""
            If Cells(searchrow, 3) = GroupID Then
                If Cells(searchrow, 4) <> IDNumber Then
                    Cells(currow, mycol) = Cells(searchrow, 4)
                    Cells(currow, mycol + 1) = Cells(searchrow, 5)
                    Cells(currow, mycol + 2) = Cells(searchrow, 6)
                    Cells(currow, mycol + 3) = Cells(searchrow, 7)
                    mycol = mycol + 4
                End If
            End If
        searchrow = searchrow + 1
        Loop
currow = currow + 1
Loop

Counter = 1
colnum = 8
Do Until Cells(10, colnum) = ""
    Cells(9, colnum) = "Room " & Counter & " ID"
    Cells(9, colnum + 1) = "Room " & Counter & " F"
    Cells(9, colnum + 2) = "Room " & Counter & " L"
    Cells(9, colnum + 3) = "Room " & Counter & " Email"
    colnum = colnum + 4
    Counter = Counter + 1
Loop
   
End Sub

I wrote the wrong column. Is there any way to write it for column B

 

[mrshl9898]

Yep. Move all the column and cell references back one.