VBA da PROPER çalışıyor, UPPER olunca çalışmıyor

[baydeniro]

Merhaba Arkadaşlar,

Aşağıdaki kodlar aynı tipteler. PROPER olan normal şekilde çalışıyor ama UPPER olan çalışmıyor. Bu fonksiyonların yapıları farklı mı ?
nerede hata yapıyorum acaba ?

*** ÇALIŞMIYOR ***
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Value = WorksheetFunction.Upper(Target.Value)
End Sub

*** ÇALIŞIYOR ***
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Value = WorksheetFunction.Proper(Target.Value)
End Sub

 

[systran]

üstad TEXT tipinde olması gerek sanki

 

[baydeniro]

üstad TEXT tipinde olması gerek sanki

İlgine teşekkür ederim systran.
Target.Value = WorksheetFunction.Upper(Target.Value)

bu kodun nasıl olması gerekir ?

 

[systran]

target.value yerine target.text dener misin?

 

[baydeniro]

target.value yerine target.text dener misin?

olmadı

 

[YUSUF44]

Benim bildiğim UPPER değil de UCASE kullanılıyor.

 

[cicosz]

Merhaba,

Aşağıdaki şekli ile dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)

    Target.Value = UCase(Target.Value)

End Sub

Edit: @YUSUF44 'ün cevabını görmemişim.

 

[baydeniro]

Merhaba,

Aşağıdaki şekli ile dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)

    Target.Value = UCase(Target.Value)

End Sub

Edit: @YUSUF44 'ün cevabını görmemişim.

teşekkür ederim cicosz, şimdi oldu. peki LOWER (KÜÇÜKHARF) için VBA terimini biliyor musunuz !

 

[cicosz]

UCase kısmını LCase yaparsanız tümü küçük olur.

 

[baydeniro]

UCase kısmını LCase yaparsanız tümü küçük olur.

Çok teşekkür ederim cicosz, sağlıcakla kalın

 

[Necdet]

Merhaba,

Bildiğim kadarıyla UCase ve LCase fonksiyonlarında Türkçe karakter sıkıntısı var.
Ben aşağıdaki kodları fonksiyon olarak kullanıyorum.

Function BKH(Sozcuk As String, Optional Tip As Integer = 2) As String

    'Tip    1. Küçük Harf
    '       2. Büyük Harf
    '       3. Yazım Düzeni
    
    If Tip = 1 Then
        BKH = Evaluate("=LOWER(" & """" & Sozcuk & """" & ")")
    ElseIf Tip = 2 Then
        BKH = Evaluate("=UPPER(" & """" & Sozcuk & """" & ")")
    Else
        BKH = Application.WorksheetFunction.Proper(Sozcuk)
    End If
    
End Function