textbox a girilen veri daima büyük harfle olsun

[ayemenici]

arkadaşlar bilen için basit olduğunu düşündüğüm bir sorunum var yardımcı olursanız sevinirim.
textbox a caps lock kapalı veya açık oysun daima büyük harfle veri girebileyim

 

[Korhan Ayhan]

Selamlar,

Arama yaparsanız bir sürü örnek bulabilirsiniz.

Aşağıdaki linki incelermisiniz.

http://www.excel.web.tr/viewtopic.php?t=17296

 

[ayemenici]

verdiğiniz adresi inceledim ancak sorumun cevabı bu değil
ben sayı veya harf değil
daima büyük harf girilsin istiyorum

 

[Korhan Ayhan]

Selamlar,

Örnek linkteki Textbox2 ye ait kodlarda aşağıdaki satırdan sonrakileri silip denermisiniz.

Case Asc("A") To Asc("Z")

Bu satırlar kalsın;

Case Else
KeyAscii = 0: MsgBox "SADECE BÜYÜK HARF GİREBİLİRSİNİZ.", vbExclamation, "Dikkat !"
End Select
End Sub

 

[ayemenici]

a.selam
dediğinizi ben denedim ancak her halde soruyu yanlış sordum benim kastettiğim hücreye girişte küçük dahi yazsam otomatik olarak büyük harfe çevirsin

 

[Korhan Ayhan]

Selamlar,

Form üzerindeki textboxmı yoksa sayfa üzerindeki textboxmı yada sayfadaki hücredemi bu işlemi istiyorsunuz.

 

[ayemenici]

form üzerinde bulunan textbox a uygulansın istiyorum

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanın. (Textbox1 için geçerlidir.)

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
    Case Asc("A") To Asc("Z")
    Case Else
    KeyAscii = 0: MsgBox "SADECE BÜYÜK HARF GİREBİLİRSİNİZ.", vbExclamation, "Dikkat !"
    End Select
End Sub

 

[ayemenici]

yine aynı sonucu aldım küçük harfle girmeye çalışınca uyarı geliyor ve büyük harfle girmem isteniyor
textbox a giriş için içine tıklayınca otomatik olarak yazdığım herşey büyük yazılsın istiyorum

 

[Seyit Tiken]

Kestirme sayılabilecek bir alternatif. (İlgili dosya ekte)

A1 hücresine bu formülü uygulayın.
=BÜYÜKHARF(B1)

Formun TextBox'na da şu kodları yazın.
Private Sub TextBox1_AfterUpdate()
[B1].Value = TextBox1.Value
TextBox1.Value = [a1].Value
End Sub

 

[Ali]

Aşağıdaki kodları kullanın.

Private Sub TextBox1_Change()
TextBox1.Value = UCase(TextBox1.Value)
End Sub

 

[Korhan Ayhan]

Selamlar,

Özür dilerim ben sorunuzu yanlış yorumlamışım. Siz textboxa yazı yazdığınız anda küçük harf bile olsa anında büyük harf olsun demişsiniz. Bu durumda aşağıdaki kodlar işinizi görecektir.

Private Sub TextBox1_Change() 
TextBox1 = Replace(TextBox1, "i", "İ") 
TextBox1 = Replace(TextBox1, "ı", "I") 
TextBox1 = StrConv(TextBox1, vbUpperCase) 
End Sub

 

[Ali]

Sn COST_CONTROL, bazen dalgınlıktan atlıyoruz bendede oluyor I,İ leri atladığım gibi


Değişik şeyler denedim buda oldu alternatif olarak dursun bari.


Private Sub TextBox1_Change()
TextBox1 = büyükharf(TextBox1)
End Sub

Function büyükharf(veri)
Dim a As Integer
Dim b As String
For a = 1 To Len(veri)
If Mid(veri, a, 1) = "i" Then
b = "İ"
ElseIf Mid(veri, a, 1) = "ı" Then
b = "I"
Else
b = Mid(UCase(veri), a, 1)
End If
büyükharf = büyükharf & b
Next
End Function

 

[class37]

Merhaba

Private Sub TextBox1_Change()
TextBox1 = büyük(TextBox1)
End Sub

Function büyük(veri)
Dim a As Integer
Dim b As String
    For a = 1 To Len(veri)
        If Mid(veri, a, 1) = "i" Then
            b = "İ"
        ElseIf Mid(veri, a, 1) = "ı" Then
            b = "I"
        Else
            b = Mid(UCase(veri), a, 1)
        End If
        büyük = büyük & b
    Next
End Function

 

[ayemenici]

arkadaşlar hepinize öncelikle ilginizden dolayı çok teşekkür ederim sorunumu hallettiniz

iyi çalışmalar diliyorum