Excelde Userform Üzerinden Sayfaya Veri Kaydederken Tarih Ve Sayı Değeri Sorunsalı :)

Merhaba
Excelde bir user form düzenledim ve burada girilen veriler Excel sayfasına kaydediliyor.(Silme  arama ve düzenleme işlevleri henüz çalışmıyor.)

User form Üzerinde çözemediğim 2 sorunuma çare bulmaya ve de yapmak istediğim olayla ilgili yol gösterilmesine ihtiyacım var.

1. Masraftarihi alanı içine 17051968 yazdığımda  alana girilen değerin hem userform üzerinde hemde ana sayfa kayıt listesin de 17.05.1968 şeklinde görünmesini sağlayamadım. Bu amaçla
Txt_MasrafTarihi.Text = Format(DTPicker1, "dd.mm.yyyy") formatında bir kod yazdım ama istediğim sonucu vermedi.

2-user formda Masraf Tutarı hanesine girilen 1750,50 şeklindeki değeride aynı şekilde hem user form hemde ana sayfa kayıt listesinde 1.750,50 şeklinde sayı formatında kaydedemedim, metin tipinde kaydediliyor.

Tavsiye ye ihtiyacım olan konu ise 2 numaralı maddeyi çözüme kavuşturduğumda Ana sayfa listesine kayıt olan değerleri kategorilerine göre adreslerine göndermeyi yani  önce 01-FİRMA 02-FİRMA ve 03-FİRMA sayfalarında ait oldukları alanlarda toplatmayı sonrada bu toplamların masraf dağılımı sayfasındaki adreslerine işlenmesini sağlamam gerekiyor bunları yaparken de ilerde bir yavaşlamaya yada çökmeye mahal vermemem lazım.

Dosyada 01-FIRMA nolu firma için Ana Sayfa adlı sayfada ki masraf giriş formundan girilmiş 2 adet örnek kayıt var.

Bu yapılan kayıtların 01-FIRMA ve Masraf dağılımları sayfalarında otomatikman işlenmeleri gereken hücreleri masraf türlerine göre gruplandırıp manuel olarak kırmızı renkte gösterdim. Sanırım bir fikir verecektir. Nasıl bir yol izlenmeli ve  eğersay ve düşeyara gibi hangi konularda çözüm aramalıyım. Teşekkürler

Tarih alanından çıkıldığında olayına aşağıdaki kodu ekleyip dener misiniz?
Dosyanızı henüz inceleyemedim, telefondan yazdım hatalı olabilir.

TarihKutusununAdi=replace(TarihKutusununAdi , ".","")

TarihKutusununAdi=left(TarihKutusununAdi,2) & "." & mid(TarihKutusununAdi,3,2) & "." & right(TarihKutusununAdi,4)

Sn.Berduş tarih alanı için yazdığınız kod aktarımda istediğim sonucu verdi çok teşekkür ederim. Rica etsem Masraf tutarı alanı içine yazılan 1250,75 değerini 1.250,75 şeklinde sayısal değer olarak aktarılması konusunda da yardımcı olabilir misiniz.

cdbl(masraf) olarak ayarlamayı dener misiniz?
binlik ayraçlarını da yanılmıyorsam G sütununu seçip menüdeki ' virgül resmine basarak ayarlayabilirsiniz

(11/02/2021, 18:09)berduş yazdı: cdbl(masraf) olarak ayarlamayı dener misiniz?
binlik ayraçlarını da yanılmıyorsam G sütununu seçip menüdeki ' virgül resmine basarak ayarlayabilirsiniz

Berduş hocam cdbl(masraf) olarak ayarlama derken ne demek istediğinizi anlayamadım kusura bakmayın. Diğer konu ise  Aktarılan değerlerin bulunduğu hücreler zaten önceden sizinde belirttiğiniz gibi sayısal olarak biçimlendirilmiş hücreler. ana sayfada elle girdiğinizde sorun olmuyor sayısal olarak biçimlendirilmiş olarak gözüküyor. Sorun Userformdan Vba kodları ile çalıştırılan aktarım esnasında hücreye otomatikman yazdırılan değerler metinsel olarak gözüküyor. Tekrar sayı biçimine çevirmek gerekiyor. Burda hata ya düşüyor.

Verileri hucreye aktarırken
.....cells(...)=cdbl(masrafkutusu.value)