Makro sonucu ingilizce olan ay adlarını türkçeleştirme

[Korhan Ayhan]

Selamlar,

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
If Target.Value = "" Then
Target.Offset(0, -1).Value = ""
Target.Offset(0, -2).Value = ""
Exit Sub
End If
If Not IsDate(Target.Value) Then MsgBox "HATALI VERİ GİRİŞİ !!!"
Target.Offset(0, -2).Value = WorksheetFunction.Text(Target.Value, "YYYY")
Target.Offset(0, -1).Value = WorksheetFunction.Text(Target.Value, "MMMM")
End Sub

Bu kodlamanın sonucunda B sütununda çıkan aylar ingilizce oluyor ingilizce olmaması için kodu nasıl değiştirmeliyim?

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:7b0a3ede04]Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
If Target.Value = "" Then
Target.Offset(0, -1).Value = ""
Target.Offset(0, -2).Value = ""
Exit Sub
End If
If Not IsDate(Target.Value) Then MsgBox "HATALI VERİ GİRİŞİ !!!"
Target.Offset(0, -2).Value = Year(Target)
Target.Offset(0, -1).Value = Format(Target, "mmmm")
End Sub
[/vb:1:7b0a3ede04]

Not:Aslında güzel bir durum yakalamışsınız. Ay adlarının bu şekilde İngilizce yazılabileceğini farketmemiştim. Güzel bir bilgi oldu, teşekkürler.