bahsettiğiniz talebinize yönelik olarak,çözüme dair aşağıdaki bilgilerin yeterli olduğu görülmüştür.
eklediğiniz hali ile kodlarınız dahil edildiğinde edinilen ilk incelemede elde edilen hata,
Userform üzerinde Tarih ve Saat bilgileri için kullanılmak istenen Textbox 8 ve Textbox 9 denetimlerinin olmadığı için,
denetim bulunamadığı uyarısı söz konusudur.
yapılması gereken iki işlem var.ya Userform üzerine bu adlarda iki denetim eklemelisiniz.ki,öncelikle bu hatayı vermesin diye.
ya da ekte yer alan kod ifadelerini mevcut olan ile değiştirerek kullanmalısınız.ki,bu hata verme sorun giderilebilsin.
Kod:
Private Sub CommandButton33_Click()
Sheets("Fatura").Range("h4").Value = ComboBox1.Value
Sheets("Fatura").Range("h5").Value = TextBox3.Value
Sheets("Fatura").Range("I6").Value = TextBox4.Value
Range("N5").NumberFormat = "dd.mm.yyyy"
Range("N6").NumberFormat = "hh:mm:ss"
'Sheets("Fatura").Range("n5").Value = CDate(TextBox8.Value) 'Tarih
'Sheets("Fatura").Range("n6").Value = TextBox9.Value 'Saat
Sheets("Fatura").Range("n5").Value = Format(Date, "dd.mm.yyyy")
Sheets("Fatura").Range("n6").Value = Format(Now, "hh:mm:ss")
If ComboBox1.Value = "" Then
MsgBox ("Adı Soyadını Boş Geçemessiniz")
Exit Sub
End If
If TextBox3.Value = "" Then
MsgBox ("Adresi Boş Geçemessiniz")
Exit Sub
End If
If TextBox4.Value = "" Then
MsgBox ("Vergi Dairesi ve Nosunu Boş Geçemessiniz")
Exit Sub
End If
'If TextBox8.Value = "" Then
'MsgBox ("Tarihi Boş Geçemessiniz")
'Exit Sub
'End If
'
'If TextBox9.Value = "" Then
'MsgBox ("Saatı Boş Geçemessiniz")
'Exit Sub
'End If
'
'TextBox8.Value = Format(Now(), "dd.mm.yyyy")
'TextBox9.Value = Format(Now(), "hh:mm;@")
ComboBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
UserForm_Initialize
UserForm1.Hide
Sheets("Fatura").Select
End Subiyi çalışmalar,saygılar.
