Çözüldü Küçük Harflerin Büyük Harflere Çevrilmesi
- Konuyu başlatan YasarPiskin
- Başlangıç tarihi
Çünki kod buna göre yazılmamış. Üç satırda yapılacak dosyaya kitap gibi kod yazan arkadaş kimse revize edebilir bence.
Çü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.
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
Yıllık Forum Üyesi
O zaman, aradaki satırı da silin ve bu satırların yerine şunu ekleyin.
VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(2 satır)