TEXTBOX format

[EmirhanG]

Merhaba arkadaşlar,Userformdaki textbox'u sadece metin girilebilir ve sadece rakam girilebilir veya sadece tarih girilebilir formatına nasıl getirebilirim. Ayarladığım format ın dışında bir değer girdiğimdede uyarı mesajı versin istiyorum . Kusura kalmayın formda aradım ama sonuç alamadım bilen arkadaşlardan ricamız olur...Teşekürler
:yardim:

 

[Seyit Tiken]

Private Sub TextBox1_Change()
If IsNumeric(TextBox1) Or Me.TextBox1 = "" Then
Exit Sub
Else
MsgBox "Sayı giriniz"
Me.TextBox1 = Empty
Me.TextBox1.SetFocus
End If
End Sub

Private Sub TextBox1_Change()
If Not IsNumeric(TextBox1) Or Me.TextBox1 = "" Then
Exit Sub
Else
MsgBox "Metin giriniz"
Me.TextBox1 = Empty
Me.TextBox1.SetFocus
End If
End Sub

Şeklinde deneyiniz.

 

[EmirhanG]

teşekürler üsdat....kusura bakmayın ama textbox a düz rakam olarak girilen 6 haneli ve 8 haneli rakamları tarihe cevirebilirmiyiz
Örnek 112007 = 1.1.2007 ye
12122007 = 12.12.2007 gibi mümkünse Teşekürler...

 

[Seyit Tiken]

8 krakter rakam giriniz. Dosyayı inceleyiniz.

 

[muratkivilcim]

dostum örneğin çok güzel ben bunu bi yerde uygulamak istiyorum ama hücreye yapıştırdığı zaman metin biçiminde tarih diyo tekrar hücre biçimlendirmeden düzltmem gerekiyor. yapıştırma konusunda nasıl bişey yapmalıyım.

Teşekkürler...

 

[Seyit Tiken]

Aşağıdaki kodu ilave edip deneyiniz.

[a1] = Format(Me.TextBox1, "mm/dd/yyyy")