Exceldeki Yazıların Tamamını Büyük Harfe Çevirmek ?

[Robinson_Crusoe]

Merhaba arkadaşlar excelde her sütün ve satır içindeki harfleri büyük harfe nasıl dönüştüre biliriz word de böyle bir özelllik var excel de de buldum ama sadece bir sutunu ve satırı çeviriyorum hepsini aynı anda çevirmem gerek böyle bir seçenek varmı acaba yardımlarınız için şimdiden sağolun

 

[Qene]

Sub ChangeText()
Dim cCell As Range
Dim TheRg As Range
Dim cevap As String
On Error Resume Next
Set TheRg = Selection.SpecialCells(xlCellTypeConstants, 2)
cevap = MsgBox("Seçili Alandaki Harfler," & Chr(13) & "Büyük Harfe Dönüştürülecek.. Emin misiniz?", vbExclamation + vbYesNo, Application.UserName)
If cevap = vbNo Then Exit Sub
If TheRg Is Nothing Then MsgBox "No Text!", vbCritical: Exit Sub
On Error GoTo 0
For Each cCell In TheRg
cCell = UCase(cCell)
Next
End Sub

 

[Korhan Ayhan]

Selamlar,

Ekteki örneği incelermisiniz.

 

[Robinson_Crusoe]

Cevaplarınız için sapolun arkadaşlar ama hiç bir şey anladım bu kodları nere yapıştırmam gerek ne yaptıysam olmadı

 

[Korhan Ayhan]

Selamlar,

Çalışmanıza boş bir modül ekleyip kodları içine uygulayın. Sayfada herhangi bir alanı seçip kodları çalıştırın.

 

[Qene]

Verdiğim cevapta yazan kodu nereye yapıştıracaksınız resimli anlatımı aşağıdaki gibidir.