Hücre değerini text yerine tarih olarak girilmesi.

  • Konuyu başlatan Konuyu başlatan ycicek
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

ycicek

Kullanıcı
Katılım
1 Ağu 2019
Mesajlar
150
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Tarihe göre sırala Oylamaya göre sırala
Mesala Cells(sat, 10) = Me.Controls("TextBox" & perst + 6).Text bu kodu kısa takvim olarak kaydetsin dersek.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(1 satır)
 
Oyla 0 Olumsuz oyla
Ü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.
 
Oyla 0 Olumsuz oyla
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)
 
Oyla 0 Olumsuz oyla
hata verdi Debug dediğimde ilgili ekran görüntüsündeki satıra gidiyor. Verdiğiniz kodda bir hatamı yaptım acaba?
 

Ekli dosyalar

  • hata.webp
    hata.webp
    49.5 KB · Görüntüleme: 28
Oyla 0 Olumsuz oyla
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.
 
Oyla 0 Olumsuz oyla
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)
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt