TextBox ve Hücreye Aktarılan Tarih...!!!

[ocamsul]

Arkadaşlar merhabalar TextBox u aşağıdaki kod ile formatlıyoruz; Ancak, TextBox daki tarih hücreye aktarıldığında Sola yaslanmış şekilde görünüyo bu da bildiğim kadarıyla hücre içinde tarih değil yazı olarak algılanıyor. Tarih olarak algılanabilmesi için Sağa yaslı olması gerekmezurumu nasıl çözerim (Hücreye Tarihi yazdırırken)


Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(TextBox1.Value) Then
TextBox1.Value = Format(TextBox1.Value, "dd.mm.yyyy")
End If
End Sub

 

[Kemal Demir]

Ocamsul,

Belki Direkt olarak istediğiniz cevap olmkayacak ama aşagıdaki kod (F2 Enter) gorevini görmektedir.Belki işinizi görür.

Range("a1").value = Application.WorksheetFunction.Clean(Range("a1").value))

 

[Levent Menteşoğlu]

Tarihi sayıya çevirerek sayfaya aktarmalısınız. Formatıda sayfa üzerinde ayarlayabilirsiniz.

cells(....)=clng(cdate(textbox1))

 

[ocamsul]

SN: leventm VE Rakkas KAYIT Macrom gibi verdiğiniz cevaplar için teşekkür ederim. kayıt süreklilik gerektirdiğinden aşağıdaki macroda ne yapmam lazım?


Sub KAYIT1()
Sheets("Sheet6").Select
Range("a1").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("A2").Value = "" Then
Range("A2").Value = 1
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
'Textbox kutularındaki verileri hücrelere yazdırır.
ActiveCell.Offset(0, 1).Value = UserForm1.TextBox13.Value' Tarih Text i
ActiveCell.Offset(0, 2).Value = UserForm1.TextBox14.Value
ActiveCell.Offset(0, 3).Value = UserForm1.TextBox15.Value
ActiveCell.Offset(0, 4).Value = UserForm1.TextBox16.Value
ActiveCell.Offset(0, 5).Value = UserForm1.TextBox17.Value
ActiveCell.Offset(0, 6).Value = UserForm1.TextBox18.Value
ActiveCell.Offset(0, 7).Value = UserForm1.TextBox19.Value
ActiveCell.Offset(0, 8).Value = UserForm1.TextBox20.Value

MsgBox "Görevlendirme kaydı yapılmıştır...", vbApplicationModal, "Mesaj...!!!"

End Sub

 

[Kemal Demir]

Ocamsul,

Belki Yine Direk olarak aradıgınız cevap değil ama aşagıdaki kodu Calıstırırsanız zannedersem işinizi görür.

Sub KAYIT1()
Sheets("Sheet6").Select
Range("a1").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("A2").Value = "" Then
Range("A2").Value = 1
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
'Textbox kutularındaki verileri hücrelere yazdırır.
ActiveCell.Offset(0, 1).Value = UserForm1.TextBox13.Value' Tarih Text i
ActiveCell.Offset(0, 2).Value = UserForm1.TextBox14.Value
ActiveCell.Offset(0, 3).Value = UserForm1.TextBox15.Value
ActiveCell.Offset(0, 4).Value = UserForm1.TextBox16.Value
ActiveCell.Offset(0, 5).Value = UserForm1.TextBox17.Value
ActiveCell.Offset(0, 6).Value = UserForm1.TextBox18.Value
ActiveCell.Offset(0, 7).Value = UserForm1.TextBox19.Value
ActiveCell.Offset(0, 8).Value = UserForm1.TextBox20.Value

MsgBox "Görevlendirme kaydı yapılmıştır...", vbApplicationModal, "Mesaj...!!!"
Call TarYap
End Sub

Sub TarYap()
For x=2 to [a65536].End(3).Row
Cells(x,1).value= Application.WorksheetFunction.Clean(Cells(x,1))
Next
End Sub

NOT:Tarih Kolonu A Kolonu olarak tasarlanmıstır.

Biraz amatörce ama zannedersem (F2 Enter) işinizi görebilir.

 

[Levent Menteşoğlu]

ActiveCell.Offset(0, 1).Value = UserForm1.TextBox13.Value

Yukarıdaki satırı aşağıdaki ile değiştirin.

ActiveCell.Offset(0, 1).Value =clng(cdate(UserForm1.TextBox13.Value))

 

[ocamsul]

SN: leventm ve Rakkas yardımlarınız için çok teşekkür ederim. Kısa ve öz olarak SN: leventm üstadımın kodu işimi gördüm. SN: Rakkas üstadın örneğinide bir kenara aldım. çok sağolun.