UPPERFormülü Hakkında

[Hantor]

Herkese Selam,

Sheet4 Sayfanın içerinse [N:N] hücresinin tamamına yazılan yazıların otomatik olarak büyük olması mümkün müdür? Mümkün ise bazı makrolar türkçe karakter almadığı için otomatik olarak türkçe yapılabilirmi örnek ş,i,ğ, harfleri düzgün olarak Ş,İ,Ğ olarak çıkabilir mi?

 

[Hantor]

Söyle bir formül buldum fakat

If Intersect(Target, [G:G]) Is Nothing Or Target.Row < 2 Or Target.Value = "" Then Exit Sub
If Intersect(Target, [N:N]) Is Nothing Or Target.Row < 2 Or Target.Value = "" Then Exit Sub

Olarak uyaylaya bilinir mi?



Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo Son
If Intersect(Target, [G:N]) Is Nothing Or Target.Row < 2 Or Target.Value = "" Then Exit Sub

Dim Ad As String, Soyad As String
Dim Dizi() As String
Dim i As Integer

Dizi = Split(Target.Value, "") ' ""Bosluk Alindi
For i = 0 To UBound(Dizi) - 1
Ad = Trim(Ad & "" & Dizi(i)) ' ""Bosluk Alindi
Next i

Soyad = Trim(Dizi(UBound(Dizi)))
Ad = Application.WorksheetFunction.Proper(Ad)
Soyad = Evaluate("=UPPER(""" & Soyad & """)")
Application.EnableEvents = False
Target.Offset(0, 0) = Ad & "" & Soyad ' ""Bosluk Alindi

' 'Aşağıdaki Satır Soyadı Koyu Yapar
' Target.Offset(0, 0).Characters(Len(Ad) + 1, Len(Soyad) + 1).Font.Bold = True
' 'Aşağıdaki Satır Verilen Rakama Göre Renklendirir
' Target.Offset(0, 0).Characters(Len(Ad) + 1, Len(Soyad) + 1).Font.ColorIndex = 3

Application.EnableEvents = True

Son:
End Sub

 

[YUSUF44]

Soyad = UCase(Replace(Replace(Soyad, "ı", "I"), "i", "İ"))

Şeklinde deneyin.

 

[Hantor]

Soyad = UCase(Replace(Replace(Soyad, "ı", "I"), "i", "İ"))

Şeklinde deneyin.

i veya ş yapınca ingilizce olduğu için karekter bozuluyor başka bir seçenek varmıdır.

 

[Hantor]

Teşekkür ederim belki yardımcı olur diye yazıyorum. Aşağıdaki formül ise yarıyor.

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo Son
If Intersect(Target, Range([G:G], [N:N])) Is Nothing Or Target.Row < 3 Or Target.Value = "" Then Exit Sub

Dim Ad As String, Soyad As String
Dim Dizi() As String
Dim i As Integer

Dizi = Split(Target.Value, "") ' ""Bosluk Alindi
For i = 0 To UBound(Dizi) - 1
Ad = Trim(Ad & "" & Dizi(i)) ' ""Bosluk Alindi
Next i

Soyad = Trim(Dizi(UBound(Dizi)))
Ad = Application.WorksheetFunction.Proper(Ad)
Soyad = Evaluate("=UPPER(""" & Soyad & """)")
Application.EnableEvents = False
Target.Offset(0, 0) = Ad & "" & Soyad ' ""Bosluk Alindi

' 'Aşağıdaki Satır Soyadı Koyu Yapar
' Target.Offset(0, 0).Characters(Len(Ad) + 1, Len(Soyad) + 1).Font.Bold = True
' 'Aşağıdaki Satır Verilen Rakama Göre Renklendirir
' Target.Offset(0, 0).Characters(Len(Ad) + 1, Len(Soyad) + 1).Font.ColorIndex = 3

Application.EnableEvents = True

Son:
End Sub

 

[YUSUF44]

Maalesef mesajlarınızdan sorunun çözülüp çözülmediğini ya da çözülmediyse nasıl bir çözüm aradığınızı anlayamıyorum. Eğer çözülmediyse istediğinizi örnek bir dosya üzerinden örneklerle açıklayın lütfen.

 

[Korhan Ayhan]

Teşekkür ederim belki yardımcı olur diye yazıyorum. Aşağıdaki formül ise yarıyor.