Soru Inputbox da ilk karakteri büyük harf yapmak

[k0081]

Merhaba arkadaşlar;

Inputbox ile arama yapan bir fonksiyonum var. Arama için girilen ilk harfin büyük olmasını nasıl sağlarım ?




Yardımcı arkadaşa şimdiden Teşekkürler.

 

[Muzaffer Ali]

Merhaba.
Büyük küçük harf duyarlılığından dolayı aradığınızı bulamıyorsanız, bu duyarlılığı kaldırabilirsiniz.
Kodların deklarasyon kısmına(en üst satıra) Option Compare Text yazın.
Artık büyük küçük harf duyarlılığı olmayacaktır.
yani "Ali" = "ali" olacaktır.

 

[k0081]

dalgalikur

Aynen büyük küçük harf duyarlılığı...

Hocam çok teşekkür ederim, Tamamdır... elinize sağlık.

 

[k0081]

Bu fonksiyonu kullandığımda aradığımı bulabildim. Fakat çok fazla sonuç çıkıyor...

sadece ilk harf büyük yazdırmanın bir yolu varmıdır ?

 

[Muzaffer Ali]

Aşağıdaki kodları çalışmanıza uyarlayınız.

Sub Test()
    Dim Cumle As String
    Dim IlkKelime As String
    Cumle = InputBox("metin  giriniz")
    IlkKelime = Split(Cumle, " ")(0)
    Cumle = Replace(Cumle, Split(Cumle, " ")(0), WorksheetFunction.Proper(IlkKelime))
    MsgBox Cumle
End Sub

 

[Korhan Ayhan]

Alternatif;

Option Explicit

Sub Test()
    Dim Aranan As Variant
    
    Aranan = InputBox("Aramak istediğiniz veriyi giriniz.")
    If Aranan <> "" Then
        Aranan = UCase(Replace(Replace(Left(Aranan, 1), "ı", "I"), "i", "İ")) & Mid(Aranan, 2, Len(Aranan) - 1)
    End If

    MsgBox Aranan
End Sub

 

[k0081]

Dalgalikur & Korhan Ayhan


Çok Teşekkür ederim arkadaşlar., Sağolun. Tamamdır...

Hayırlı Bayramlar.