BÜYÜK harf yazdırma

[atöz]

selamalar,

Excel de çalışılan sayfada bütün hücrelere sadece büyük harf/rakam ile giriş yapılabilmesini nasıl sağlayabiliriz.

Teşekkürler.

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayın. Hücrede yazdığınız her metni büyük harfe çevirecektir.

Private Sub Worksheet_Change(ByVal Target As Range)
If UCase(Target) <> Target And Target <> "" Then Target = Evaluate("=UPPER(" & Target.Address & ")")
End Sub

 

[atöz]

Sn leventm çok teşekkürler.
İki sorum daha olacak. Bu işlemi belirli bir alanda geçerli kılmak istersen.Mesela
A2:C100 alanında.Nasıl olabilir.
İkincisi makromda alan tarayıp içeriğini temizleme işlemi var bu esnada "Type mismatch" hatası veriyor.

Yardımlar için teşekkürler.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
on error resume next
if intersect(target,[a2:c100]) is nothing then exit sub
If UCase(Target) <> Target Then Target = Evaluate("=UPPER(" & Target.Address & ")")
End Sub

 

[atöz]

ok tamamdır. Elinize sağlık leventm.....