Soru Bulunduğumuz aya göre hücreye değer yazma

[burhancavus61]

Hangi ayda isek A1 hücresine sadece 1 - 12 arasında makro ile değer yazmak istiyorum. Ocak = 1 / Aralık = 12

 

[Ömer]

Merhaba,

İstediğiniz net değil, size uyanı kullanırsınız.

Sub yaz1()
    'sayı olarak yazar
    [A1] = Month(Date)
End Sub

Sub yaz2()
    'metin olarak yazar
    [A1] = Format(Date, "mmmm")
End Sub

Sub yaz3()
    'metin = sayı olarak yazar
    [A1] = Format(Date, "mmmm = mm")
End Sub

 

[burhancavus61]

Hocam uygun olanı kullandım sağolun

 

[burhancavus61]

Hocam güncelleme yapmamız mümkünmü.
Sizin bu kodunuz işime yaradı yanlız bi değişikliğe ihtiyacım var.
Bu ayın 27 sine kadar içinde bulunduğumuz ayın sayısını 28 inden sonra diğer ayın sayısını eklemek mümkünmüdür.

Sub yaz1()
    'sayı olarak yazar
    [A1] = Month(Date)
End Sub

 

[Ömer]

Deneyiniz.

Sub yaz1()
    Dim s As Byte
    If Day(Date) > 27 Then s = 1
    [A1] = Month(Date) + s
End Sub

 

[burhancavus61]

Teşekkür ederim hocam.