Ik heb een VBA code die werkt als ik in cel D2:F2 iets invul.
maar nu wil ik dat de code ook werkt als ik iets invul in D3:F3 en wordt vergeleken met A3.
Wil dus in deze code alles hetzelfde houden.
alleen moet overal waar A2 staat worden vervangen door A3
en overal waar ("D2:F2") staat moet worden vervangen door ("D3:F3")
en deze toepassing wil ik voor cel 2 t/m 52
maar nu wil ik dat de code ook werkt als ik iets invul in D3:F3 en wordt vergeleken met A3.
Wil dus in deze code alles hetzelfde houden.
alleen moet overal waar A2 staat worden vervangen door A3
en overal waar ("D2:F2") staat moet worden vervangen door ("D3:F3")
en deze toepassing wil ik voor cel 2 t/m 52
Code:
Sub A2_medespeler()
Dim ii, i As Integer
For ii = 6 To 18
For i = 2 To 54
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
Range("D2:F2").Select
Application.CutCopyMode = False
Selection.Copy
Range("D" & i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
If Range("A" & i) = 0 Then Range("D" & i) = ""
If Range("A" & i) = 0 Then Range("E" & i) = ""
If Range("A" & i) = 0 Then Range("F" & i) = ""
End If
Next i
Next ii
End Sub