Ay değerini hücreye sadece text formatında yazdırmak

[cebelitarık]

Forumun değerli üyeleri
Sayfa1 A1 hücresinde 21.11.2010 tarihi yazılı.
Sayfa2 A1 hücresine sadece "Kasım" yazdırmak istiyorum.
Bu hücreye tıkladığımda formül çubuğunda 23.11.2010 gibi formatlı hücre görmek istemiyorum. Sadece "Kasım" yazacak. Çünkü buradan bu "Kasım" değerini alıp başka yerde text olarak kullanmak istiyorum.
İlgilenecek arkadaşlarıma şimdiden teşekkür ederim.
Saygılarımla

 

[Ergün Güler]

Forumun değerli üyeleri
Sayfa1 A1 hücresinde 21.11.2010 tarihi yazılı.
Sayfa2 A1 hücresine sadece "Kasım" yazdırmak istiyorum.
Bu hücreye tıkladığımda formül çubuğunda 23.11.2010 gibi formatlı hücre görmek istemiyorum. Sadece "Kasım" yazacak. Çünkü buradan bu "Kasım" değerini alıp başka yerde text olarak kullanmak istiyorum.
İlgilenecek arkadaşlarıma şimdiden teşekkür ederim.
Saygılarımla

Selam,

Sub ay_adı_bul()
Dim s1 As Worksheet
Dim s2 As Worksheet

Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")

tarih = CDate(s1.Range("A1"))

If IsDate(tarih) = True Then
s2.Range("A1") = Format(CDate(tarih), "mmmm")
Else
s2.Range("A1") = ""
End If


End Sub

Kodu Kendiniz uyarlayınız veya örnek dosyanızı ekleyiniz.

İyi çalışmalar.

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub AY_ADI()
    Sheets("Sayfa2").Range("A1") = Format(Sheets("Sayfa1").Range("A1"), "mmmm")
End Sub

 

[cebelitarık]

Sayın Ergün Güler ve Korhan Ayhan arkadaşlarım
İlginize teşekkür ederim.

 

[Ergün Güler]

Sayın Ergün Güler ve Korhan Ayhan arkadaşlarım
İlginize teşekkür ederim.

Selam,
Biz teşekkür ederiz. İyi çalışmalar.