formdan aktarılan tarihi formül algılamıyor.

[fedeal]

herkeze günaydın gününüz aydın olsun.
formdan aktarılan veri(sarı hücredeki tarih) bir yan hücredeki formül tarafından görülmüyor hücrenin üzerine tıklayıp enter yapınca düzeliyor. Bunun kodlamı alakası var? Textboxu cdbl() içine aldım olmadı.yardımlarınız için şimdiden teşekkürler.

 

[hamitcan]

textbox =format(textbox,"dd/mm/yyyy") şeklinde deneyin.

 

[fedeal]

aktarım yaptıgım satır
Sheets("KAYIT").Range("H" & Bos_Satir).Value = Format(Date)
bunu
Sheets("KAYIT").Range("H" & Bos_Satir).Value = Format(Date,"dd/mm/yyyy")
yapsamda
Sheets("KAYIT").Range("H" & Bos_Satir).Value = Format(textbox9,"dd/mm/yyyy")
yapsamda
sonuç aynı tarih olrakta algılamıyor.hücreye tıklayıp enter yapınca düzeliyor.

 

[fedeal]

nasıl cdbl(textbox1) ifade degerini çift duyarlılıklı sayı türüne ceviriyorsa böyle bir cözüm yokmu tarih için

 

[fedeal]

çözdüm ilgilenen herkeze çok teşekkürler
Sheets("KAYIT").Range("H" & Bos_Satir).Value = DateValue(TextBox9)

 

[eroll123]

Tarih formatını algılamıyor.

Arkadaşlar aynı sorun bendede var defaatlerdir uğraşıyorum yapamadım.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C1:C1000")) Is Nothing Then Exit Sub
Target.Offset(0, -1) = Format(Now, "dd.mm.yyyy")
End Sub

benim makrom da bu şekilde tarihi yazıyor lakin hücrenin içine çift tıklamadan yazılanı tarih olarak algılamıyor sanırım hücreye çift tıklayınca içindeki veriyi sağa yaslıyor ve tarih olarak algılıyor. İçine tıklamadan bu sorunu nasıl çözebilirim yardımcı olabilirmisiniz. Teşekkürler.

 

[ÖmerBey]

Öncelikle hücrelerin formatıyla alakalı bir durum olabilir. Bunu düzelttiğiniz halde sorun devam ediyorsa tarihi şu şekilde yazdırmayı deneyiniz.

Target.Offset(0, -1) = Date

veya

Target.Offset(0, -1) = DateValue(Format(Now, "dd.mm.yyyy"))

 

[eroll123]

Sonsuz Teşekkür ederim bilgi paylaştıkça güzelleşir Target.Offset(0, -1) = DateValue(Format(Now, "dd.mm.yyyy")) bu şekilde yapınca düzeldi. siz paylaştınız bişe eksilmedi bize faydalı oldunuz tekrar teşekkür ederim.

 

[Orion1]

Buyurun.

Target.Offset(0, -1) = Date
Target.Offset(0, -1).NumberFormat = "dd.mm.yyyy"