F2 Enter Kullanmadan Hücre Içindeki Tarih & Saat formatının düzeltilmesi

[mumunal]

Yardımlarınızdan dolayı çok teşekkür ediyorum öncelikle. Sayenizde excel konusunda öğrendikçe ne kadar az bildiğimi fark ediyorum.

Yeni bir sorunum var; Userform üzerindeki Textbox1 içine tarih, Textbox2 içine ise saat çağırıyorum. Bu iki değeri Excel sayfası hücresine = Textbox1 & " " & Textbox2 ile yazdiriyorum. Sütunda yüzlerce tarih var. Excelin otomatik süz menüsünü kullanmak istediğimde tarihler (yıl, ay, gün, saat, dakika şeklinde) ama gruplamadan listeleniyor. Bu durum tarih hesaplamasında sorun olmuyor ama süzme işlemine engel teşkil ediyor. Bu sorun (F2+Enter) makrosu ile düzeliyor ama bu defa da o sayfanın aktif olması gerekiyor. Aksi durumda makro hatasi veriyor.

Korhan beyin 2016 yılında yazdığı bir çözüm yolunu da denedim; Araç Çubuğundaki "Metni Sütunlara Dönüştür" Komutu içindeki kodlar da işe yaramadı.

F2+Enter Kullanmadan daha ilk kayıt aşamasında Excel hücresine yazdırırken yada sonrasında bu sorunu düzeltebilir miyiz?

 

[Emir Hüseyin Çoban]

İlk kayıt anında çözüm üretmek daha iyi olur.
Örnek dosya gerekiyor. Textboxlara nasıl girişi yapılıyor, formatlar önemli.

.

 

[Korhan Ayhan]

İnceleyiniz.

Metin olarak depolanan sayıları numaralara dönüştürme

 

[mumunal]

Korhan bey teşekkür ederim. Verdiğiniz linkten yeni şeyler öğrendim ve hatta sorunun çözümüne bir adım daha yaklaştım. Metni Sütunlara Dönüştür deyip hiç bir işlem yapmadan "Son" komutu ile sorun düzeliyor. Fakat bu kodu, butona atayıp çalıştırdığımda sonuç vermiyor.

Textbox lardaki format su şekilde;

Textbox1=Format(Textbox1, "DD.MM.YYYY")
Textbox2=Format(Textbox2, "HH:MM")

Sheets("sayfa1").Range("A3")=Textbox1 & " " & Textbox2

Teşekkür ederim.

 

[Emir Hüseyin Çoban]

.

Sheets("sayfa1").Range("A3") = CDate(Format(TextBox1 & " " & TextBox2, "dd.mm.yyyy hh:mm"))

.

 

[mumunal]

Harika çalışıyor. Çok teşekkür ederim.