büyük harf küçük harf fonksiyonu

[Orion1]

Kodunu butona nasıl uyarlayabiliriz.

Ekli dosyayı inceleyiniz.

Sub kucuk_harf_59()
Dim i As Long
For i = 1 To 10
    Cells(i, "A").Value = Application.Proper(LCase(Replace(Replace(Cells(i, "A").Value, "ı", "I"), "i", "İ")))
Next i
MsgBox "İşlem Tamamlandı." & vbLf & "evrengizlen@hotmail.com"
End Sub