Textboxtaki tarihi hücreye tarih olarak atamak.

[tufan03]

Arkadaşlar Textbox146 ya yazdığımız tarihi Kayıtlar sayfasındaki D1 hücresine yine tarih olarak nasıl atayabiliriz. Teşekkür ederim.

 

[excel03]

Private Sub CommandButton1_Click()
Sheets("Kayıtlar").Range("d1").Value = UserForm1.TextBox146.Value
End Sub

 

[mesuttasar]

Private Sub Command_Button1()

For i = 1 To Cells(65536, 1).End(xlUp).Row
Textbox146.Value Format(Cells(i, 1), "dd.mm.yyyy")
Next i
End Sub

 

[tufan03]

SayınExcel03 text içindeki veriler şeklen aktarılıyor. Fakat aktırıldığı hücre içinde zannersem tarih olarak algılanmıyor. Zira aktarılan sayfada aktarılan tarihlerle ilgili formüller var onlar çalışmıyor. D1 hücresindeki aktarılan veriyi silip aynı tarihi el ile yazdığımızda çalışıyor.

 

[tufan03]

Sayın mesuttasar'ın kodlarından ise doğrusu birşey anlayamadım.

 

[Orion1]

Aradığınız cevap aşağıda.

sheets("Kayıtlar").Range("D1").Value = CDate(TextBox146.Value)
sheets("Kayıtlar").Range("D1").NumberFormat = "dd.mm.yyyy"

 

[tufan03]

Sayın Orion2 Deneyeceğim.

 

[tufan03]

Ve çalıştı, Teşekkürler.

 

[excel03]

SayınExcel03 text içindeki veriler şeklen aktarılıyor. Fakat aktırıldığı hücre içinde zannersem tarih olarak algılanmıyor. Zira aktarılan sayfada aktarılan tarihlerle ilgili formüller var onlar çalışmıyor. D1 hücresindeki aktarılan veriyi silip aynı tarihi el ile yazdığımızda çalışıyor.

Office 2007 kullanıyorum,denedim,çalıştı.Anlayamadım doğrusu.

 

[Orion1]

Ve çalıştı, Teşekkürler.

Rica ederim.
İyi çalışmalar.