Çözüldü Hücre değerini text yerine tarih olarak girilmesi.

Mesala Cells(sat, 10) = Me.Controls("TextBox" & perst + 6).Text bu kodu kısa takvim olarak kaydetsin dersek.

Üstadım amacımıza ulaştık. Bir şey daha ekleyeyim. Kod ile ilgili hücrelere textimizi tarih olarak yazdırıyoruz. Gelen tarih değerlerine göre X hücresine veri yazdırıyorum. Fakat gelen tarihlere F2+Enter yapmadan X hücreye işlem yapmıyor.

X hücrenin sütun biçimlendirmesini kısa tarih olarak biçimelendirin sonra aşağıdaki kodu deneyin.

Cells(sat, 10) = cdate(Me.Controls("TextBox" & perst + 6).Text)

Üstadım "KONU ÇÖZÜLDÜ" Elleriniz dert görmesin.

İyi çalışmalar.

hata verdi Debug dediğimde ilgili ekran görüntüsündeki satıra gidiyor. Verdiğiniz kodda bir hatamı yaptım acaba?

Hata veren textbox degerinde tarih olduğundan emin olun veya boş olmadığından.

Boş olduğu zaman mı hata veriyor?

Evet bazı textboxlar boş olmak durumda. Boş bırakıldığında ilgili tablo aralığında varolan değerleri silerek boş bırakması gerekiyor. Bu durumda hata mesajı veriyor.

Kodunuzu aşağıdaki gibi yapıp denermisiniz.

If IsDate(Me.Controls("TextBox" & perst + 6).Text) Then Cells(sat, 10) = Cdate(Me.Controls("TextBox" & perst + 6).Text)

Üstadım "KONU ÇÖZÜLDÜ" Ellerin Dert Görmesin. Bilgine Sağlık.. İyi ki varsınız.