Format Sorunu

[sender]

Dim bak As Range
Dim say As Integer
For Each bak In Range("H1:H" & WorksheetFunction.CountA(Range("H1:H65500")))
If bak.Value = ComboBox2.Value Then
MsgBox "Bu Kayıt numarası bulundu."
Exit Sub
End If
Next bak
say = WorksheetFunction.CountA(Range("B1:B65000"))
txtsira.Value = say
Cells(say + 1, 1).Value = ComboBox2.Value
Cells(say + 1, 2).Value = TextBox1.Value
Cells(say + 1, 3).Value = TextBox2.Value
Cells(say + 1, 4).Value = TextBox3.Value

Cells(say + 1, 6).Value = TextBox4.Value
Cells(say + 1, 7).Value = TextBox19.Text
Cells(say + 1, 8).Value = txtsira.Value
txtsira.Value = WorksheetFunction.Count(Range("h1:h65500")) + 1

Bu şekilde Formadan excele veri aktarıyorum. Textbox19 userformda tarihi göstermektedir.

Excele verilerimi aktardığımda excel userfordan grdiğim tarihleri metin olarak algılıyor. Textbox19.value=format(textbox19("dd.mm.yyyy")) yaptım yine metin görüyor. Bu konuda yardım edermisiniz.

 

[Korhan Ayhan]

Selamlar,

Kodunuzdaki aşağıdaki satırı bir sonraki satır ile değiştirip denermisiniz.

Sizin uyguladığınız;

Cells(say + 1, 7).Value = TextBox19.Text

Uygulamanız gereken;

Cells(say + 1, 7).Value = Cdate(TextBox19)