belirli hücrelerin büyük harf yapılması

[kneehot]

selamar.konular ıcınde arastırdım bırkac sonucada ulastım ama ıstedıgım seklı bulamadım.yapmak ıstedıgım belirli hucrelerı tanımlayıp ıcıne yazılanların kucuk harf ıse buyuk harfe donmesıdır.ornegın sayfa1 dekı a15 b5 c13 d6 hucrelerıne yazılanlar sabıt buyuk harf olsun.tesekkurler.

 

[dEdE]

Merhaba,
Sayfa1 in kod bölümüne aşağıdaki kodları eklerseniz olur.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a15,b5,c13,d6]) Is Nothing Then Exit Sub
Target.Value = Evaluate("=UPPER(""" & Target & """)")
End Sub

 

[kneehot]

Target.Value = Evaluate("=UPPER(""" & Target & """)")
yukarıdakı satır ıcın hata verıyor
run-tıme error '28':
out of stack space
hatası verıyor

 

[dEdE]

Merhaba,
Bende hata vermiyor ama; Hata veren satırı aşağıdaki ile değiştirip dener misiniz?

If Target.Value <> "" Then Target.Value = StrConv(Target, vbUpperCase)

 

[haso_excel]

Merhaba arkadaşlar,
Siteden bulduğum yazıyacevir functionı kullanıyorum. Yazıya çevirdiğim alanında büyük harf olmasını istiyorum. Bunun içinde yukarıdaki kodu kullandım. Şöyle bir problem var anlayamadığım. 2003 de problemsiz çalışan kod 2007 de neden hata verir ve formula alanı devamlı hareketli olur sanki kod çalışıyor gibi. Dosyam ekde yardımcı olursanız sevinirim.