Tarih Büyük Harf

[Polat40]

Excel de 01 Ocak 2020 biçiminde yazan tarihi 01 OCAK 2020 şeklinde yazmam lazım. Yardımcı olabilir misiniz...

 

[u.L.a.s]

Merhabalar

NOT : Ben tarih olan sütunu D sütunu gibi ayarladım

Öncelikle bu tarihleri yazdığın sütun neresi ise o sütunu Tümden seçip Sağ buton tıklayarak Format Cells ile yani hücre formatı seçeneği ile Text i seç

Yani bu tarih bulunan sütun formatını öncelikle Text modunda ayarlayacağız.

Sonra bu çalıştığın sayfa neresi ise o sayfanın VBA kod düzeneğinin içerisine Aşağıdaki kod düzeneğini yaz

bu kod ile sen tarih 01 Ocak 2020 yazdığında İstediğin gibi 01 OCAK 2020 olarak dönüştürecektir.

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error Resume Next
    If Selection.Count > 1 Then Exit Sub

 
    If Intersect(Target, [D2:D65536]) Is Nothing Then GoTo 10
        If Target = "" Then Exit Sub
        Application.EnableEvents = False
            Target = WorksheetFunction.Proper(Target.Value)
            If Target.Column = 4 Then
                bul = Array("Ocak", "Şubat", "Mart", "Nisan", "Mayıs", "Haziran", "Temmuz", "Ağustos", "Eylül", "Ekim", "Kasım", "Aralık")
                deg = Array("OCAK", "ŞUBAT", "MART", "NİSAN", "MAYIS", "HAZİRAN", "TEMMUZ", "AĞUSTOS", "EYLÜL", "EKİM", "KASIM", "ARALIK")
                metin = Split(Target.Value, " ")
                For b = LBound(metin) To UBound(metin)
                    For C = LBound(bul) To UBound(bul)
                        If InStr(1, metin(b), bul(C), vbTextCompare) = 1 Then
                            metin(b) = deg(C)
                            Exit For
                        End If
                    Next
                Next
                Target.Value = Join(metin, " ")
            End If
        Application.EnableEvents = True

10:
End Sub

 

[Polat40]

Merhaba! Teşekkürler öncelikle.
Çalıştığım bilgisayar kapalı kaynak olduğundan program içeriğinde Text Modu yok Ve VBA Kod düzeneği de nerede bilmiyorum. Başka bir yolu var mıdır.

 

[ebedyolcusu]

=Büyükharf(A1)

A1 de ki 01 Ocak 2020 bu şekilde 01 OCAK 2020
olur.

 

[Seyit Tiken]

Formül ile yapılmış hali
=GÜN(BUGÜN())&" "&BÜYÜKHARF(METNEÇEVİR(AY(BUGÜN());"AAAA"))&" "&YIL(BUGÜN())

 

[Polat40]

=Büyükharf(A1)

A1 de ki 01 Ocak 2020 bu şekilde 01 OCAK 2020
olur.

Bu şekilde denedim ama olmadı.

 

[excel41]

Birde bu şekilde deneyin verilerin A1 hücresinde olduğunu var sayarsak ,B1 hücresine uygulayın

=METİNBİRLEŞTİR(" ";;GÜN(A1);BÜYÜKHARF(METNEÇEVİR(A1;"AAAA"));YIL(A1))

 

[ebedyolcusu]

Ben yaptım oldu..

 

[Lyno]

Formül ile yapılmış hali
=GÜN(BUGÜN())&" "&BÜYÜKHARF(METNEÇEVİR(AY(BUGÜN());"AAAA"))&" "&YIL(BUGÜN())

merhaba ben bu kodu sadece ay ve yıl olarak nasıl kullanabilirim acaba ? Yani OCAK 20 ŞUBAT 20 vs diye

 

[Korhan Ayhan]

Deneyiniz.

=BÜYÜKHARF(METNEÇEVİR(BUGÜN();"AAAA"))&" "&METNEÇEVİR(BUGÜN();"YY"))

 

[Lyno]

Deneyiniz.

=BÜYÜKHARF(METNEÇEVİR(BUGÜN();"AAAA"))&" "&METNEÇEVİR(BUGÜN();"YY"))

Teşekkürler oldu ama EKİM 20 KASIM 20 vs nasıl yapacağım peki ben bunları ve bunların sabit kalmasını istiyorum

 

[Korhan Ayhan]

Siz dosyanızı paylaşın üzerinden çözüm üretelim.

 

[Lyno]

Siz dosyanızı paylaşın üzerinden çözüm üretelim.

Hocam ne yazık ki paylaşamıyorum dosyayı. Yani istediğim şey 12 ayın büyük yazıp yanına yıl yazılması.

 

[Korhan Ayhan]

O zaman şöyle yapın.

İlk olarak ayları yazacağınız hücreleri METİN olarak biçimlendirin.
Sonra ilgili alana BÜYÜK harfle ay adlarını ve yanına yılları yazabilirsiniz.

 

[Orion1]

Alternatif.

Range("B1").Value = UCase(Format(Range("A1").Value, "MMMM yyyy")

 

[Lyno]

O zaman şöyle yapın.

İlk olarak ayları yazacağınız hücreleri METİN olarak biçimlendirin.
Sonra ilgili alana BÜYÜK harfle ay adlarını ve yanına yılları yazabilirsiniz.

Çok teşekkürler hocam dediğiniz gibi yapınca çalıştı.

 

[Lyno]

s

Alternatif.

Range("B1").Value = UCase(Format(Range("A1").Value, "MMMM yyyy")

Sizinkini kopyalayınca bir tepki vermedi hocam bir yerde yanlış mı yaptım acaba ?

 

[Orion1]

s


Sizinkini kopyalayınca bir tepki vermedi hocam bir yerde yanlış mı yaptım acaba ?

O vba kod.
Formül ile aşağıdaki gibi bir aternatif formül kullanabilirsiniz.
Tarih A1 hücresindedir.

=BÜYÜKHARF(METNEÇEVİR(A1;"aaaa yyyyy"))

 

[Lyno]

O vba kod.
Formül ile aşağıdaki gibi bir aternatif formül kullanabilirsiniz.
Tarih A1 hücresindedir.

=BÜYÜKHARF(METNEÇEVİR(A1;"aaaa yyyyy"))

Teşekkürler hocam

 

[tohmanhüseyin]

Formül ile yapılmış hali
=GÜN(BUGÜN())&" "&BÜYÜKHARF(METNEÇEVİR(AY(BUGÜN());"AAAA"))&" "&YIL(BUGÜN())

Kolay gelsin 24.09.2020 PAZARTESİ formülü bu şekilde güncelleye bilirmiyiz sonuna büyük harf ile günde eklenerek.Teşekkür ederim.