Bir ayın kaç çektiğini nasıl hesaplatabilirim?

[internetturk]

A1 hücresine girilen tarih değerini otomatik olarak Ay ismine çevirtiyorum.
İstediğim şu:
1. Ay ismine çevrildikten sonra B1 hücresine o ayın kaç gün çektiğini otomatik olarak nasıl yazdırabilirim?

2. Ayın 30 veya 31 çekmesine göre A3 den başlayarak günleri nasıl yazdırabilirim? Aslında bunu A1 hücresine girilen tarih değerini birer arttırarak yaptım ama ay 30 çekiyorsa altındaki hücreye sonraki ayın günü yazıyor?

 

[Korhan Ayhan]

Selamlar,

Ekteki örneği incelermisiniz.

 

[Necdet]

Sayın internetturk,

Altarnatif olarak fonksiyonlarla yapılmış hali ektedir.

 

[internetturk]

Ekteki dosyanızı inceledim ama hata verdi.
Şöyle ki : A1 hücresindeki tarihi 01.06.2006 olarak değiştirdiğimde hata var dedi VBA kodlarını açtı! Hata verilen satırı renkli olarak işaretledim.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
[A3:A33].ClearContents
For X = 3 To Day([B1]) + 2
Cells(X, 1) = CDate([A1]) + X - 3
Next
Target.Select
End Sub[/b]

 

[mehmett]

C10 hücresine aşağıdaki fonksiyonu yazın ve diğer hücrelere de çekip kopyalayın.

=EĞER(EHATALIYSA(EĞER(AY(C9+1)=AY(C9);C9+1;""));"";EĞER(AY(C9+1)=AY(C9);C9+1;""))

 

[internetturk]

Sayın Necdet_Yesertener, çok tşk ediyorum.
Fonksiyonla da olsa problemin çözülmesi çok önemliydi. Tşkler

 

[Korhan Ayhan]

Selamlar,

Ben denedim çalışıyor. Çalışmamasının sebebi şu olabilir;

Araçlar-Eklentiler-ToolPak Çözümleyicisinin aktif olması gerekiyor aksi durumda B1 hücresindeki formül #DEĞER! sonucunu döndürdüğü için işlem hata ile sonuçlanıyor. Belirttiğim eklentiyi aktifleştirirseniz problem yaşamazsınız.

 

[internetturk]

Peki ben A1 hücresine ay ismini yazdığımda A2 hücresine otomatik olarak o ayın kaç gün çektiğini nasıl yazdırabilirim?

 

[Necdet]

Sayın internetturk, ekteki dosyayı inceleyiniz

 

[Seyit Tiken]

Ekli dosyayı bir inceleyin.