Tarih Büyük Harf

Katılım
22 Ocak 2020
Mesajlar
3
Excel Vers. ve Dili
2010 - TÜRKÇE
Excel de 01 Ocak 2020 biçiminde yazan tarihi 01 OCAK 2020 şeklinde yazmam lazım. Yardımcı olabilir misiniz...
 
Katılım
8 Eylül 2008
Mesajlar
950
Excel Vers. ve Dili
2016 İngilizce
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.

Kod:
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
 
Katılım
22 Ocak 2020
Mesajlar
3
Excel Vers. ve Dili
2010 - TÜRKÇE
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.
 
Katılım
9 Ekim 2009
Mesajlar
56
Excel Vers. ve Dili
2010
Kod:
=Büyükharf(A1)
A1 de ki 01 Ocak 2020 bu şekilde 01 OCAK 2020
olur.
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Formül ile yapılmış hali
=GÜN(BUGÜN())&" "&BÜYÜKHARF(METNEÇEVİR(AY(BUGÜN());"AAAA"))&" "&YIL(BUGÜN())
 

excel41

Destek Ekibi
Destek Ekibi
Katılım
1 Ocak 2013
Mesajlar
762
Excel Vers. ve Dili
Excel 2019 Türkçe
Birde bu şekilde deneyin verilerin A1 hücresinde olduğunu var sayarsak ,B1 hücresine uygulayın
Kod:
=METİNBİRLEŞTİR(" ";;GÜN(A1);BÜYÜKHARF(METNEÇEVİR(A1;"AAAA"));YIL(A1))
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,327
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Deneyiniz.

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

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,327
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Siz dosyanızı paylaşın üzerinden çözüm üretelim.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,327
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Alternatif.:cool:
Kod:
Range("B1").Value = UCase(Format(Range("A1").Value, "MMMM yyyy")
 
Katılım
31 Ağustos 2020
Mesajlar
9
Excel Vers. ve Dili
2016 türkçe
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ı.
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
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"))
 
Üst