Ay ve Yıl

[demircanlar]

selams arkadaşlar gene başım sıkıştı. daha doğrusu gene işin kolayına kaçmak istiyorum.

yapmak istediğim. 16.03.2005 formatında tarih yazmak ama her seferinde bu tarihi yazmak için 16/3 yazıyorum ve yılını kendi yazıyor. ben ama sadece 16 yı yazdığımda ayını ve yılınıda otomatik yerleştirmesini istiyorum bu mumkünmüdür. şimdi den tesekkürler.

 

[Levent Menteşoğlu]

=BUGÜN() formülünü kullanın tarihi hergün kendi güncellesin.

 

[demircanlar]

aylık liste yaparken lasım ama bana güncellemesini istemiyorum.

 

[danersin]

Sayfada takvim nesnesi kullanmakta bir çözüm olabilir. Ara fonksiyonundan takvim ve/veya calendar diye arama yaptırarak bazı örnekler bulabilirsiniz. Ama dosyanızda başka makrolar çalışmıyorsa sırf bunun için makro koymaya değermi bilmem.

 

[demircanlar]

değer hocam değer! ben bi bakiim bakiim saol.

 

[abazya]

SN: leventm =BUGÜN() bu formülün 16.03.2005 değilde bir gün öncesini 15.03.2005 otamatik bir gün geriden gelen formülde varmı

 

[Haluk]

=TODAY()-1

 

[Levent Menteşoğlu]

=BUGÜN()-1 formülü bir gün öncesini verir

 

[oduru]

SN: leventm =BUGÜN() bu formülün 16.03.2005 değilde bir gün öncesini 15.03.2005 otamatik bir gün geriden gelen formülde varmı

=bugün()-1
yaparsan sürekli bir gür geriden gelir

 

[abazya]

Teşekkürler beyler

 

[isakarakus]

şöyle bir çözüm buldum.

custom format olarak gg."03"."2005" ayı ve yılı kendi yazıyor.
tebi her ay formatı yenilemelisiniz...

yanlız sıralamada her ay kendi içerisinde doğru sıralanacktır.
bütün tarihleri sıralamaya kalkışırsanız sıralayamaz.

çünkü 1 değeri girdiğinizde 01.03.2005 yazar ancak hücrenin değeri 1 dir.

 

[demircanlar]

isakarakus tesekkür ederim. tam istediğim gibi. çok saool.

 

[Haluk]

custom format olarak gg."03"."2005" ayı ve yılı kendi yazıyor.
tebi her ay formatı yenilemelisiniz...

Tebrikler, çok güzel çözüm.

 

[isakarakus]

merhaba
makro kullanmak isteyenler için...

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
If Target.Column = 1 Then
Target = DateSerial(Year(Date), Month(Date), Day(Target.Text))
End If
son:
End Sub
kusura bakmayın dosyayı gönderemedim bilgisayarda bir sorun var galiba

 

[isakarakus]

işte dosya,
a sutununa günü girin, günün ayını ve yılını kendi yazsın.