Sitemize Hoşgeldiniz

Türkiye'nin en geniş özeliklere sahip forumu olan ExcelDestek.Com üzerinde soru sorabilmek, daha önceki sorulan sorulara, açılan konulara cevap yazabilmek, puan kazanabilmek, kazandığınız puanlar ile dosya indirebilmek ve çok daha fazla özellikten yararlanabilmek için sitemize üye olunuz.
Hemen Üye Ol ya da Giriş Yap

Sorun Cevaplayalım

Excel'e dair sorularınızı sorun, cevaplayalım.

Çözümlenmiş Sorular

Kullanıcılarımızın sorularını ve sunduğumuz çözümleri inceleyin.

Destek Ekibimiz Sizlerle

Ücretli destek ve özel hizmet talep edebilirsiniz.

  • Web sitemizi "REKLAMSIZ" olarak ziyaret etmek ister misiniz?
    Gerek sitemize destek, gerekse de reklam görmeden sitemizde gezinmek isterseniz, HESAP YÜKSELTME sayfasından SADECE 15-TL'ye 1 yıl boyunca ÜCRETLİ ÜYELİK almanız yeterli olacaktır.
    Detaylı bilgilendirme için lütfen buraya tıklayınız!

    REKLAMSIZ FORUM KULLANMAYI TERCİH EDECEK ÜYELERİMİZE, https://www.exceldosyalari.com İSİMLİ SİTEMİZDEN 3 AYLIK ÜYELİK PAKETİ HEDİYE EDİLECEKTİR.

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

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

ycicek

VIP
VIP
SMS Onaylı
Kullanıcı
Katılım
2 Ağu 2019
Mesajlar
100
Yaş
40
Excel Versiyonu, Dili
Excel 2016 TR

Reputation:

Merhaba sevgili ExcelDestek.Com ailesi,

aşağıdaki kod daha önce @Feyzullah hocamın desteğiyle yazılmış idi. bazı textbox'ların değerini kısa tarih olarak kayıt etmesini istiyorum.. .Text yerine ne yazmalıyım ki tarih olarak kaydetsin?

Kod:
Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol anlayışınız için teşekkürler.
 

Feyzullah

XD Yönetim
Yönetici
Site Yöneticisi
SMS Onaylı
Katılım
1 Eki 2018
Mesajlar
906
Web Sitesi
www.exceldepo.com
Excel Versiyonu, Dili
Excel 2016 TR

Reputation:

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

C#:
Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol anlayışınız için teşekkürler.
 

ycicek

VIP
VIP
SMS Onaylı
Kullanıcı
Katılım
2 Ağu 2019
Mesajlar
100
Yaş
40
Excel Versiyonu, Dili
Excel 2016 TR

Reputation:

Ü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.
 

Feyzullah

XD Yönetim
Yönetici
Site Yöneticisi
SMS Onaylı
Katılım
1 Eki 2018
Mesajlar
906
Web Sitesi
www.exceldepo.com
Excel Versiyonu, Dili
Excel 2016 TR

Reputation:

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)
 

ycicek

VIP
VIP
SMS Onaylı
Kullanıcı
Katılım
2 Ağu 2019
Mesajlar
100
Yaş
40
Excel Versiyonu, Dili
Excel 2016 TR

Reputation:

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

ycicek

VIP
VIP
SMS Onaylı
Kullanıcı
Katılım
2 Ağu 2019
Mesajlar
100
Yaş
40
Excel Versiyonu, Dili
Excel 2016 TR

Reputation:

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

Feyzullah

XD Yönetim
Yönetici
Site Yöneticisi
SMS Onaylı
Katılım
1 Eki 2018
Mesajlar
906
Web Sitesi
www.exceldepo.com
Excel Versiyonu, Dili
Excel 2016 TR

Reputation:

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

ycicek

VIP
VIP
SMS Onaylı
Kullanıcı
Katılım
2 Ağu 2019
Mesajlar
100
Yaş
40
Excel Versiyonu, Dili
Excel 2016 TR

Reputation:

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.
 

Feyzullah

XD Yönetim
Yönetici
Site Yöneticisi
SMS Onaylı
Katılım
1 Eki 2018
Mesajlar
906
Web Sitesi
www.exceldepo.com
Excel Versiyonu, Dili
Excel 2016 TR

Reputation:

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)
 

ycicek

VIP
VIP
SMS Onaylı
Kullanıcı
Katılım
2 Ağu 2019
Mesajlar
100
Yaş
40
Excel Versiyonu, Dili
Excel 2016 TR

Reputation:

Üstadım "KONU ÇÖZÜLDÜ" Ellerin Dert Görmesin. Bilgine Sağlık.. İyi ki varsınız. 🙏 🤗 👍
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst