Userform Tarih

[pelin5353]

Selamlar
Userformda yazdigim tarihin, excel sayfasina gonderildiginde o sayfaya ait otomatik tarih formatini almasini istiyorum.. Ama Userformda nasil yaziliyorsa o sekilde cikiyor...IStenilen formati almasi icin hucre icine tiklamak zorunda kaliyorum.

 

[Levent Menteşoğlu]

Tarihi hücreye aktardığınız satırı yazarmısınız.

 

[Seyit Tiken]

Ekli dosyayı inceleyin. Textlere tarih girerken araya nokta koymadan entere basın. Örnek : 06012007 gibi.

 

[pelin5353]

Ekte Bahsettigim sayfayi gorebilirsiniz.

 

[pelin5353]

Ekte Bahsettigim sayfayi gorebilirsiniz

 

[Levent Menteşoğlu]

Aşağıdaki kodu ilgili yerine kopyalayarak deneyin.

Sheets("TRACE").Cells(kayıt, 1) = CLng(CDate(TextBox1.Text))

 

[pelin5353]

Sayin Leventm Cok tesekkurler,
Sorunsuz calisti. Peki oradaki Textboxta sistem tarihinin otomatik olarak gorunmesini nasil saglayabiliriz??

 

[Levent Menteşoğlu]

Aşağıdaki kodu userformun kod sayfasına kopyalayın.

Private Sub UserForm_Initialize()
TextBox1 = Format(Date, "dd mmmm yyyy")
End Sub

 

[pelin5353]

Bi hata yaptim sanirim calistıramadim.

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin.

 

[pelin5353]

Sayin Leventm,

Yardimlariniz icin cok tesekkurler..