• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

test biljartspel

Status
Niet open voor verdere reacties.
B

belcitas

Gebruiker
Lid geworden
14 jan 2012
Berichten
126
In bijgaand bestand springt de cursor alleen maar over naar de andere speler als er een nul wordt ingevoerd.
Dit is niet de bedoeling; de cursor moet bij elk getal overspringen naar de andere speler.
Mijn kennis van macro’s is zeer beperkt, dus kom ik er niet uit hoe de macro zó aan te passen dat dit wél kan.
Wie kan mij helpen ?
 

Bijlagen

Laatst bewerkt door een moderator:
probeer het zo eens:
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim R As Range
    If Uit = True Then Exit Sub
    If Intersect(Target, [ScoresGroot]) Is Nothing Then Exit Sub
    If Target.Count > 1 Then [A2].Select: Exit Sub
'If Target = "" Then Exit Sub
    K = 5: c = Target.Column
    If c = 2 Or c = 9 Or c = 16 Then K = 2 'Kolom behoort nu bij de speler
[COLOR="#FF0000"]If Target <> "" Then[/COLOR]
    If K = 2 Then 'wissel van speler
        K = 5
    Else
        K = 2
    End If
End If
    For N = K To K + 18 Step 7 'zoek voor k de van onderaf eerste mogelijkhijd
        Set R = Cells(29, N).End(xlUp)
        If R.Row < 28 Then
            Set R = R.Offset(1)
            Exit For
        End If
    Next
ActiveWorkbook.Names.Add Name:="Locatie", RefersToR1C1:="=" & R.Address(, , xlR1C1)
End Sub
 
Hartelijk dank voor uw antwoord
Dit werkt prima precies zoals ik het bedoelde
Nogmaals dank
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan