Büyük harf

[mcetinkaya65]

Excelde diyelim ki;bir çalışma sayfasının ,sadece A stununa yazdığımız isim ve soyisimlerin, ilk harflerini büyük olarak yazmamız ,için ne yapmamız gerekir.2 stun 3 stun da olabilir.
Saygılarımla.

 

[Ömer]

Merhaba,

Aynı sütunda değişmesi için makro kullanmanız gerekir.

Farklı sütun için, veri A1 hücresinde ise B1 e:

=YAZIM.DÜZENİ(A1)

Eğer aynı sütun da olacaksa bildiririniz ona göre makro hazırlarım.

.

 

[asi_kral]

Excelde diyelim ki;bir çalışma sayfasının ,sadece A stununa yazdığımız isim ve soyisimlerin, ilk harflerini büyük olarak yazmamız ,için ne yapmamız gerekir.2 stun 3 stun da olabilir.
Saygılarımla.

Merhaba
Kod olarak bunu deniyebilirsiniz_?

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Intersect(Target, Range("A2:C"&rows.count)) Is Nothing Then Exit Sub
Target = WorksheetFunction.Proper(Target)
Application.EnableEvents = True
End Sub

 

[mcetinkaya65]

Sayın üstadlarım ilginize çok teşekkürler.
A stununda isim soyisim çok güzel tam istediğim gibi,Bizler soruyu ileriye dönük düşünmeden sorup sizlerin vaktini alıyoruz özür dilerim.
Örnekte gönderdiğim gibi b stunundada doğum yerleri cstunundada yaşadığı şehir var onlarında ilk harflerinin büyük olması için makroda nasıl bir ilave yapmamız gerekir.
Saygılarımla..

 

[asi_kral]

Sayın üstadlarım ilginize çok teşekkürler.
A stununda isim soyisim çok güzel tam istediğim gibi,Bizler soruyu ileriye dönük düşünmeden sorup sizlerin vaktini alıyoruz özür dilerim.
Örnekte gönderdiğim gibi b stunundada doğum yerleri cstunundada yaşadığı şehir var onlarında ilk harflerinin büyük olması için makroda nasıl bir ilave yapmamız gerekir.
Saygılarımla..

Üstteki kodu güncelledim.

 

[mcetinkaya65]

Sizlere çok zahmet veriyoruz özür dilerim.
İşlem tam istediğimiz gibi oldu teşekkürler.

 

[asi_kral]

Sizlere çok zahmet veriyoruz özür dilerim.
İşlem tam istediğimiz gibi oldu teşekkürler.

Kolay Gelsin.

 

[Murat OSMA]

Alternatif olarak deneyebilirsiniz;

[SIZE="2"]Sub Emre()
    For i = 1 To Range("A65536").End(3).Row
    For a = 1 To Range("A1").End(4).Row
    Cells(i, a).Value = Replace(StrConv(Cells(i, a).Value, vbProperCase), "İ", "i")
    Next a: Next i
End Sub[/SIZE]