Rakamı Aylara göre dağıtma

[KAZIMM]

Rakamı Aylara göre dağıtmayı yapamıyorum yardımcı olacak arkadaşara şimdiden teşekür ederim.

 

[KAZIMM]

yardımcı olacak arkadaşlara teşekür ederim.

 

[KAZIMM]

3 günden beri yardımlarınızı bekliyorum

 

[Merhum İdris SERDAR]

Rakamı Aylara göre dağıtmayı yapamıyorum yardımcı olacak arkadaşara şimdiden teşekür ederim.

Dosyanız ekte.

.

 

[KAZIMM]

Teşekür Ederim.

Yurtdaş Kardeş, Allah Razı Olsun.

 

[KAZIMM]

günlerin aylara dağılımı

elimizde 12 adet farklı başlama ve bitiş tarihi olduğu zaman Ocak ayında nasıl toplayacağız

18.01.2009- 20.01.2009
22.01.2009- 23.01.2009
25.01.2009- 28.01.2009
30.01.2009- 31.01.2009
..........

Ocak Toplamı = ?


iç içe formül denedim olmadı formül çok uzun uyarısı veriyor ?

 

[Merhum İdris SERDAR]

elimizde 12 adet farklı başlama ve bitiş tarihi olduğu zaman Ocak ayında nasıl toplayacağız

18.01.2009- 20.01.2009
22.01.2009- 23.01.2009
25.01.2009- 28.01.2009
30.01.2009- 31.01.2009
..........

Ocak Toplamı = ?


iç içe formül denedim olmadı formül çok uzun uyarısı veriyor ?

Örnek dosya ekte.

.

 

[KAZIMM]

Konuyu Herhalde Yanlış anlattım. Yurtaş Kardeş Ekli Dosyayı gönderiyorum.
yardımcı olursanız sevinirim.

 

[Merhum İdris SERDAR]

Konuyu Herhalde Yanlış anlattım. Yurtaş Kardeş Ekli Dosyayı gönderiyorum.
yardımcı olursanız sevinirim.

Yine anlamadım. Biraz olayı anlatın. Nasıl bir sonuç bekliyorsunuz?


.

 

[ENDMUH1]

Günaydın,

Anladığım kadarıyla günler arasındaki farkı bulmaya çalışıyorsunuz.

Örnek dosya ektedir.

NOT: Formüldeki kısıtı aşmamak için formülü her ay için ayrı düzenledim...

iyi çalışmalar,

 

[KAZIMM]

Olayı Daha iyi açıklamayaca çalışacağım.
Yapmak İstediğim Personel Yıllık İzin Takip Cizelgesi
Mesala aşağıdaki dosyada gönderdiğim örnekte
Mehmet UZUN diye pesonel farklı tarihlerde yıllık izin kullanıyor bu farklı tarihlerdeki yıllık izinler
örnekte görüldüğ gibi Ocak ayında kullanılan toplam izin 23 gün şubat ayında 28 gün ve mart ayında 9 gün olması için gerekli formül veya kod nasıl olur.

 

[ENDMUH1]

Sayın KAZIMM,

Yine anladığım kadarı ile Kişilerin izinlerinin her bir kayıdını pivot ile birleştirerek, toplamını isim bazında gruplayan bir örnek dosya hazırladım. Umarım işinize yarar..

"veri" sayfasında datayı, "pivot" sayfasında pivota aktarılmış halini bulabilirsiniz.
(2007 sürümü ile hazırladığım için pivot tablonun sadece sonuç halini görebilirsiniz. Fikir vermesi için ekledim)


iyi çalışmalar,

 

[Merhum İdris SERDAR]

Olayı Daha iyi açıklamayaca çalışacağım.
Yapmak İstediğim Personel Yıllık İzin Takip Cizelgesi
Mesala aşağıdaki dosyada gönderdiğim örnekte
Mehmet UZUN diye pesonel farklı tarihlerde yıllık izin kullanıyor bu farklı tarihlerdeki yıllık izinler
örnekte görüldüğ gibi Ocak ayında kullanılan toplam izin 23 gün şubat ayında 28 gün ve mart ayında 9 gün olması için gerekli formül veya kod nasıl olur.

Dosyanız ekte.

.

 

[chevmet]

emeğinize sağlık

 

[KAZIMM]

Yardımlarınız için teşekür ederim. arkadaşlar. iç içe 1-12 kadar veriyi kabul etmediği için konuyu kapatarak , vba kısmında userform üzerinde yapmaya karar verdim.
Ve Vba bölümünde "Günlerin Aylara Dağılımı" konu açtım

 

[halit3]

birde bunu denermisiniz

Sub GenelToplamlar()
'İzin Toplamları
'TextBox1 = Val(T17.Value) + Val(T20.Value) + Val(T23.Value) + Val(T26.Value) + Val(T29.Value) + Val(T32.Value) + Val(T35.Value) + Val(T38.Value) + Val(T41.Value) + Val(T44.Value) + Val(T47.Value) + Val(T50.Value)
'TextBox2 = Val(R2.Value) + Val(R5.Value) + Val(R8.Value) + Val(R11.Value) + Val(R14.Value) + Val(R17.Value) + Val(R20.Value) + Val(R23.Value) + Val(R26.Value) + Val(R29.Value) + Val(R32.Value) + Val(R35.Value)
'TextBox3 = Val(D2.Value) + Val(D5.Value) + Val(D8.Value) + Val(D11.Value) + Val(D14.Value) + Val(D17.Value) + Val(D20.Value) + Val(D23.Value) + Val(D26.Value) + Val(D29.Value) + Val(D32.Value) + Val(D35.Value)
'TextBox4 = Val(T4.Value) + Val(T5.Value) + Val(T6.Value) + Val(T7.Value) + Val(T8.Value) + Val(T9.Value) + Val(T10.Value) + Val(T11.Value) + Val(T12.Value) + Val(T13.Value) + Val(T14.Value) + Val(T15.Value)
toplamlar
End Sub
Sub toplamlar()
tutar1 = 0
For J = 206 To 217
tutar = 0
For i = 3 To WorksheetFunction.CountA(Worksheets("ANASAYFA").Range("B3:B65000")) + 3
If Worksheets("ANASAYFA").Cells(i, 7).Value = AD.Text Then
tutar = tutar + CDbl(Worksheets("ANASAYFA").Cells(i, J).Value)
End If
Next i
Controls("T" & J - 202) = tutar
tutar1 = tutar1 + CDbl(tutar)
TextBox4.Text = tutar1
Next J
End Sub