Büyük harf yazmaya zorlama

[PROXM3]

Merhaba arkadaşlar

Bir exel sayfasında Örneğin F1,F2,F3,F4,F5.....(F1 VE F301) sütunlarına yazılan bütün kelimelerin büyük harfle olmasını istiyorum.

Veri doğrulama kısmında özel kısmı seçildikten sonra acaba nasıl br formül yazabilirim.

Yardımlarınızı bekliyorum.

Teşekkürler.

 

[tukayf]

Formülle yapılabilir mi bilmiyorum ama aşağıdaki kodla denerseniz küçük harf yazılsa bile büyük harfe çevirir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [[COLOR="Red"]b1:b301[/COLOR]]) Is Nothing Then Exit Sub
If UCase(Target) <> Target Then
Target = Evaluate("=UPPER(" & Target.Address & ")")
End If
End Sub

Kodlar sayın Orion1 hocama aittir.

 

[Korhan Ayhan]

Alternatif olarak ekteki örnek dosyayı inceleyiniz.

Doğrulama bölümüne uygulanacak formül;

=ÖZDEŞ(F1;BÜYÜKHARF(F1))