Assalamu Alaikum Kak, saya lagi belajar VBA excel dan saya tidak tahu dengan kesalahan saya tolong dibantu kak :

pertanyaannya : saya ingin menghitung otomatis jumlah hari berdasarkan Textbox1 dan textbox2 yang dihasilkan dari tombol Kalender, aku pakai ini tp tidak menghitung otomatis.

Private Sub TextBox2_AfterUpdate()
Dim date1 As Date, date2 As Date
date1 = Format(Me.TextBox1.Text, "dd/mm/yyyy")
date2 = Format(Me.TextBox2.Text, "dd/mm/yyyy")
If date1 > date2 Then
TextBox2.SetFocus
MsgBox "date1 tidak boleh lebih tinggi dari date2"
End If
Me.hitung.Text = DateDiff("d", date1, date2) & " Hari"
Exit Sub
End Sub

Lupa Lampiran

Private Sub TextBox2_AfterUpdate() diganti menjadi
Private Sub TextBox2_change()

Astaga Terima kasih banyak kak bantuannya

sama2

Malam kak, aku mau lanjut belajar lagi bantu ya kak

Run-time error '13' Type mismatch

Alhamdulilah senanngnya bisa bergabung di Belajar Excel Org
terima kasih kak @Herry yang selalu bantu saya belajar.

NUMPANG nimbrung ya, bang @Herry, gimana caranya supaya calender bisa lgsung bernilai default today, tanpa harus klik kalendernya, jadi teks box jg akan lgsung bernilai today, tanpa harus mengisi nilai pada calendernya. kecuali memang nilai yg diharapkan bukan today, baru mengisi calendernya. terima kasih.

Mungkin seperti ini

terima kasih banyak bang@herry, kalo boleh tahu scripnya yang memberi nilai tgl default ini ya??

Private Sub UserForm_Initialize()
txtTgl = Format(Date, "DD/MM/YYYY")
End Sub

sama mau nanya bang, kalo txtTgl mau di inisial, format inisialnya date atau text
maklum masih pemula, kalau tahu caranya lebih mudah memahaminya. sekali lagi terima kasih.

Betul.
Private Sub Userform_initialize () kegunaannya untuk menjalankan kode didalamnya secara otomatis jika userform ini dibuka untuk pertama kali
Untuk menarik data tgl otomatis dari komputer dengan date
Kode format hanya untuk membentuk tulisan tglnya
Misal txtTgl = Format(Date, "DD-MM-YYYY") maka di textbox TxtTgl muncul 22-07-2023
Untuk textbox di userform isian datanya pasti berupa text