Harf Dönüştürme Makrosu

[leonadies]

Merhaba üstadlar M ve P sütunlarında girilecek verilerin;

M sütununa girilen harflerin tamamının büyük harf olmasını,
P sütununa girilenlerin ise sadece ilk harflerinin büyük olmasını diğerlerinin küçük olmasını istemekteyim.

Küçük bir araştırma yaptım ancak Kod bilgim yetersiz olduğu için düzenleme yapamadım kodlarda..

Yardımcı olurmusunuz.??

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ilk As String, son As String, deg As String
If Intersect(Target, Range("M:M,P:P")) Is Nothing Then Exit Sub
On Error Resume Next
Application.EnableEvents = False
If Target.Column = 13 Then
    Target.Value = UCase(Replace(Replace(Target.Value, "i", "İ"), "ı", "I"))
    Else
    deg = LCase(Replace(Replace(Target.Value, "I", "ı"), "İ", "i"))
    ilk = Left(UCase(Replace(Replace(deg, "i", "İ"), "ı", "I")), 1)
    son = Right(deg, Len(deg) - 1)
    Target.Value = ilk & son
End If
Application.EnableEvents = True
End Sub

 

[leonadies]

Orion Hocam tşk ederim.. sağlıklı çalışıyor. Ancak P sütununda Tamamı büyük harfle yazıldığında problem oluyor. bunun içinde bir çözüm olabilir mi?

 

[Orion1]

Orion Hocam tşk ederim.. sağlıklı çalışıyor. Ancak P sütununda Tamamı büyük harfle yazıldığında problem oluyor. bunun içinde bir çözüm olabilir mi?

Dosyayı güncelledim.
2 nolu mesajdan indirebilirsiniz.

 

[leonadies]

Teşekkür ederim Orion Hocam.. Yine yetiştin valla

 

[Orion1]

Teşekkür ederim Orion Hocam.. Yine yetiştin valla

Rica ederim.
İyi çalışmalar.

 

[leonadies]

Orion hocam ikilı kelimelere geçince fark ettim. ikinci ve sonrasında gelen kelimelerinde ilk harflerini büyütebilrimyiz?

 

[Orion1]

Orion hocam ikilı kelimelere geçince fark ettim. ikinci ve sonrasında gelen kelimelerinde ilk harflerini büyütebilrimyiz?

Buyurun.
dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ilk As String
If Intersect(Target, Range("M:M,P:P")) Is Nothing Then Exit Sub
On Error Resume Next
Application.EnableEvents = False
If Target.Column = 13 Then
    Target.Value = UCase(Replace(Replace(Target.Value, "i", "İ"), "ı", "I"))
    Else
    Target.Value = WorksheetFunction.Proper(Target.Value)
End If
Application.EnableEvents = True
End Sub

 

[leonadies]

Tekrar teşekkür ederim

 

[Tevfik_Kursun]

Ben de teşekkür ederim Sayın Orion1 Hocam

 

[Orion1]

Ben de teşekkür ederim Sayın Orion1 Hocam

Rica ederim.
İyi çalışmalar.

 

[murattamer]

hocam sadece h8 - ı8 - j8 - k8 - l8 hücrelerine küçük yazdığımızda büyük harfe dönüştürebilirmiyiz

 

[murattamer]

küçük büyük harf değiştime

hocam sadece h8 - ı8 - j8 - k8 - l8 hücrelerine küçük yazdığımızda büyük harfe dönüştürebilirmiyiz