Terfi tarihlerini rakamla yazdırmak.

[deliceli]

Arkadaşlar;Hepinize iyi günler dilerim.Forumda aradım ancak bulamadım.Varsada ben buladım. Memurlar maaşlarını her ayın 15 inde aldığından terfileride S11;T22 hücrelerinde olduğu gibi 15-14 tarih aralığına göre yapılıyor. Terfi tarihini elle girdiğimizde p sutunundaki terfi ayı bölümüne terfi ayı hangi ay ise rakamla(OCAK,KASIM……gibi) Makro veya formülle nasıl yazdırabiliriz. Örneğin: P16 hücresine 14/05/2008 tarihi girildiğinde Q16 hücresi MAYIS ; P17 hücresine 15/05/2008 tarihi yazıldığında Q17 hücresi HAZİRAN olacak. İki terfi tarihide Mayısta olmasına rağmen 15/14 tarih aralığından dolayı MAYIS ve HAZİRAN aylarında oluyor.Sanırım anlatabilmişimdir.Örnek dosya ektedir.Şimdiden teşekkür eder,Sağlık ve esnlik dilerim.

 

[Necdet]

Merhaba,

Dosyanız ekte

=UPPER(TEXT(P11;"aaaa"))
=BÜYÜKHARF(METNEÇEVİR(P11;"aaaa"))

 

[Ayhan Ercan]

Merhaba Sn deliceli

Kod yazarak (makro ile) bir örnekte benden...

Ek Dosyayı "Tarihi Sırala" düğmesini çaıştırarak İnceleyiniz..

Private Sub CommandButton1_Click()
Dim hcr As Range
    For Each hcr In Range("p11:p24")
        If Day(hcr.Value) > 14 Then
            hcr.Offset(0, 1).Value = Format(DateAdd("m", 1, hcr.Value), "MMMM")
        Else
            hcr.Offset(0, 1).Value = Format(hcr.Value, "MMMM")
        End If
    Next
End Sub

 

[deliceli]

Merhabalar;
Necdet ve Ayhan beylere ilgilerinden dolayı teşekkür ederim.
Ayhan beyin yazdığı makro ile istediğimi yaptım.Ayhan bey,bu kodları KULLANICI TANIMLI FONSİYON şeklinde yazarsanız memnun olurum.
İşlerinizde başarılar , sağlık ve mutluluk dileklerimle.

 

[Necdet]

Bu iş için ne fonksiyona ne de makroya gerek var.


P1125 aralığını

gg.aa.yyyy aaaa

şeklinde biçimlendirirseniz Q sütununa bile gerek kalmaz. Fazla sütun ek iş demek.

 

[Necdet]

Tekrar merhaba,

Soru dosyanın altında kaldığından tam olarak anlamamışım.
Soru sahibi arkadaşımız Sayın deliceli'de çözümün yanlış olduğunu söylemediğinden gecikmeli olarak Fonksiyonla çözümü sunuyorum.

Q1:Q24 Özel Hücre Biçimi aaaa olarak biçimlendirilmelidir.

=EĞER(GÜN(P11)> 14;TARİH(YIL(P11);AY(P11)+1;1);P11)
=IF(DAY(P11)> 14;DATE(YEAR(P11);MONTH(P11)+1;1);P11)

 

[deliceli]

Merhabalar;
Necdet bey ilginize teşekkür ederim.
Zannedersem ben iyi anlatamadım.Ben herhangi rastgele bir tarihi metne çevirmekten bahsetmiyorum.Bilindiği gibi memurlar maaşlarını 15-14 tarih aralığında almaktadırlar.Yani ay 01- 30 değil 15 - 14 olarak (mesala 15 ocak-14 şubat) değerlendirilmektedir.Dolayısıyla maaslar her ayın 1 in de değilde 15 inde verilmektedir.Memurların terfi tarihleride aynı şekilde olmaktadır.Açıklamalı dosyayı ekliyorum.
İyi çalışmalar, sağlık ve esenlikler diliyorum.

 

[Ayhan Ercan]

Sn deliceli,
"Kullanıcı Tanımlı Fonksiyonlu" örnek dosya ekliyorum, İnceleyiniz...

 

[deliceli]

Merhabalar;
Necdet ve Ayhan beylere ayrı ayrı kucak dolusu sevgi ve teşekkürlerimi yolluyorum.Çözümler gerçekten süper.Ellerinize ve beyninize sağlık.Ayhan beyin dediği gibi Bilgi, Paylaştıkça Çoğalır.... Sayenizde benimde bilgilerim çoğaldı.İyi çalışmalar, sağlık ve esenlikler diliyorum.

 

[Ayhan Ercan]

Merhabalar;
Necdet ve Ayhan beylere ayrı ayrı kucak dolusu sevgi ve teşekkürlerimi yolluyorum.Çözümler gerçekten süper.Ellerinize ve beyninize sağlık.Ayhan beyin dediği gibi Bilgi, Paylaştıkça Çoğalır.... Sayenizde benimde bilgilerim çoğaldı.İyi çalışmalar, sağlık ve esenlikler diliyorum.

Rica ederim..
Size de iyi Çalışmalar... k::