DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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
=Büyükharf(A1)
=GÜN(BUGÜN())&" "&BÜYÜKHARF(METNEÇEVİR(AY(BUGÜN());"AAAA"))&" "&YIL(BUGÜN())
Bu şekilde denedim ama olmadı.A1 de ki 01 Ocak 2020 bu şekilde 01 OCAK 2020Kod:=Büyükharf(A1)
olur.
merhaba ben bu kodu sadece ay ve yıl olarak nasıl kullanabilirim acaba ? Yani OCAK 20 ŞUBAT 20 vs diyeFormül ile yapılmış hali
=GÜN(BUGÜN())&" "&BÜYÜKHARF(METNEÇEVİR(AY(BUGÜN());"AAAA"))&" "&YIL(BUGÜN())
=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ı istiyorumDeneyiniz.
C++:=BÜYÜKHARF(METNEÇEVİR(BUGÜN();"AAAA"))&" "&METNEÇEVİR(BUGÜN();"YY"))
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ı.Siz dosyanızı paylaşın üzerinden çözüm üretelim.
Çok teşekkürler hocam dediğiniz gibi yapınca çalıştı.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.
Sizinkini kopyalayınca bir tepki vermedi hocam bir yerde yanlış mı yaptım acaba ?Alternatif.
Kod:Range("B1").Value = UCase(Format(Range("A1").Value, "MMMM yyyy")
O vba kod.s
Sizinkini kopyalayınca bir tepki vermedi hocam bir yerde yanlış mı yaptım acaba ?
Teşekkürler hocamO 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"))
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.Formül ile yapılmış hali
=GÜN(BUGÜN())&" "&BÜYÜKHARF(METNEÇEVİR(AY(BUGÜN());"AAAA"))&" "&YIL(BUGÜN())