Son Kelimeyi Büyük Harf Yapma

[naz1f]

Bir hücrede

Mustafa Kemal Atatürk yazıyor diyelim..
Son kelimeyi büyük yazdırmak istiyorum.. Mümkün müdür..

 

[izcik]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer, deg, deg2 As String
If Intersect(Target, [A1:A10000]) Is Nothing Then Exit Sub
On Error Resume Next
Application.EnableEvents = False

Target.Value = WorksheetFunction.Proper(Target.Value)
deg = Split(Target.Value, " ")
For i = LBound(deg) To UBound(deg) - 1
    deg2 = deg2 & " " & deg(i)
Next
Target.Value = deg2 & " " & UCase(Replace(Replace(deg(UBound(deg)), "ý", "I"), "i", "Ý"))
Target.Value = Right(Target.Value, Len(Target.Value) - 1)

Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Bu kodları sayfanızın kod bölümüne yapıştırın. (Modüle değil)
A1 ile A10000 arasındaki soyisimleri büyük harf yapar
Alternatifler de vardır.

 

[Ahmet Sami]

Sayın izcik bazı harfleri kabul etmiyor mesela "ı" harfini küçük yazıyor ayrıca bu konu üzerinden gidersek tamamını büyük harf yazdırabilir miyiz. Teşekkür ederim.

 

[izcik]

Sayın izcik bazı harfleri kabul etmiyor mesela "ı" harfini küçük yazıyor ayrıca bu konu üzerinden gidersek tamamını büyük harf yazdırabilir miyiz. Teşekkür ederim.

Ben şimdi denedim öyle bir sorunla karşılaşmadım.
Örnek
ışık ışık yazdım
Işık IŞIK olarak değiştirdi.

işik işik yazdım
İşik İŞİK olarak değiştirdi.

 

[byfika]

Merhalar,
Next
Target.Value = deg2 & " " & UCase(Replace(Replace(deg(UBound(deg)), "ý", "I"), "i", "Ý")) satırındaki kalın yazılmış harfleri alttaki gibi değiştirin.

Next
Target.Value = deg2 & " " & UCase(Replace(Replace(deg(UBound(deg)), "ı", "I"), "i", "İ"))

 

[byfika]

Sayın Ahmet Sami,
Alttaki kodu sayfanın kod bölümüne kaydederseniz, hücreye ister küçük veya ister büyük harf olarak girilsin hücreden çıkınca büyük harf olur. Kodları incelerseniz gerekli değişiklik yapıldığında ters işlem yapar.( Büyük harften küçük harfe)...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Long
Application.ScreenUpdating = False
For i = 1 To Cells(Rows.Count, "a").End(3).Row
Cells(i, "a") = harf(Cells(i, "a"), 2) ' 1 küçük harf, 2 büyük harf olacağını gösterir
Next i
Application.ScreenUpdating = True
End Sub
Function harf(Sozcuk As String, Optional typ As Integer = 1) As String
'typ 1. Küçük Harf
' 2. Büyük Harf

If typ = 1 Then
harf = Evaluate("=LOWER(" & """" & Sozcuk & """" & ")")
ElseIf typ = 2 Then
harf = Evaluate("=UPPER(" & """" & Sozcuk & """" & ")")
Else
harf = Application.WorksheetFunction.Proper(Sozcuk)
End If
End Function

 

[izcik]

Merhalar,
Next
Target.Value = deg2 & " " & UCase(Replace(Replace(deg(UBound(deg)), "ý", "I"), "i", "Ý")) satırındaki kalın yazılmış harfleri alttaki gibi değiştirin.

Next
Target.Value = deg2 & " " & UCase(Replace(Replace(deg(UBound(deg)), "ı", "I"), "i", "İ"))

Sorunu anladım
Hiç farkında değildim.
Sayfaya kopyalayıp yapıştırırken Türkçe karakterler bozulmuş.
Bugün başka bir konuda da olmuştu.