Invullen cel beperken tot gebruik sneltoets

Status
Niet open voor verdere reacties.
J

Jemp

Gebruiker
Lid geworden
18 feb 2012
Berichten
131
Hallo

Situatie :
We gebruiken een eenvoudige Excel sheet waar de werknemers hun begin- en einduur van hun werkzaamheden moeten invullen.

Probleem :
Aangezien ze deze uren manueel invullen wordt er wel eens "gemist" wat het juiste uur betreft.

Vraag :
In Excel bestaat uiteraard de sneltoets "Ctrl+/" waarmee het computer-uur kan ingegeven worden in een cel.
Is het mogelijk om de invoer in een cel ook te beperken tot het gebruik van deze sneltoets "Ctrl+/" ?

Groetjes
JP
 
Met deze achter het blad kunnen ze invullen wat ze willen, er komt altijd de huidige tijd te staan als de cel wordt verlaten:
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then Target = Format(Now, "hh:mm")
End Sub
 
Hoi,
Kan je hier iets mee?

Greetz
 

Bijlagen

  • tijd.xlsm
    18,7 KB · Weergaven: 16
Hoi

Bedankt voor de snelle antwoorden.

@gast0660 : helpt niet echt want ze kunnen nog steeds invullen wat ze willen. Maar toch bedankt voor het antwoord.

@edmoor : werkt prima. Hoe ga ik te werk als ik het "target.address" wil uitbreiden naar een gebied "a1":"d5"?

groetjes
JP
 
Zo hoeven ze alleen maar in de cel te klikken:
Code: 
Private Sub Worksheet_selectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:D5")) Is Nothing Then
        Target = Format(Now, "hh:mm")
    End If
End Sub

Daarnaast lijkt het me nodig die gebruikers op te voeden.
 
Edmoor tx, werkt perfect.

Mensen zijn nu eenmaal dieren die moeilijk op te voeden zijn ;)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan