textboxa yazmış olduğum tarihi hücreye bazen tarih olarak bazende metin olarak kaydediyor kayıt yapmış olduğum hücrlerin formatı tarih olduğu halde bu neden kaynaklanabilir kodlarda hata olabilirmi?
kodlar aşağıdaki gibi;
Private Sub CommandButton1_Click()
Call UserForm_Initialize
sat = Sheets(ComboBox1.Value).[a1:a65536].Find(ComboBox2.Value).Row
Sheets(ComboBox1.Value).Cells(sat, 13) = TextBox2.Value
ComboBox2.Value = ""
TextBox1.Value = ""
TextBox2.Value = ""
End Sub
Private Sub UserForm_Initialize()
TextBox1 = Format(TextBox1, "dd""/""mm""/""yyyy")
TextBox2 = Format(TextBox2, "dd""/""mm""/""yyyy")
For B = 1 To Sheets.Count
ComboBox1.AddItem Sheets(B).Name
Next
End Sub
kodlar aşağıdaki gibi;
Private Sub CommandButton1_Click()
Call UserForm_Initialize
sat = Sheets(ComboBox1.Value).[a1:a65536].Find(ComboBox2.Value).Row
Sheets(ComboBox1.Value).Cells(sat, 13) = TextBox2.Value
ComboBox2.Value = ""
TextBox1.Value = ""
TextBox2.Value = ""
End Sub
Private Sub UserForm_Initialize()
TextBox1 = Format(TextBox1, "dd""/""mm""/""yyyy")
TextBox2 = Format(TextBox2, "dd""/""mm""/""yyyy")
For B = 1 To Sheets.Count
ComboBox1.AddItem Sheets(B).Name
Next
End Sub