Büyük Harf Nasıl Yapılır?

[caksi]

merhaba,

excelde bir çok hücredeki yazıların çoğunluğu küçük harfle yazılmış ve çok var bunların hepsini büyük harf yapmak istiyorum yanlız teker teker hücrelerin içine girip yazıların başına =büyükharf(" ") yazıp yapmak çok fazla vakit istiyor daha kolay yolunu bilen var mı?

Teşekkürler

 

[Korhan Ayhan]

Selamlar,

Forumda büyük harf diye arama yaparsanız konuyla ilgili birçok örneğe ulaşabilirsiniz.

 

[mehmett]

Aşağıdaki kodları bir modülün içine kopyalayıp çalıştırın.

Sub buyukharf()
sonsat = ActiveCell.SpecialCells(xlLastCell).Row
sonsut = ActiveCell.SpecialCells(xlLastCell).Column
For x = 1 To sonsat
For y = 1 To sonsut
Cells(x, y) = UCase$(Replace(Replace((Cells(x, y)), "ı", "I"), "i", "İ"))
Next
Next
End Sub