Hucreden Tarihi ve ismi istedigin formatta cekme

[mavisachal]

Arkadaşlar selam cok kısa ama epey uğraştıran birşey oldugu icin soruyorum siz üstadlarıma.

Acıklama dosyanın icinde mevcut ancak burada da yine belirtmek istedim A2de

isim B2de soyad C2dedoğum tarihi ve D2de yaş mevcut ben bunları E2'de

birleştirmek istiyorum birleştirirken dikkat edilmesi gereken bir kısıt var o da C2

'deki doğum tarihi makro ile E2'de birleştirirken sadece ay ve yıl formatında

birleştirmeli.

Cok uğraştım yapamadım yapan arkadaş olursa cok sevinirim.

Teşekkürler şimdiden.

 

[Ferhat Pazarçevirdi]

Şu formulü deneyiniz

=A2&" "&B2&" "&AY(C2)&"/"&YIL(C2)&" "&D2

 

[mavisachal]

yok arkadaşım olmadı ingilizze excelde ay yerine month yıl yerine year dedim ama olmadı value veriyor bunu makro ile denedim normal hücre için değil dimi?

 

[Ferhat Pazarçevirdi]

İngilizce karşılıkları dediğiniz gibi zaten... Ancak, #Value# hatası, formulden değil, c2 hücresine girdiğiniz "TARİH OLMAYAN" bir değerden kaynaklanıyor olabilir. Lütfen kontrol edin.

 

[Necdet]

Makroya gerek var mı bilemiyorum, fonksiyonla olmaz mı?

=A2&" "&B2&" "&TEXT(C2;"gg/aa/yyyy")&" "&D2
=A2&" "&B2&" "&METNEÇEVİR(C2;"gg/aa/yyyy")&" "&D2

Not : Tarihi Tarih Yaptım

 

[Necdet]

İlla Makro İle Olsun İstiyorsanız

İnceleyiniz. Doğum tarihi sütununun tarih olduğu varsayımına dayanarak :

Sub Birlestir()
[E2:E65536].ClearContents
For i = 2 To [A65536].End(3).Row
    Tarih = Format(Cells(i, "C"), "dd/mm/yyyy")
    Cells(i, "E") = Cells(i, "A") & " " & Cells(i, "B") & " " & _
                    Tarih & " " & Cells(i, "D")
    Cells(i, "E").Replace What:=".", Replacement:="/", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next i
End Sub

 

[mavisachal]

Çok teşekkür ederim arkadaşlar cok isime yaradı.

İlgilenen herkese cok teşekkürler.