Değer değiştirici butonuna ay atamak

[ASLAN7410]

Merhaba arkadaşlar.

Değer değiştirici butonuna yukarı veya aşağı bastığımda Sayfa1'deki A2 hücresine OCAK, ŞUBAT, MART gibi yazmasını istiyorum.

Bu işlemi düşeyara formülü ile yaptım, ancak kod ile olmasını istiyorum.

Yardım edecek arkadaşlara şimdiden teşekkür ediyorum.

 

[Orion1]

Dosyanız ektedir.

=METNEÇEVİR(TARİH(YIL(BUGÜN());B1;1);"aaaa")

 

[ASLAN7410]

Sayın Evren Bey ilginiz için çok teşekkür ediyorum, sizin yaptığınız gibi değişik şekilde eğer formülü ile yapmıştım, vba kodu olarak yapabilir misiniz?

 

[Orion1]

Sayın Evren Bey ilginiz için çok teşekkür ediyorum, sizin yaptığınız gibi değişik şekilde eğer formülü ile yapmıştım, vba kodu olarak yapabilir misiniz?

Dosyanız ektedir.

Sub DeğerDeğiştirici1_Değiştir()
Range("A1").Value = DateSerial(Year(Date), Range("B1").Value, 1)
Range("A1").NumberFormat = "mmmm"
End Sub

 

[ASLAN7410]

Sayın Evren Bey butona bastığım zaman A1 hücresinde ay ismi yazıyor, hücre içerisine girdiğim zaman örneğin 01.01.2015 gibi yazıyor, ben sadece ay isminin yazmasını istiyorum.

 

[Emir Hüseyin Çoban]

. . .

2 butonla +/- yapmak için kodlar

Sub Eksi()
    aylar = Array("", "OCAK", "ŞUBAT", "MART", "NİSAN", "MAYIS", "HAZİRAN", "TEMMUZ", "AĞUSTOS", "EYLÜL", "EKİM", "KASIM", "ARALIK")
    For i = 1 To UBound(aylar)
        If Range("A2") = aylar(i) Then
            If i = 1 Then Exit Sub
            Range("A2") = aylar(i - 1)
            Exit Sub
        End If
    Next i
End Sub

Sub Artı()
    aylar = Array("", "OCAK", "ŞUBAT", "MART", "NİSAN", "MAYIS", "HAZİRAN", "TEMMUZ", "AĞUSTOS", "EYLÜL", "EKİM", "KASIM", "ARALIK")
    For i = 1 To UBound(aylar)
        If Range("A2") = aylar(i) Then
            If i = 12 Then Exit Sub
            Range("A2") = aylar(i + 1)
            Exit Sub
        End If
    Next i
End Sub

. . .

 

[ASLAN7410]

Sayın Hüseyin Bey ilginize çok teşekkür ederim. Çok güzel oldu, hayırlı çalışmalar.

 

[Orion1]

Alternatif.

Sub DeğerDeğiştirici1_Değiştir()
Range("A1").NumberFormat = "@"
Range("A1").Value = Format(DateSerial(Year(Date), Range("B1").Value, 1), "mmmm")
End Sub

 

[ASLAN7410]

Sayın Evren Bey çok güzel oldu, ellerinize sağlık tam istediğim gibi oldu çok teşekkür ediyorum.

A1 hücresine Ocak, Şubat şeklinde yazıyor, OCAK, ŞUBAT diye büyük harf yapılırsa daha güzel olacak, kod içerisindeki formüle ekleme yapmaya çalıştım ancak yapamadım.

 

[YUSUF44]

Sub DeğerDeğiştirici1_Değiştir()
Range("A1").NumberFormat = "@"
Range("A1").Value = ucase(Format(DateSerial(Year(Date), Range("B1").Value, 1), "mmmm"))
End Sub

Şeklinde deneyin ama Türkçe karakter sorunu olabiliremin , değilim.

 

[ASLAN7410]

Sayın Yusuf Bey ilginize teşekkür ediyorum.

Sizin dediğiniz gibi denedim ARALıK ve EKiM şeklinde yazdı.

Neyse bu şekilde kullanırım artık, yinede ilgilenen arkadaşların hepsine çok teşekkür ediyorum.
Hayırlı çalışmalar.

 

[Orion1]

Sayın Evren Bey çok güzel oldu, ellerinize sağlık tam istediğim gibi oldu çok teşekkür ediyorum.

A1 hücresine Ocak, Şubat şeklinde yazıyor, OCAK, ŞUBAT diye büyük harf yapılırsa daha güzel olacak, kod içerisindeki formüle ekleme yapmaya çalıştım ancak yapamadım.

Buyurun.

Sub DeğerDeğiştirici1_Değiştir()
Dim deg As String
Range("A1").NumberFormat = "@"
deg = Format(DateSerial(Year(Date), Range("B1").Value, 1), "mmmm")
Range("A1").Value = UCase(Replace(Replace(deg, "i", "İ"), "ı", "I"))
End Sub

 

[ASLAN7410]

Sayın Evren Bey valla süper oldu çok teşekkür ediyorum, ellerinize sağlık.

Hayırlı çalışmalar.

 

[Orion1]

Sayın Evren Bey valla süper oldu çok teşekkür ediyorum, ellerinize sağlık.

Hayırlı çalışmalar.

Rica ederim.
İyi çalışmalar.