Küçük harfi büyük harfe dönüştürme

[ozkul]

Bu sitenin oluşumunda emeği geçen herkese teşekkür ediyorum. Yeni üye olduğum için kendime kızıyorum. Öğrenmem gereken ne kadar çok bilgi olduğunu bir kez daha hatırladım. Hepinize teşekkürler.
Çalışma sayfasındaki Tüm yazıları büyük küçük harf değişimini nasıl yapabileceyim konusunda yardımcı olursanız sevinirim. Tşk.

 

[ECYavuz]

Bunun bir çok yolu var... Örneğin aşağıdaki gibi bir kodu bir CommandButona atayıp; Excelde bir alan seçerek, Butona tıkladığınızda sayfada daha önceden mevcut tüm karekterleri Büyük Harfe çevirmek gibi...

Sub UpperCase()
Dim cell As Range
For Each cell In Selection.Cells
If cell.HasFormula = False Then
cell = UCase(cell)
End If
Next
End Sub

 

[ECYavuz]

Excel sayfasına bilgi girerken girilen harflerin Büyük olmasını sağlamak gibi;

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End Sub

 

[ECYavuz]

Bu işlemi Fonksiyonla yapmak isterseniz;

Private Sub Worksheet_Change(ByVal Target As Range)
Target = BH(Target)
End Sub

Function BH(cevir)
BH = Replace(cevir, "i", "İ")
BH = Replace(BH, "ı", "I")
BH = UCase(BH)
End Function

Bu örnek gibi....

 

[ECYavuz]

Sayfanın kod bölümüne aşağıdaki kodları yazarsanız da;
'İlk harfler büyük

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Value = WorksheetFunction.Proper(Target.Value)
End Sub

'Hepsi Büyük

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Value = WorksheetFunction.UPPER(Target.Value)
End Sub

'Hepsi Küçük

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Value = WorksheetFunction.Lower(Target.Value)
End Sub

 

[ozkul]

Teşekkürler

 

[ozkul]

Sayın Ecyavuz Teşekkürde geciktiğim için özür. Verdiğiniz bilgi işime yaradı. Çok teşekkür ediyorum

 

[boughet]

ben ne anlatıldığını bile anlamadım sanırım hiç bişey bilmiyorum
biri bu konuyu banada anlatırsa sevinirim

 

[ECYavuz]

Yardımcı Olabildiysem, herşeye değer... İyi çalışmalar ben teşekkür ederim.

Anlatılmak istenen Excel sayfasındaki hücrelere bir bilgi girilmek istendiğinde gairilen karekterlerin Büyük Harf olması konusunda çeşitli kod örnekleri.

 

[yilmaz581]

paylaşım için teşekkürler

 

[Altay3555]

Excel sayfasına bilgi girerken girilen harflerin Büyük olmasını sağlamak gibi;

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End Sub

Çok uzun bir zaman sonra teşekkürler.......