Küçük Harflerin Büyük Harflere Çevrilmesi

[YasarPiskin]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

DATA sayfasındaki B7:EI700 aralığındaki herhangibir hücreye küçük harfle yazılanları büyük harfe çeviren kod P sütununda çalışmıyor. Bu hususta yardımlarınızı rica ediyorum.

 

Otomatik Dosya Uzantısı Jpg Isim Değiştirme

Veri Listelerken Sıra Numarası Verme

[Burhan.cesur]

DATA sayfasındaki B7:EI700 aralığındaki herhangibir hücreye küçük harfle yazılanları büyük harfe çeviren kod P sütununda çalışmıyor. Bu hususta yardımlarınızı rica ediyorum.

Çünki kod buna göre yazılmamış. Üç satırda yapılacak dosyaya kitap gibi kod yazan arkadaş kimse revize edebilir bence.

 

[Ömer BARAN]

Çünkü mevcut kodda P sütununun (sütun no 16) hariç olduğu belirtilmiş.

If Target.Column <> 16 Then
Target.Value = UCase(Replace(Replace(Target, "i", "İ"), "ı", "I"))
End If

Yukarıdaki If ...Then ve End If satırlarını silin.

 

[YasarPiskin]

Değişiklikleri yapınca engellik oranını yazamıyorum.

 

[Ömer BARAN]

O zaman, aradaki satırı da silin ve bu satırların yerine şunu ekleyin.

If Not Target.value = "" And Not Target.HasFormula And Not IsNumeric(Target.Value) Then _
        Target.Value = UCase(Replace(Replace(Target.Value, "i", "İ"), "ı", "I"))

 

[YasarPiskin]

Çok teşekkür ederim.