Oude leerling
Gebruiker
- Lid geworden
- 30 aug 2010
- Berichten
- 554
Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Sub ZoekCombinatie()
If InStr(1, Join(Application.Transpose(Application.Transpose(Range("L22:AM22").Value)), ""), Range("F10") & Range("G10")) = 0 Then
MsgBox "Combinatie niet te vinden", vbCritical
End If
End Sub
If InStr(1, Join(Application.Transpose(Application.Transpose(Range("L22:AM22").Value)), "|"), Range("F10") & "|" & Range("G10")) = 0 Then
Sub hsv()
sv = Range("L24:AM24")
For j = 1 To UBound(sv, 2) Step 2
If sv(1, j) & "|" & sv(1, j + 1) = Range("f10") & "|" & Range("g10") Then
y = y + 1
Exit For
End If
Next j
MsgBox ("getallen komen" & IIf(y = 1, "", " niet") & " voor")
End Sub
Sub hsv()
Dim sv, rij, j As Long, y As Long
sv = Cells(3, 10).CurrentRegion
rij = Application.InputBox("kies een rijnummer", , , , , , , 1)
If rij <> False Then
rij = Application.Match(rij, Range("J3:J38"), 0)
If IsNumeric(rij) Then
sv = Cells(rij + 2, 12).Resize(, 28)
For j = 1 To UBound(sv, 2) Step 2
If sv(1, j) & "|" & sv(1, j + 1) = Range("f10") & "|" & Range("g10") Then
y = y + 1
Exit For
End If
Next j
If y = 0 Then If MsgBox("Is dit een vervangende wedstrijd?", vbYesNo) = vbNo Then MsgBox "U heeft een verkeerde naam genoteerd"
End If
End If
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.