Tarih gününün büyük harf olarak yazılması

[ynmcan]

Merhaba arkadaşlar;

A1 hücresine tarih yazıyorum.
Hücre biçimlendir içindeki isteğe bağli menüsüne "gg.aa.yyyy gggg" yazarak tarih formatını, "12.05.2024 Pazartesi" şeklinde A1 hücresinde alıyorum.
Bu tarih formatındaki günü "12.05.2024 PAZARTESi" şeklinde büyük harf yapılabilirmi?

 

[Muzaffer Ali]

Merhaba.

Hücre biçimlendirme kısmından büyük harfe çevrilemiyor. Formül ile yapılabilir.

=METNEÇEVİR(A1;"GG.AA.YYYY")&"  "&BÜYÜKHARF(METNEÇEVİR(A1;"GGGG"))

 

[muhasebeciyiz]

Aynı hücreye yazınca olmaz yanındaki hücreye
BÜYÜKHARF(METNEÇEVİR(A1;"gg aaaa yyyyy gggg"))
formülü yazıp deneyiniz.

 

[Necdet]

Merhaba,
Başka bir yol :

=BÜYÜKHARF(METNEÇEVİR(A1;"gg.aa.yyyy gggg"))

 

[Necdet]

Geç kalmışım

 

[ynmcan]

Cevaplar için teşekkür ederim.
Başka bir hücre kullanmadan makro ile yapılabilrmi?

 

[Biolightant]

Merhaba,
Kullanıcı Tanımlı fonksiyon olarak

Option Explicit
'Biolight 2024 - Eppur Si Muove

Function BigDAY(Optional Tarih As Variant = Null) As String
    ' Tarih parametresi verilmediyse veya geçersizse varsayılan olarak bugünün tarihini kullan
    If IsMissing(Tarih) Or IsNull(Tarih) Or Not IsDate(Tarih) Then
        Tarih = Date
    End If

    ' Tarihi büyük harflerle formatla
    BigDAY = UCase(Format(Tarih, "dd.mm.yyyy dddd"))

    ' Türkçe karakterleri büyük harflerle doğru biçimlendirme
    BigDAY = Replace(BigDAY, "ı", "I") ' [ SALı ] yı [ SALI ] olarak değiştir
    BigDAY = Replace(BigDAY, "PAZARTESI", "PAZARTESİ") ' [ PAZARTESI ] yi [ PAZARTESİ ] olarak değiştir
    BigDAY = Replace(BigDAY, "CUMARTESI", "CUMARTESİ") ' [ CUMARTESI ] yi [ CUMARTESİ ] olarak değiştir
    ' UCase yerine Tüm günleri Replace yapsak daha kolay mış :)
End Function

 

[ynmcan]

syn. Biolightant, teşekkür ederim.