Excelde hücreye Yazılan yazının ilk harfini Büyük Yazma sorunu

[xyp9x]

Selam, benim bir sorunum var o da seçtiğim hücrelerde bir yazı yazdığımda "ilk harfinin nolursa olsun büyük yazılmasını istiyorum, bunu nasıl yapabilirim ? "

 

[Ömer BARAN]

Merhaba.

=YAZIM.DÜZENİ(A1)

 

[xyp9x]

Merhaba.

=YAZIM.DÜZENİ(A1)

aslında şunu demek istedim, K1081 hücresine yapıldı kelimesini yazıcam. ve hücre onu "Yapıldı" olarak düzeltmesini istiyorum.

 

[Asri]

Sayfanın kod bölümüne ekleyiniz.
A1 ve A10 hücrelerinde etkili olacaktır.

If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub

Public Function ilk_harf_buyuk(cumle)
gecici = ""
For i = 1 To Len(cumle)
          h = Mid(cumle, i, 1)
          If i = 1 Then
            Select Case h
              Case "ğ": gecici = gecici + "Ğ"
              Case "ü": gecici = gecici + "Ü"
              Case "ş": gecici = gecici + "Ş"
              Case "ç": gecici = gecici + "Ç"
              Case "ö": gecici = gecici + "Ö"
              Case "ı": gecici = gecici + "I"
              Case "i": gecici = gecici + "İ"
              Case Else: gecici = gecici + UCase(h)
            End Select
          Else
             gecici = gecici + h
          End If
Next i
ilk_harf_buyuk = gecici
End Function

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
    Target.Value = ilk_harf_buyuk(Target.Value)
End Sub