Soru Bulunduğumuz AYIN simini ve Yılın ismini hücreye yazdırmak

[bulentkars]

Arkadaşlar Merhaba,

A1 Hücresine Bulunduğumuz ayın ismini "OCAK"
B1 Hücresine Bulunduğumuz Yıl ismini "2023"

Makro ile yazdırmak istiyorum. Yardımcı olabilirseniz sevinirim.

 

[jexNet]

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A6:A25000]) Is Nothing Then Cells(Target.Row, "B") = Format(Now, "dd.mm.yyyy hh:mm")
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column <> 2 Then Exit Sub
   If Target.Column = 2 Then
   Target.Offset(0, -1).Select
    MsgBox Target.Address(0, 0) & " Hücresinde değişiklik yapamazsınız...", vbCritical, "Sn. " & Application.UserName
   End If
End Sub

 

[bulentkars]

Merhaba,

Bu kod istediğim sonucu vermiyor,

 

[Korhan Ayhan]

Deneyiniz.

Sub Test()
    Range("A1:B1") = Array(UCase(Replace(Replace(Format(Date, "mmmm"), "ı", "I"), "i", "İ")), Format(Date, "yyyy"))
End Sub

 

[bulentkars]

Tekrar Merhaba,

Yazdığınız kodun içinden tarih kodu ile yapmaya başardım. sadece ay ismini hücreye küçük harf yazıyor. ben büyük yazmasını istiyorum. yapamadım.

Aşağıdaki kod istediğim sonucu veriyor, sadece Hücreye Büyük harf olarak yazmasını istiyorum.
Range("AM4") = Format(Now, "MMMM")

 

[bulentkars]

k

Deneyiniz.

Sub Test()
    Range("A1:B1") = Array(Format(Date, "mmmm"), Format(Date, "yyyy"))
End Sub

Korhan Bey Merhaba,

ay ismini hücreye Büyük Harf olarak yazmasını nasıl sağlayabilirim. Teşekkürler
Sub Test()
Range("A1:B1") = Array(Format(Date, "MMMM"), Format(Date, "yyyy"))
End Sub

 

[Korhan Ayhan]

Kodu revize ettim. Tekrar deneyiniz.

 

[bulentkars]

Çok Teşekkürler Korhan Bey, Elinize sağlık.