Textbox içine tarih ve para birimi formatı

[Mdemir63]

Selamlar

Textbox içine Tarih ve Para birimi formatı nasıl yapabilirim?

Saygılar

 

[Suskun]

Merhaba,

Tarih formatı için : TextBox1 = Format(TextBox1, "dd/mm/yyyy")

Para formatı için : TextBox1 = Format(TextBox1, "#,##0.00")

Kolay gelsin.

 

[Mdemir63]

Merhaba,

Tarih formatı için : TextBox1 = Format(TextBox1, "dd/mm/yyyy")

Para formatı için : TextBox1 = Format(TextBox1, "#,##0.00")

Kolay gelsin.

Selamlar

Teşekkür ederim

Kolay gelsin

 

[Mdemir63]

Selamlar


Tarih formatı için : TextBox1 = Format(TextBox1, "dd/mm/yyyy")

yukarıdaki format ta tarih şeklinde yazıyor ama ben kendim tarihi girince farklı bir şey çıkıyor. Yani tarihi kendim girmek istiyorum ama bu formatta

Saygılar

 

[Seyit Tiken]

TextBox'a tarih yazarken araya nokta koymadan Entere basın.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, "00"".""00"".""0000")
End Sub

 

[Mdemir63]

Selamlar

Textbox içine tarihi 10/04/2007 olarak giriyorum yazdığı hücreye 04/10/2007 olarak yazıyor nasıl düzeltebilirim.

Saygılar

 

[Mdemir63]

TextBox'a tarih yazarken araya nokta koymadan Entere basın.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, "00"".""00"".""0000")
End Sub

Selam

Teşekkür ederim hocam

Kolay gelsin

 

[celine]

teşekkürler

 

[rekormuhendislik]

Arkadaşlar kullandığım kodlar bunlar.
Yaptığım İşlem belirlediğim bir Hücreden istediğim Texbox'a o hücredeki rakamları yazdırmak.
Yalnız Gelir gider tablosu tuttuğum için.
İstediğim şey ve yapamadığım. Rakamdan sonra TL yazsın yanında ve para formatında olsun istiyorum bilgi. Dönüşsün istiyorum. Sizce nasıl yapabilirim ?
Hücredeki rakam + Peşine de TL yazsın istiyorum.
yada direk hücredeki gibi para formatında olsun

Private Sub UserForm_Initialize() ' TEXBOX'A YAZI YAZMA'
TextBox28.Value = Sheets("GELİR").Range("M4")
TextBox29.Value = Sheets("GELİR").Range("N4")
TextBox31.Value = Sheets("GELİR").Range("O4")
TextBox32.Value = Sheets("GELİR").Range("P4")
End Sub

Son olarak da tarih kısmını ayarlayamadım. Otamatik bu günün tarihini atmasını nasıl sağlayabilirim üye giriş panelinde bulunan tarih kısmına. ?

 

[rekormuhendislik]

Bu konuda bilgisi olan varmı arkadaşlar

 

[Mdemir63]

Selamlar

TextBox ların kod bölümüne aşağıdaki gibi yazarak deneyiniz

TextBox28 = Format(TextBox28, "#,##0.00, TL")

 

[Mdemir63]

Selamlar

TextBox ın kod bölümüne
TextBox1= Format(TextBox1, "dd/mm/yyyy")


UserForm un Initialize kısmına
TextBox1 = Date

gibi deneyiniz