Userformda textbox formati

[mavisachal]

Arkadaşlar userformda textbox1 de isim olmasini textbox2 de soyisim olmasini

textbox3de ise soyisim.ismin ilk harfi olmasini istiyorum.

örnek textbox1=ahmet
textbox2=kaya
textbox3=kaya.a
burada 2 sorun aklıma geliyor 1.si textboxlarda turkçe karakterler ç,ş,ğ...vs olmamasi lazim!

2.si ise textbox3de kaya.a alternatif olarak sorsun ama istenmiyorsa başka veri de girilebilsin.

böyle birşey yapmamiz mümkün müdür sayın üstadlarım?

Teşekkürler.

 

[Seyit Tiken]

İlgili dosya ektedir.

 

[hamitcan]

Aşağıdaki kodu deneyin.

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
deg = StrConv(Left(TextBox1.Text, 1), vbLowerCase)
deg2 = StrConv(TextBox2.Text, vbLowerCase)
Select Case deg
Case "ç": TextBox3 = deg2 & "." & "c"
Case "ğ": TextBox3 = deg2 & "." & "g"
Case "i": TextBox3 = deg2 & "." & "i"
Case "ö": TextBox3 = deg2 & "." & "o"
Case "ş": TextBox3 = deg2 & "." & "s"
Case "ü": TextBox3 = deg2 & "." & "u"
Case Else: TextBox3 = deg2 & "." & deg
End Select

End Sub

Not: Textbox girişlerini büyük harf olarak girin.

 

[mavisachal]

Hamitcan teşekkür ederim yardımın için ancak benim bir sorunum daha var şimdi anladım ki ben textbox3 teki textin büyük harf olmasını istemiyorum. yani her zaman küçük harf çıkmalı textbox1 ve textbox2 büyük yada küçük olsa da farketmemeli textbox3 küçük harflerden olmalı yani böyle birşey mümkün mü?

örnek

textbox1= EMRE
textbox2= BELEZOĞLU veya belezoğlu

textbox3=belezoglu.e

teşekkürler.

 

[mavisachal]

yok mu arkadaşlar bir fikri olan?

 

[hamitcan]

Kodu güncelledim.

 

[mavisachal]

Çok sağolasın dostum.

Çok işime yaradı.