Tarih formülü için yardım lütfen...

[lion3535]

Arkadaşlar, tarihle ilgili iki ricam var sizlerden yardımcı olursanız çok sevinirim.

Birincisi;
A1 hücresine rakamla 1 yazınca B1 hücresine Ocak yazsın
A2 hücresine rakamla 2 yazınca B2 hücresine Şubat yazsın
...
...
A12 hücresine rakamla 12 yazınca B12 hücresine Aralık yazsın
Yani bir yıllık olmasını rica ediyorum.

İkincisi;
C1 hücresine rakamla 1 yazınca D1 hücresine Ocak ayının son gününü tarih olarak versin, yani 31.01.2017 gibi.
C2 hücresine rakamla 2 yazınca D2 hücresine Şubat ayının son gününü tarih olarak versin, yani 28.02.2017 gibi.
...
...
C12 hücresine rakamla 12 yazınca D12 hücresine Aralık ayının son gününü tarih olarak versin, yani 31.12.2017 gibi.
Yani bir yıllık olmasını rica ediyorum.

Sizden rica ettiğim bu formülleri Bordro, Ücret Pusulası v.b. sayfalarda kullanabilmek içindir.
Yardımcı olacak herkese şimdiden çok teşekkür ediyorum.

 

[BedriA]

Birinci kısım için;

Sayfanın kod bölümüne şu kodları yazın.
Kodu 12 ay için çoğaltın.

Private Sub Worksheet_Change(ByVal Target As Range)

If ActiveSheet.Range("a1") = "1" Then
ActiveSheet.Range("a1") = "Ocak"
End If

If ActiveSheet.Range("a2") = "2" Then
ActiveSheet.Range("a2") = "Şubat"
End If

'....
'....


End Sub

İkinci kısım da benzer şekilde yapılabilir.

 

[Ömer BARAN]

Merhaba.

Elbette başka seçenekler de olabilir ama aşağıdaki formüller de alternatif olsun.
Formüllerdeki YIL(BUGÜN()) yerine doğrudan 2017 gibi yıl sayısı da yazılabilir.

-- B1 hücresine (sonuç büyükharfli METİN);
.

=[COLOR="red"]EĞER[/COLOR]([COLOR="blue"]A1[/COLOR]="";"";[COLOR="red"]BÜYÜKHARF[/COLOR]([COLOR="red"]METNEÇEVİR[/COLOR]("1."&[COLOR="blue"]A1[/COLOR]&"."&[COLOR="red"]YIL[/COLOR]([COLOR="red"]BUGÜN()[/COLOR]);"AAAA")))

-- D1 hücresine (sonuç TARİH >> hücreyi tarih olarak biçimlendirin);
.

=[COLOR="red"]EĞER[/COLOR]([COLOR="blue"]C1[/COLOR]="";"";[COLOR="red"]SERİAY[/COLOR]([COLOR="red"]TARİH[/COLOR]([COLOR="red"]YIL[/COLOR]([COLOR="Red"]BUGÜN()[/COLOR]);[COLOR="Blue"]C1[/COLOR];1);0))

.

 

[lion3535]

Birinci kısım için;

Sayfanın kod bölümüne şu kodları yazın.
Kodu 12 ay için çoğaltın.

Private Sub Worksheet_Change(ByVal Target As Range)

If ActiveSheet.Range("a1") = "1" Then
ActiveSheet.Range("a1") = "Ocak"
End If

If ActiveSheet.Range("a2") = "2" Then
ActiveSheet.Range("a2") = "Şubat"
End If

'....
'....


End Sub

İkinci kısım da benzer şekilde yapılabilir.

Sayın BedriA, VBA kodlarından anlamadığım için Ömer hocamın formülünü tercih ettim, ne olur alınmayın... emeğinize ve ilginize çok teşekkür ederim, minnettarım. Allah razı olsun.

 

[lion3535]

Merhaba.

Elbette başka seçenekler de olabilir ama aşağıdaki formüller de alternatif olsun.
Formüllerdeki YIL(BUGÜN()) yerine doğrudan 2017 gibi yıl sayısı da yazılabilir.

-- B1 hücresine (sonuç büyükharfli METİN);
.

=[COLOR="red"]EĞER[/COLOR]([COLOR="blue"]A1[/COLOR]="";"";[COLOR="red"]BÜYÜKHARF[/COLOR]([COLOR="red"]METNEÇEVİR[/COLOR]("1."&[COLOR="blue"]A1[/COLOR]&"."&[COLOR="red"]YIL[/COLOR]([COLOR="red"]BUGÜN()[/COLOR]);"AAAA")))

-- D1 hücresine (sonuç TARİH >> hücreyi tarih olarak biçimlendirin);
.

=[COLOR="red"]EĞER[/COLOR]([COLOR="blue"]C1[/COLOR]="";"";[COLOR="red"]SERİAY[/COLOR]([COLOR="red"]TARİH[/COLOR]([COLOR="red"]YIL[/COLOR]([COLOR="Red"]BUGÜN()[/COLOR]);[COLOR="Blue"]C1[/COLOR];1);0))

.

Ömer hocam, emeğinize ve ilginize çok teşekkür ederim, minnettarım. Allah razı olsun.

 

[BedriA]

Sayın BedriA, VBA kodlarından anlamadığım için Ömer hocamın formülünü tercih ettim, ne olur alınmayın... emeğinize ve ilginize çok teşekkür ederim, minnettarım. Allah razı olsun.

Formül işinizi görüyorsa tabi ki formül tercih etmelisiniz.
VBA kodlarının türlü sıkıntıları oluyor çünkü.

Önemli olan işinizin görülmesi; alınmaca yok. :tongue:

Kolay gelsin.

 

[lion3535]

Formül işinizi görüyorsa tabi ki formül tercih etmelisiniz.
VBA kodlarının türlü sıkıntıları oluyor çünkü.

Önemli olan işinizin görülmesi; alınmaca yok. :tongue:

Kolay gelsin.

Anlayışınız için ben teşekkür ederim, hayırlı geceler.