hücreye yazılanı büyük harfe çevirmek??

[udentr2002]

merhaba arkadaşlar a stünundaki hücrelere yazılanın tüm karakterlerini büyük harfe çeviren kodu nasıl yazabilirim yani biz hücreye küçük harfle yazsak bile hücreden enterle çıkıldığında hücredeki harflerin hepsini büyük harfe çevirmesi için nasıl bir kod yazabilirim şimdiden ilgilenen tüm hocalarıma teşekkür ederim

 

[Necdet]

Merhaba

Aşağıdaki kodları sayfanın kod bülümüne ekleyiniz

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo 10
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
For i = 1 To Len(Target)
      x = x + Application.WorksheetFunction.Proper(Mid(Target, i, 1))
Next i
Target = x
10
End Sub

 

[udentr2002]

hocam

çok teşekkür ederim ellerine sağlık

 

[Orion1]

Alternatif.:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo 10
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Target.Value = UCase(Replace(Replace(Target.Value, "i", "İ"), "ı", "I"))
10
End Sub

 

[udentr2002]

hocam

aynı konuya benzer olarak a stünunda herhangi bir hücrenin boş olduğunu gördüğünde o boş olan hücrenin satırını komple silen bir kod nasıl olabilir.
bu arada sayın orion hocam sisiznde ellerinize sağlık

 

[Necdet]

Merhaba,

Ben böyle durumlarda hiç kod yazmıyorum.

1. A sütununu seçiniz
2. F5 (Ctrl+G, ya da Düzen - Git)
3. Özel
4. Boşluklar
5. Fare İle Sağ Tık
6. Sil - Satır

Yazmak zor yapmak kolay

 

[Seyit Tiken]

Sub Makro1()
[a:a].SpecialCells(4).EntireRow.Delete
End Sub

Şeklinde deneyiniz.