De VBA code die ik heb vult nu alleen de eerste cel die voldoet aan de voorwaarde.
Ik wil dat die ook de andere cellen vult die aan de voorwaarde voldoen.
verder moet de gehele code herhaalt worden voor cel A2 t/m A54
alleen moeten dan ook andere cellen worden gekopieerd D2 en F2 t/m D54 en F54.
kan iemand me hier mee helpen?
Ik wil dat die ook de andere cellen vult die aan de voorwaarde voldoen.
verder moet de gehele code herhaalt worden voor cel A2 t/m A54
alleen moeten dan ook andere cellen worden gekopieerd D2 en F2 t/m D54 en F54.
kan iemand me hier mee helpen?
Code:
Sub A2_medespeler()
Dim ii, i As Integer
For ii = 6 To 18
For i = 2 To 54
If Range("A" & i) = "" Then Exit Sub
If Range("A2") = Sheets("Overzicht partijen mix").Range("D" & ii) Or Range("A2") = Sheets("Overzicht partijen mix").Range("E" & ii) Or Range("A2") = Sheets("Overzicht partijen mix").Range("F" & ii) Then
If Sheets("Overzicht partijen mix").Range("D" & ii) = Range("A" & i) Or Sheets("Overzicht partijen mix").Range("E" & ii) = Range("A" & i) Or Sheets("Overzicht partijen mix").Range("F" & ii) = Range("A" & i) Then
Worksheets("Toernooi Overzicht").Select
Sheets("Toernooi Overzicht").Range("D2").Copy
Range("D" & i).PasteSpecial
Sheets("Toernooi Overzicht").Range("F2").Copy
Range("F" & i).PasteSpecial
End If
End If
Next i
Next ii
End Sub