Match name in 1 column with another for a dynamic range

Originally Posted by protonLeah

Your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution.

Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.

To change a Title go to your first post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

Changed the title thanks!

Hi Sintek, Thanks for the reply.
Your code works great! just the way I want it too, but there is a problem, The code is not working on the first and the last name? That is going to get me into to trouble if I miss to bill 2 kids!

Thanks for the help though much appreciated.

AnirudhC

This is how I read your problem.
You have few data spelled wrong, e.g. Angayarlcanni, Aathmika vs Aathimika.

Sub test()
    Dim a, b, x, y, i As Long, ii As Long, iii As Long, n As Long, myName
    With [a6].CurrentRegion
        x = Filter(.Parent.Evaluate("transpose(if(" & .Columns(1).Address & "<>1,row(1:" & .Rows.Count & ")))"), False, 0)
        y = Filter(.Parent.Evaluate("transpose(if(" & .Columns(1).Address & "=1,row(1:" & .Rows.Count & ")))"), False, 0)
        If UBound(y) < 0 Then Exit Sub
        a = .Value
        ReDim b(1 To UBound(a, 1), 1 To UBound(a, 2))
        For i = 0 To UBound(x)
            n = n + 1
            For ii = 1 To UBound(a, 2): b(n, ii) = a(Val(x(i)), ii): Next
            If b(n, 1) Like "*,*" Then
                myName = Trim$(Split(Trim$(Split(b(n, 1), ",")(1)))(0))
                For ii = 0 To i + 5
                    If ii > UBound(y) Then Exit For
                    If a(y(ii), 4) <> "" Then
                        If Trim$(Split(a(y(ii), 4), ":")(0)) = myName Then
                            n = n + 1
                            For iii = 2 To UBound(a, 2)
                                b(n, iii) = a(y(ii), iii)
                            Next
                            b(n, 1) = myName: a(y(ii), 4) = Empty: Exit For
                        End If
                    End If
                Next
            End If
        Next
        .Value = b
    End With
End Sub

Hi Jindon, Thanks for the reply.
Your code works perfectly too! But it not picking up the full name of the kids, also on rows 114-118 there are 4 billing amounts, after running the code only 2 are left.. If we could get around these 2 problems it would be much appreciated!

Thanks for the help though much appreciated.

Try this one then

Sub test()
    Dim a, b, x, y, i As Long, ii As Long, iii As Long, n As Long, myName
    With [a6].CurrentRegion
        x = Filter(.Parent.Evaluate("transpose(if(" & .Columns(1).Address & "<>1,row(1:" & .Rows.Count & ")))"), False, 0)
        y = Filter(.Parent.Evaluate("transpose(if(" & .Columns(1).Address & "=1,row(1:" & .Rows.Count & ")))"), False, 0)
        If UBound(y) < 0 Then Exit Sub
        a = .Value
        ReDim b(1 To UBound(a, 1), 1 To UBound(a, 2))
        For i = 0 To UBound(x)
            n = n + 1
            For ii = 1 To UBound(a, 2): b(n, ii) = a(x(i), ii): Next
            If b(n, 1) Like "*,*" Then
                myName = Trim$(Split(Trim$(Split(b(n, 1), ",")(1)))(0))
                For ii = 0 To i + 5
                    If ii > UBound(y) Then Exit For
                    If a(y(ii), 4) <> "" Then
                        If Trim$(Split(a(y(ii), 4), ":")(0)) = myName Then
                            n = n + 1
                            For iii = 2 To UBound(a, 2)
                                b(n, iii) = a(y(ii), iii)
                            Next
                            b(n, 1) = a(x(i), 1): a(y(ii), 4) = Empty
                        End If
                    End If
                Next
            End If
        Next
        .Value = b
    End With
End Sub

WORKED LIKE A CHARM! you're god. 'nuf said.

Also it is not dependant on the sheet or workbook name or number of lines right? just the region has to start on A6?

Not working, the billing amount of second one still going to the first blake.

OW shizzz repeated names takes the second name to the first one? "Blake" for instance, there are 2 blakes, second ones billing amount is going to the first blake..

It is based on the layout of the workbook that you uploaded.
It works on ActiveSheet, so doesn't matter of the sheet name however, Row 5 must be completely blank.

Copy again. The code has been edited.

Worked! Thank you so much!!