hücreye tarih yazınca yandaki hücreye ay adı gelsin

[brendie]

arkadaşlar bi türlü bulamadım... örneğin a2 hücresine tarih yazınca b2 hücresine o tarihin ait olduğu ay adı gelsin istiyorum ama yapamadım bi türlü. yardımlarınızı bekliyorum...

 

[AS3434]

Sayın brendie

Şöyle deneyebilirsiniz..

=METNEÇEVİR(A2;"aaaa")

Sayın Korhan Bey ikazınız için teşekkürler.

 

[jeki01]

bir ornek yapabilirmisiniz?

iyi gunler.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

Bu arada önerilen formül aşağıdaki şekilde olmalıdır.

=METNEÇEVİR(A2;"aaaa")

 

[northcyprus]

Sayın korhan ayhan hocambu formülü
aktif sayfanın kod bölümüne yazmak istersek nasıl yapmamız gerekiyor.
yani A1 e tarih yazılınca A2 yen AY ADI A3 E de YILı yazması lazım
örnek 01.04.2015 NİSAN 2015
bunu kod bölümüne nasıl yazabiliriz.

 

[Muzaffer Ali]

Gün için

=METNEÇEVİR(A2;"gggg")

Ay için

=METNEÇEVİR(A2;"aaaa")

Yıl için

=METNEÇEVİR(A2;"yyyy")

formüllerini kullanın

 

[northcyprus]

sayın dalgalıkur
sayfanın kod bölümüne yazılacak yani
aşagıda change özelliğini kullanarak yapmayı denedim fakat beceremedim change degil de tarih yazınca yazsa iyi olur ben now yazdıgım için sadece içinde bulundugumuz ayı yazıyor fakat ben A sütününa geçmiş bir tarih yazarsam yine içinde bulundugumuz ayı yazıyor..

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A65536")) Is Nothing Then Exit Sub
Target.Offset(0, 1) = Format(Now, "mmmm")
Target.Offset(0, 2) = Format(Now, "yyyy")
End Sub

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırırsanız A1;A500 aralığına tarih girdiğinizde ay ve yılı yan hücrelere yazar:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A500")) Is Nothing Then Exit Sub
If IsDate(Target) = True Then
Target.Offset(0, 1) = Evaluate("=LOOKUP(" & Month(Target) & ",{1,2,3,4,5,6,7,8,9,10,11,12;""Ocak"",""Şubat"",""Mart"",""Nisan"",""Mayıs"",""Haziran"",""Temmuz"",""Ağustos"",""Eylül"",""Ekim"",""Kasım"",""Aralık""})")
Target.Offset(0, 2) = Year(Target)
End If
End Sub

 

[YUSUF44]

Sonradan fark ettim ki aşağıdaki kod daha basit oldu:

Private Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A500")) Is Nothing Then Exit Sub
If IsDate(Target) = True Then
Target.Offset(0, 1) = Format(Target, "mmmm")
Target.Offset(0, 2) = Year(Target)
End If
End Sub

 

[Muzaffer Ali]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 1 Then Exit Sub
    If IsDate(Target.Value) Then
        Cells(Target.Row, 2).Value = Target.Value
        Cells(Target.Row, 2).NumberFormat = "mmmm"
        Cells(Target.Row, 3).Value = Target.Value
        Cells(Target.Row, 3).NumberFormat = "yyyy"
    End If
End Sub

 

[northcyprus]

teşekürler