Tükçe karakter sorunu

[polis-53]

Merhaba arkadaşlar aşağıdaki kodda kelimenin sadece baş harfini değiştiriyor benim istediğim kelimenin içindekilerin tümünü değişsin örneğin çiftlik kelimesi cıftlık gibi yapması

Sub YAZIM_DÜZENİ()
Dim Seçim As Range
For Each Seçim In Selection
Seçim = Evaluate("=PROPER(""" & Seçim & """)")
Seçim = Replace(Seçim, "İ", "I")
Seçim = Replace(Seçim, "Ç", "C")
Seçim = Replace(Seçim, "Ö", "O")
Seçim = Replace(Seçim, "Ş", "S")
Seçim = Replace(Seçim, "Ü", "U")
Next
End Sub

 

[excelokyanus500]

Kendinize Uyarlayın

Merhaba arkadaşlar aşağıdaki kodda kelimenin sadece baş harfini değiştiriyor benim istediğim kelimenin içindekilerin tümünü değişsin örneğin çiftlik kelimesi cıftlık gibi yapması

Sub YAZIM_DÜZENİ()
Dim Seçim As Range
For Each Seçim In Selection
Seçim = Evaluate("=PROPER(""" & Seçim & """)")
Seçim = Replace(Seçim, "İ", "I")
Seçim = Replace(Seçim, "Ç", "C")
Seçim = Replace(Seçim, "Ö", "O")
Seçim = Replace(Seçim, "Ş", "S")
Seçim = Replace(Seçim, "Ü", "U")
Next
End Sub

Const AccChars = "A,B,C,Ç,D,E,F,G,Ğ,H,i,İ,J,K,L,M,N,O,Ö,P,R,S,Ş,T,U,Ü,V,Y,Z"""

Const RegChars = "a,b,c,ç,d,e,f,g,ğ,h,ı,i,j,k,l,m,n,o,ö,p,r,s,ş,t,u,ü,v,y,z"

Sub küçük()


'StripAccent Sayfa1.Range("A1:C20") şeklinde de kullanabilirsiniz

StripAccent ActiveSheet.UsedRange

With Selection.Font
.Name = "Times New Roman"
.Size = 10
.Bold = True
End With
End Sub

Sub StripAccent(aRange As Range)
'-- Usage: StripAccent Sheet1.Range("A1:C20")
Dim a As String * 1
Dim b As String * 1
Dim i As Integer

For i = 1 To Len(AccChars)
a = Mid(AccChars, i, 1)
b = Mid(RegChars, i, 1)
aRange.Replace what:=a, _
replacement:=b, _
LookAt:=xlPart, _
MatchCase:=True
Next

End Sub



ve



Sub proper()
Dim rng As Range, cell As Range
Set rng = Selection

For Each cell In rng
cell.Value = WorksheetFunction.proper(cell.Value)
Next cell


End Sub

 

[ÖmerBey]

Alternatif:
Yaptığınız mantıkla: kullandığınız Proper formülünü değiştirip yapabilirsiniz. İlgili kısmı şu şekilde değiştiriniz:

Seçim = Evaluate("=UPPER(""" & Seçim & """)")