partij blokkeren

[belcitas]

Mijne Heren,
afgelopen dagen heeft U ons prima geholpen met het maken van een database
toch zouden wij U graag nog een vraag willen stellen over bijgaand voorbeeld
In het blad Wedstrijd worden in cel Z4 en Z6 het partij nummer ingevoerd
Na afloop van de partij word het resultaat dan overgeboekt naar Partij Uitslagen
Onze vraag is:
Als in het blad Wedstrijd een partij wordt ingevuld die in diezelfde week al is gespeeld kan dit dan geblokkeerd worden met bv de omschrijving "Partij Reeds gespeeld"

mvrgr
cvl

 

[HSV]

Sub hsv()
Dim x, y, sh As Worksheet
Set sh = Sheets("wedstrijd")
With Sheets("partij uitslagen")
x = Application.Match(sh.Range("y4"), .Columns(2), 0)
y = Application.Match(sh.Range("y6"), .Columns(2), 0)
 If IsNumeric(x) And IsNumeric(y) Then
   If .Cells(x, Left(sh.Range("z4"), 1) + 2) <> "" Or .Cells(y, Left(sh.Range("z6"), 1) + 2) <> "" Then MsgBox "wedstrijd al gespeeld"
 End If
End With
End Sub

 

[belcitas]

Harry
Dank U voor uw reactie
Sorry maar ik begrijp niet precies wat u bedoeld
is het de bedoeling dat deze macro tussen de macro wegschrijven resultaten gezet wordt of bedoelde U iets anders
Ik weet niet precies wat ik er mee aan moet

mvrgr
cvl

 

[HSV]

Je kan de code zonder sub hsv() in de change_event plaatsen.

 

[belcitas]

Harry
Bedankt voor uw hulp