invoer afdwingen

[bebobebo]

Hallo Exceltoppers,

Ik probeer het volgende voor elkaar te krijgen, heb al wat lopen zoeken maar gaat niet lukken.
Bij het opstarten komt er een opstartscherm voor 3 seconden, daarna gaat hij naar een invulscherm, tot hier lukt het.
Staat hier (cel C9) niks ingevuld blijft hij hangen en wacht op invul.
Op het moment dat er waarde staat of waarde word ingevuld, gaat hij door naar het tabbad start.
Wie kan mij verderer helpen.

Private Sub Workbook_open()
    Sheets("open").Visible = True
    Sheets("open").Select
        Application.Wait (Now + TimeValue("0:00:03"))
    ActiveWindow.SelectedSheets.Visible = False
        Sheets("datum").Select

  End Sub

Bekijk bijlage invuldatum afdwingen.xls

Groet Bert

 

[Warme bakkertje]

Bert, probeer volgende eens, als datumveld gevuld is gaat hij direct naar blad start anders naar invoerveld.

Private Sub Workbook_open()
    Sheets("open").Visible = True
    Sheets("open").Select
        Application.Wait (Now + TimeValue("0:00:03"))
    ActiveWindow.SelectedSheets.Visible = False
        If IsDate(Sheets("datum").[C9]) Then
            Sheets("Start").Select
        Else
            Sheets("Datum").[C9].Select
            MsgBox "Vul een datum in om verder te gaan"
        End If
  End Sub

Als datumveld ingevuld wordt gaat hij automatisch verder naar blad start met volgende code. Plaats deze achter blad Datum.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [C9].Address Then
    If IsDate(Target.Value) Then
        Sheets("Start").Activate
     End If
End If
End

Sub

Mvg

Rudi

 

[bebobebo]

Bert, probeer volgende eens, als datumveld gevuld is gaat hij direct naar blad start anders naar invoerveld.

Private Sub Workbook_open()
    Sheets("open").Visible = True
    Sheets("open").Select
        Application.Wait (Now + TimeValue("0:00:03"))
    ActiveWindow.SelectedSheets.Visible = False
        If IsDate(Sheets("datum").[C9]) Then
            Sheets("Start").Select
        Else
            Sheets("Datum").[C9].Select
            MsgBox "Vul een datum in om verder te gaan"
        End If
  End Sub

Als datumveld ingevuld wordt gaat hij automatisch verder naar blad start met volgende code. Plaats deze achter blad Datum.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [C9].Address Then
    If IsDate(Target.Value) Then
        Sheets("Start").Activate
     End If
End If
End

Sub

Mvg

Rudi

Hi Rudi,

Helemaal top.
Hoe doet het.
Heel hartelijk bedankt.

Gr. Bert