Namen rangschikken

[Angela69]

Ik vermoed dat cow18 gelijk heeft, en dat kun je zo controleren:

    For i = 1 To UBound(uit)
        If InStr(uit(i, 1), " % ") = 0 Then
            MsgBox "Namen uit niet gescheiden door  % op rij " & i
            Exit Sub
        End If
        namen = Split(uit(i, 1), " & ")

Hmm, ik ben geen VBA expert, macro toegevoegd maar....................................

(next ontbrak??)

 

[AHulpje]

Het was de bedoeling dat je die vier regels code zou tussenvoegen in de bestaande code

 

[Angela69]

Het was de bedoeling dat je die vier regels code zou tussenvoegen in de bestaande code

Hmmmm...., ik heb van VBA totaal geen kaas gegeten, maar heb wel eens begrepen dat je macro's best in één script mag wegschrijven. Maar goed, single krijg ik dit te zien:

 

[Angela69]

Het was de bedoeling dat je die vier regels code zou tussenvoegen in de bestaande code

Ik weet niets van VBA, waar moeten deze regels precies komen dan?

 

[AHulpje]

De bedoeling was dit:

Sub Paren()
    lastrow = Cells(Rows.Count, 1).End(xlUp).Row
    uit = Range("J2:J" & lastrow)
    thuis = Range("K2:K" & lastrow)
    For i = 1 To UBound(uit)
    
        If InStr(uit(i, 1), " % ") = 0 Then
            MsgBox "Namen uit niet gescheiden door  % op rij " & i
            Exit Sub
        End If
    
        namen = Split(uit(i, 1), " & ")
        For j = i + 1 To UBound(uit)
            If InStr(uit(j, 1), namen(0)) > 0 And InStr(uit(j, 1), namen(1)) > 0 Then
                uit(j, 1) = uit(i, 1)
            End If
        Next
        For j = 1 To UBound(uit)
        If InStr(thuis(j, 1), namen(0)) > 0 And InStr(thuis(j, 1), namen(1)) > 0 Then
            thuis(j, 1) = uit(i, 1)
        End If
        Next
    Next
    Range("J2:J" & lastrow) = uit
    Range("K2:K" & lastrow) = thuis
End Sub

 

[Angela69]

De bedoeling was dit:

Sub Paren()
    lastrow = Cells(Rows.Count, 1).End(xlUp).Row
    uit = Range("J2:J" & lastrow)
    thuis = Range("K2:K" & lastrow)
    For i = 1 To UBound(uit)
   
        If InStr(uit(i, 1), " % ") = 0 Then
            MsgBox "Namen uit niet gescheiden door  % op rij " & i
            Exit Sub
        End If
   
        namen = Split(uit(i, 1), " & ")
        For j = i + 1 To UBound(uit)
            If InStr(uit(j, 1), namen(0)) > 0 And InStr(uit(j, 1), namen(1)) > 0 Then
                uit(j, 1) = uit(i, 1)
            End If
        Next
        For j = 1 To UBound(uit)
        If InStr(thuis(j, 1), namen(0)) > 0 And InStr(thuis(j, 1), namen(1)) > 0 Then
            thuis(j, 1) = uit(i, 1)
        End If
        Next
    Next
    Range("J2:J" & lastrow) = uit
    Range("K2:K" & lastrow) = thuis
End Sub

Schiet mij maar lek, wil je eens naar dit bestand kijken en macro draaien? Ik heb fictieve namen aangebracht.

 

[AHulpje]

Je mag mij lekschieten, ik heb % gebruikt in plaats van &. Als je % wijzigt in & dan gaat het goed.
En de fabeltjeskrant was leuk.

 

[Angela69]

Je mag mij lekschieten, ik heb % gebruikt in plaats van &. Als je % wijzigt in & dan gaat het goed.
En de fabeltjeskrant was leuk.

Eindelijk, het werkt, ontzettend bedankt weer!