In de procedure 'cmbok' dit blokje aanpassen...
 

   With Sheets("Blad1").Range("b100").End(xlUp)
        TempDat = Split(tdat, "-")
        .Offset(1).Resize(, 4) = Array(CLng(DateSerial(TempDat(2), TempDat(1), TempDat(0))), tin.Value, tuit.Value, Tcat)
    End With

Maar vooral het initialiseren van die datum omzetten naar: UserForm1.tdat.Value = Format(Date, "dd-mm-yyyy")

Daarnaast is je gebruikte methode om buiten de procedure van je formulier, je formulier te initialiseren héél bijzonder. Er bestaat een ingebouwde methode voor in het formulier zelf. Gebruik deze!

Waar kan ik die methode vinden ?

in de code van je userform.
Private Sub UserForm_Initialize()
Sheets("Blad1").ListObjects("Tabel1").AutoFilter.ShowAllData
tdat.Value = Format(Date, "dd/mm/yyyy")
End Sub

in de code van je blad is dit voldoende.
Private Sub CommandButton1_Click()
    UserForm1.Show
End Sub
Kleurcode voor je userform, is aan te passen bij de eigenschappen. Kleuren door code is dan overbodig.
&H00FF9999&
Gebruik unload me ipv Me hide. Dan is  reset_values overbodig in de sluitknop.
Private Sub cmbanul_Click()
 Unload me
 End Sub

Voor Sub reset_values()
Nu zijn er maar drie controls die je wilt leegmaken,heb  je echter vb 30 controls dan wordt het een lange lijst.
Gebruik beter zoiets. (1 of 100 controls, maakt niets uit)
Private Sub reset_values()
For Each ct In Controls
Select Case TypeName(ct)
      Case "TextBox": ct.Text = ""
      Case "ComboBox", "ListBox": ct.ListIndex = -1
End Select
Next ct
tdat.Value = Format(Date, "dd/mm/yyyy")
end sub
in plaats van
Private Sub reset_values()
 UserForm1.tuit.Value = ""
 UserForm1.tin.Value = ""
  UserForm1.Tcat.Value = ""
End Sub

Ik zou lijst gebruiken in plaats van RowSource.
Maak een tabel van je Categorie lijst.
Stel de naam van je tabel is cat_tbl dan wordt  UserForm_Initialize:
[code]Private Sub UserForm_Initialize()
Sheets("Blad1").ListObjects("Tabel1").AutoFilter.ShowAllData
tdat.Value = Format(Date, "dd/mm/yyyy")
Tcat.List = [cat_tbl].Value
End Sub
[/code]

compromis gekozen tussen je tips en mijn code

Mooi zo, je moet zeker kiezen voor wat het beste werkt voor jou.
Dank voor de feedback