• 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.

Naar kolom verspringen

Status
Niet open voor verdere reacties.

don42

Gebruiker
Lid geworden
25 apr 2014
Berichten
764
Hallo allemaal

ik heb iets gemaakt voor de biljartclub
dit wil ik via de beamer laten zien

is het mogelijk als er een score wordt ingevoerd in cel bv b11 (zou dan de eerste invoer zijn)
dat je na een enter naar I12 gaat en indien hier al ites staat naar L12
en dan als er een waarde is ingevuld in I of L dan 1 rij lager naar B13 en indien hier al een waarde staat naar E13
enz
ik weet niet of dit mogelijk
Het is aan de specialisten onder ons

DonBekijk bijlage Biljart.xlsm
 
Het zou zo kunnen.

Met vriendelijke groet,


Roncancio
 

Bijlagen

  • Biljart.xlsm
    23,3 KB · Weergaven: 28
niet helemaal

hoi

zoals jij het nu hebt gemaakt word de volgende lege cel gevonden
maar er zijn 2 rijen van deelnemer 1 = 1tm30 en 31tm 60
eigenlijk zou als b12 ingevuld word na een enter cel I 12 geselecteerd moeten worden
en na I12 B13 en dan I13 enz
waar na 30 beuren I40 naar L12

hoop dat het nog duidelijk is

groet Don
 
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
  
    If Target.Column = 9 Then
    Cells(Target.Row + 1, 2).Select
  
    If Target.Column = 2 Then
    Cells(Target.Row + 0, 9).Select
 
  
 End If
  End If
End Sub

Dit werkt alleen voor de bovenste optie wat doe ik hier fout?
 
Laatst bewerkt:
Ik denk dit:

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
  
    If Target.Column = 9 Then
    Cells(Target.Row + 1, 2).Select
    End if

    If Target.Column = 2 Then
    Cells(Target.Row + 0, 9).Select
    End if
 
End Sub

Greetz/Excelbat
 
Maak er dan dit van:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Column
        Case 2: Cells(Target.Row, 9).Select
        Case 9: Cells(Target.Row + 1, 2).Select
    End Select
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan