Validatie in userform

[goof2808]

Hi,

Via een userform laat ik data invoeren(zie code onderaan)

Bij de combobox "cboAfwijzReden" heb ik in de eigenschappen aangegeven dat de keuze beperkt is tot de inhoud van een named range op het blad Lijsten
(=Row Source: Lijsten!lijst_harde_afwijz)

Maar gebruikers kunnen nu nog steeds waarden invoeren die niet mogen. Ik neem aan dat de data validatie in de VBA-code opgenomen moet worden?

Private Sub cmdToevoegen_afwijzer_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("data")

Application.ScreenUpdating = False

'find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row

'copy the data to the database
ws.Cells(iRow, 4).Value = Me.txtDatum.Value
ws.Cells(iRow, 5).Value = Me.cboTeam.Value
ws.Cells(iRow, 6).Value = Me.cboMerk.Value
ws.Cells(iRow, 14).Value = Me.txtTPnr.Value
ws.Cells(iRow, 11).Value = Me.txtKlant.Value
ws.Cells(iRow, 13).Value = Me.cboAfwijzReden.Value

'clear the data
Me.txtDatum.Value = ""
Me.cboTeam.Value = ""
Me.cboMerk.Value = ""
Me.txtTPnr.Value = ""
Me.txtKlant.Value = ""
Me.cboAfwijzReden.Value = ""
Me.txtDatum.SetFocus
Sheets("Data entry").Select

End Sub

 

[Bakk4318]

Kijk even op onderstaande link:

http://www.helpmij.nl/forum/showthread.php?t=406482

 

[goof2808]

Dat was erg simpel!

Thanks!