AY ADI OTOMATİK GELSİN

[polis-53]

Merhaba arkadaşlar excel de D1 hücresine MART Yazıyor ben A2 hücresine 20 yazdığımda 20 mart olarak yazdırılabilirmi

 

[betsfat]

.

 

[excel41]

D1 hücresine uygulayın güncel ay esas alındı

=BİRLEŞTİR(A2;" ";METNEÇEVİR(ŞİMDİ();"AAAA"))

 

[betsfat]

d1 hücresinde ki MART yazısı otomatik bir hücreden mi geliyor?Yoksa Manuel mi yazılıyor?Manuel yazılıyor ise mart ile birlikte 20'yi yazmanın sorunu çözeceğini,otomatik bir hücreden geliyor ise onu belirtirseniz daha kalıcı bir çözüm bulunacağını düşünüyorum... Farklı bir hücrede ikisinin birleşimi yazsın istiyorsanız örnek: seçtiğiniz hücreye yandaki kodu yazın =a2&d1

 

[polis-53]

D1 hücresindeki Mart manuel yazılıyor A2 hücresine manüel 1 yazdığımda D1 hücresindeki ayı alarak 1 Mart olmasını istiyorum

 

[betsfat]

D1 Hücresine manuel giriş yapıyor iseniz a2 hücresine manuel bir giriş yapmanıza gerek yok.D1 hücresine 20 mart yazarsınız.Fakat ben D1 hücresi bugün hangi ayda olduğumu otomatik göstersin ben sadece gününü A2 hücresine yazarak belirleyeceğim diyorsanız excel41 arkadaşın formulünü kullanın.Bence dosyanızı paylaşır iseniz size daha kalıcı ve kesin çözümlü sonuçlar aktarılacağını düşünüyorum.

 

[polis-53]

Ekte gönderdiğim dosyadan da anlaşılacağı üzere ben 10 yazınca D1 hücresindeki ay adını eklesin istiyorum

 

[excel41]

3 nolu mesajı denediniz mi ?

 

[polis-53]

hayır benim istediğim bu değil ben d1 hücresinde ay adı var örnek mart A kolonunda manuel 10 yazacağım enter tüşüna bastığımda 10 mart olmasını istiyorum bu formulle olmaz sanırım makro ile olur düşüncesindeyim.

 

[cemshan]

D2 HÜCRESİNE YAZINIZ =BİRLEŞTİR(A2;" ";$D$1)

 

[polis-53]

YARDIMCI KOLON KULLANMADAN YAPMAK İSTİYORUM

 

[Merhum İdris SERDAR]

.

Aşağıdaki gibi bir kod kullanabilirsiniz.

Sub Test()
[A1] = [A1] & "." & [D1]
End Sub

.

 

[Seyit Tiken]

Görselde ki gibi deneyiniz.

 

[Korhan Ayhan]

Alternatif;

Sayfanızın kod bölümüne uygulayınız.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    Dim Alan As Range, Ay As String, Aylar As Variant, Bul As Byte, Veri As Range
    Set Alan = Range("A2:A" & Rows.Count)
    If Intersect(Target, Alan) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Aylar = Array("Ocak", "Şubat", "Mart", "Nisan", "Mayıs", "Haziran", "Temmuz", "Ağustos", "Eylül", "Ekim", "Kasım", "Aralık")
    Ay = Range("D1").Value
    If Target.Cells.Count = 1 Then
        Bul = Application.WorksheetFunction.Match(Ay, Aylar, 0)
        If Not IsEmpty(Target.Value) And IsNumeric(Target.Value) And Target.Value > 0 Then
            If Month(DateSerial(Year(Date), Bul, Target.Value)) = Bul Then Target.Value = Target.Value & " " & Ay
        End If
    Else
        For Each Veri In Intersect(Selection, Alan)
            Bul = Application.WorksheetFunction.Match(Ay, Aylar, 0)
            If Not IsEmpty(Veri.Value) And IsNumeric(Veri.Value) And Veri.Value > 0 Then
                If Month(DateSerial(Year(Date), Bul, Veri.Value)) = Bul Then Veri.Value = Veri.Value & " " & Ay
            End If
        Next
    End If
Son: Application.EnableEvents = True
End Sub

 

[musculus2]

Sayın Korhan Ayhan kod değil şiir resmen elinize sağlık.

 

[polis-53]

Çok teşekkür ederim sağolun ALLAH bütün kotuluklerden korusun.