textbox değeri tarih olmalı

[mrt]

Ekli kodları kullanarak girdiğim verilerin formatını Tarih formaytı olarak nasıl girerim.

Daha sonra kullandığım

ActiveCell.FormulaR1C1 = "=IF(AND(RC4<=R1C,RC5>=R1C),R1C,"""")"

formul çalışmıyor.
Ancak tarih hücrelerini girilen hücreleri seçip içinden çıktığımda komut çalışıyor.


Private Sub cmdkaydet_Click()

Columns("A:E").Select
Selection.EntireColumn.Hidden = False
Range("a1").Select


Dim bak As Range
Dim say As Integer
For Each bak In Range("A1:A" & WorksheetFunction.CountA(Range("A1:A65000")))
If bak.Value = cbAd.Value Then
MsgBox "Bu Kayıt numarası bulundu."
Exit Sub
End If
Next bak
For Each bak In Range("C1:C" & WorksheetFunction.CountA(Range("C1:C65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(cbAd.Value, vbUpperCase) Then
MsgBox "Bu isimde bir kaydınız bulundu"
Exit Sub
End If
Next bak

say = WorksheetFunction.CountA(Range("C1:C65000"))
txtsira.Value = say

Cells(say + 1, 1).Value = txtsira.Value
Cells(say + 1, 2).Value = CbBolge.Value
Cells(say + 1, 3).Value = cbAd.Value
Cells(say + 1, 4).Value = txtbastarihi.Value
Cells(say + 1, 5).Value = txtbittarihi.Value
Cells(say + 1, 6).Value = CbAdurum.Value

Workbooks("kayit.XLS").Save
MsgBox "Verileriniz Kaydedildi", , "KAYIT"
Cmdyenikayit_Click
cbAd.RowSource = "Veri!C2:C" & say + 1
txtsira.Value = WorksheetFunction.Count(Range("A1:A65000")) + 1
End Sub

 

[selections]

merhaba, sorunuzu tam anlayamadım, soru başlığınıza göre söylüyorum, textbox'ın içerisine 01012005 yazmak ve çıktığınızda bunun 01/01/2005 olarak değişmesinimi istiyorsunuz.? yoksa textbox içine sadece tarih mi girilebilsin istiyorsunuz.?

 

[mrt]

sayfaya kaydedilen veri tarih formatında olmalı.

textbox' a veri girişini calender ile yapıyorum.

fakat sayfaya kaydedilen veri text formatında oluyor.

Ben sayfaya kaydedilen verinin Tarih formatında olmasını istiyorum.

 

[omerceri]

Private Sub CommandButton1_Click()
Range("a1").Value = Month(Calendar1) & "/" & Day(Calendar1) & "/" & Year(Calendar1)
End Sub
şeklinde bir üç kağıt atarsanız problem çözülür

 

[Levent Menteşoğlu]

[a1]=cdate(textbox1.value) şeklinde deneyin.

 

[serkandemirci]

makroyu hücre değeri kadar nasıl çalıştırabilirim

 

[omerceri]

Cells(say + 1, 4).Value = Month(Calendar1) & "/" & Day(Calendar1) & "/" & Year(Calendar1)
veya
Cells(say + 1, 4).Value ==cdate(textbox1.value)

 

[mrt]

Sağolun Arkadaşlar,
Ellerinize sağlık.