bütün sayfadaki küçük harfleri büyük yapma

[subutayı]

bütün sayfadaki küçük harfler nasıl büyük yapılır

merhaba arkadaşlar,

excelde küçük olarak yazılmış bütün yazıları büyük yapmak istiyorum. hsayar arkadaşımızın yaptığı hsr_özelmenü fonksiyonu diye bir eklenti var. ama bir türlü indiremedim. bu eklentinin elinde olan varsa ekleyebilirseniz çok sevinirim. teşekürler

 

[janveljan]

Bu makro işinizi görebilir.

Sub buyut()
Set alan = Range("$A$1:" & Cells.SpecialCells(xlCellTypeLastCell).Address)
For Each a In alan
a.Value = UCase(Replace(Replace(a, "ı", "I"), "i", "İ"))
Next
End Sub

 

[subutayı]

teşekürler üstadım. işimi gördü. sağol