Excelde Sayfasındaki Bütün karakterleri nasıl büyük harf olarak değiştirebilir

[mesutyagmur]

Excelde Sayfasındaki Bütün karakterleri nasıl büyük harf olarak değiştirebilir

Merhaba;
Excelde Çalışma Sayfasındaki Bütün harfleri nasıl büyük harf olarak değiştirebilirim? Yada sadece bir hücredeki değeri büyükharf fonksiyonun kullanmadan nasıl büyü harfe çevirebilirm... ACİLDİR::::::???:yardim:

 

[kombo]

Aşağıdaki linki inceleyin.

http://www.excel.web.tr/showthread.php?t=7611&highlight=casechange

 

[alpi]

makro ile yapabilirsiniz
[a1] = UCase([a1])

A1 hücresindeki metni büyük harfe çevirir.

Edit...
Sayın Kombo mesajınızı görmemiştim.

 

[Seyit Tiken]

Alternatif :
Düzen > Bul > Değiştir, excelin hazır özelliğinden yararlanarakda yapılabilir.

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki şekillerde de kullanabilirsiniz. Ekteki örnek dosyayı inceleyiniz.

1. kod sayfanızda bulunan bütün metinsel ifadeleri otomatik olarak büyük harfe çevirir.

Sub BÜYÜK_HARFE_ÇEVİR_1()
    For Each Alan In Selection.SpecialCells(xlCellTypeConstants, 2)
    Alan.Value = Evaluate("=UPPER(" & """" & Alan & """" & ")")
    Next
    MsgBox "TÜM VERİLERİNİZ BÜYÜK HARFE ÇEVRİLMİŞTİR.", vbInformation
End Sub

2. kod ise sizin sayfada seçim yaptığınız alanı büyük harfe çevirmenizi sağlar.

Sub BÜYÜK_HARFE_ÇEVİR_2()
    For Each Alan In Selection.Cells
    Alan.Value = Evaluate("=UPPER(" & """" & Alan & """" & ")")
    Next
    MsgBox "SEÇTİĞİNİZ ALANDAKİ VERİLERİNİZ BÜYÜK HARFE ÇEVRİLMİŞTİR.", vbInformation
End Sub

 

[mrs303]

Selamlar,

Alternatif olarak aşağıdaki şekillerde de kullanabilirsiniz. Ekteki örnek dosyayı inceleyiniz.

1. kod sayfanızda bulunan bütün metinsel ifadeleri otomatik olarak büyük harfe çevirir.

Sub BÜYÜK_HARFE_ÇEVİR_1()
    For Each Alan In Selection.SpecialCells(xlCellTypeConstants, 2)
    Alan.Value = Evaluate("=UPPER(" & """" & Alan & """" & ")")
    Next
    MsgBox "TÜM VERİLERİNİZ BÜYÜK HARFE ÇEVRİLMİŞTİR.", vbInformation
End Sub

2. kod ise sizin sayfada seçim yaptığınız alanı büyük harfe çevirmenizi sağlar.

Sub BÜYÜK_HARFE_ÇEVİR_2()
    For Each Alan In Selection.Cells
    Alan.Value = Evaluate("=UPPER(" & """" & Alan & """" & ")")
    Next
    MsgBox "SEÇTİĞİNİZ ALANDAKİ VERİLERİNİZ BÜYÜK HARFE ÇEVRİLMİŞTİR.", vbInformation
End Sub

Ellerine sağlık çok güzel olmuş,

Sadece ilk kelimenin baş harfi büyük olmasını istersek kodu nasıl değiştireceğiz.
Örnek : a1 hücresi :" excel forum " yazan yazıyı
" Excel Forum " şeklinde yazabilirmiyiz.

 

[Levent Menteşoğlu]

UPPER yerine PROPER yazın.