Yazım Düzeni Makrosu

[baydeniro]

Merhaba arkadaşlar. Aşağıdaki makroyu istenildiğinde çalışır hale nasıl getirebiliriz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Target.Value = WorksheetFunction.Proper(Target)
End Sub

Yani :
Sub Yazim.Duzeni
.....
End Sub

tarzına nasıl dönüştürebiliriz.

 

[halit3]

sayın serdarokan aşağıdaki kodu denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
yazı = Len(Target)
yazı1 = UCase(Mid(Target, 1, 1))
If yazı1 = "I" Then
yazı1 = "İ"
End If
yazı2 = Mid(Target, 2, yazı)
yaz = yazı1 & yazı2
Target.Value = yaz
End Sub

 

[baydeniro]

Sayın Halit3 ilginize çok teşekkür ederim. Aşağıdaki kodun C:E sütunlarını kapsayacak şekilde değişimi nasıl yapılabilir ?

Sub Yazim_Duzeni()
son = Range("d65536").End(xlUp).Row
For i = 1 To son
Range("d" & i) = Application.WorksheetFunction.Proper(Range("d" & i))
Next
End Sub

 

[Ayhan Ercan]

Sub Yazim_Duzeni()
[COLOR=black]son = Range("d65536").End(xlUp).Row[/COLOR]
[COLOR=black]For i = 1 To son[/COLOR]
[COLOR=black]Range("c" & i) = Application.WorksheetFunction.Proper(Range("c" & i))[/COLOR]
[COLOR=black]Range("d" & i) = Application.WorksheetFunction.Proper(Range("d" & i))[/COLOR]
[COLOR=black]Range("e" & i) = Application.WorksheetFunction.Proper(Range("e" & i))[/COLOR]
[COLOR=black]Next[/COLOR]
[COLOR=black]End Sub[/COLOR]

 

[baydeniro]

Sayın Ayhan Ercan her zamanki gibi yardımseversiniz. Çok teşekkür ederim, iyi çalışmalar dilerim, sağlıcakla kalın.

 

[Ayhan Ercan]

Sayın Ayhan Ercan her zamanki gibi yardımseversiniz. Çok teşekkür ederim, iyi çalışmalar dilerim, sağlıcakla kalın.

Rica ederim.
Size de iyi çalışmalar.. k::

 

[halit3]

türkçe karekterli büyük küçük harf uygulamaları


'YAZIM DÜZENİ
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
yazı = Len(Target)
yazı1 = UCase(Mid(Target, 1, 1))
If yazı1 = "I" Then
yazı1 = "İ"
End If
yazı2 = Mid(Target, 2, yazı)
yaz = yazı1 & LCase(yazı2)

değer = ""
For J = 1 To Len(yaz)
If Mid(yaz, J, 1) = "İ" Then
değer1 = "i"
Else
değer1 = Mid(yaz, J, 1)
End If
değer = değer + değer1
Next J
Target.Value = değer

End Sub


' BÜYÜK HARF
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
yaz = UCase(Target.Value)
For J = 1 To Len(Target)
If Mid(Target.Value, J, 1) = "i" Then
değer1 = "İ"
Else
değer1 = Mid(yaz, J, 1)
End If
değer = değer + değer1
Next J
Target.Value = değer
End Sub


'KÜÇÜK HARF

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
yaz = LCase(Target.Value)
For J = 1 To Len(Target)
If Mid(Target.Value, J, 1) = "İ" Then
değer1 = "i"
Else
değer1 = Mid(yaz, J, 1)
End If
değer = değer + değer1
Next J
Target.Value = değer
End Sub

 

[baydeniro]

Teşekkürler sayın Halit3. Sağlıcakla kalın