İzin Takip Programında Hata

[KAZIMM]

Yapmaya çalıştığım işlemi Ekte Sayfadaki UserFormda açıkladım yardımcı olanlara şimdiden teşekürler.

 

[KAZIMM]

arkadaşlar en azından bir ip ucu verirseniz sevinirim

 

[halit3]

bu kodu 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

 

[KAZIMM]

Daha Çok aşağıdaki formülün TextBoxlara uygulamış halinin yazılmasını istiyorum.

EĞER(CZ3="";"";EĞER(MAK(0;(MİN(DB3;TARİH(YIL($GX$2);AY($GX$2)+1;0))-MAK(CZ3;$GX$2)+1))=0;"";MAK(0;(MİN(DB3;TARİH(YIL($GX$2);AY($GX$2)+1;0))-MAK(CZ3;$GX$2)+1))))

 

[halit3]

EĞER(CZ3="";"";EĞER(MAK(0;(MİN(DB3;TARİH(YIL($GX$2 );AY($GX$2)+1;0))-MAK(CZ3;$GX$2)+1))=0;"";MAK(0;(MİN(DB3;TARİH(YIL($ GX$2);AY($GX$2)+1;0))-MAK(CZ3;$GX$2)+1))))

bu formülün dosyası hangisi

 

[halit3]

ekli dosyayı incelermisin

 

[KAZIMM]

Halit Bey yardımlarınız için teşekür ederim.
ilk mesajda gönderdiğim örneği incelerseniz orada Textboxlar üzerinde işlem yapmak istiyorum
yani TextBoxlara girilen tarihler hangi aylara girerse o aya ait günleri aktarsın

 

[halit3]

o dediğini yaptım 3 sıra nolu mesajda var

 

[KAZIMM]

sayın Halit 3 nolu mesajınız olmuyor
ilk mesajımda belirttiğim gibi ,Textboxlar üzerinde işlem yapmak istiyorum "ANA SAYFAYA" bağlantı kurmadan yapmak istiyorum örneği biraz daha açyım mesala UserForm üzerindeki izin tetaylarında Textboxlara girilen tarih hangi ayları kapsıyorsa UserForm üzerindeki Ocak - Şubat - Mart -....aylarına atmasını istiyorum ilk mesajımı incelerseniz UserForm üzerinde daha iyi açıklama yaptım.

 

[KAZIMM]

mesajı pazar günü yazmıştım belki gözünüzden kaçmıştır. yardımlarınız için teşekürler

 

[KAZIMM]

yeni excel sayfasında örneği gönderdim.
örneği göndermeyi unuttum dosya altta

 

[KAZIMM]

dosyayı unutmuştum gönderdim.

 

[KAZIMM]

ilgilenen arkadaşlar yardımlarınızı bekliyorum.
Bir ip ucu verseniz sevinirim

 

[KAZIMM]

yardım eden yok mu arkadaşlar

 

[KAZIMM]

özür dilerim arkadaşlar çok oldum. yardımlarınızı bekliyorum. bu bizim için çok önemli özellikle maaş ve döner sermaye ek ödemelerin bu programı kullanacağız

 

[halit3]

6 nolu masajdaki dasyayı inceledinizmi

 

[KAZIMM]

Sayın Halit 6 nolu mesajınızı inceledim. bizim istediğimiz gibi değil , biz aylara göre dağılımı yapmaya çalışıyoruz örneğin TextBox1 de "01.01.2009 " ve TextBox2 de "06.03.2009" olsun
ve Ocak - Şubat - Mart adlarında da ayrı bir TextBoxlar olsun Ocak TextBox'a "31" Şubat TextBox'a "28"- Mart adındaki TextBox'a "6" yazdıracak Fansiyon veya VBA kodunu arıyoruz

 

[halit3]

şimdi dosyanın içindeki formda izin kağıdana girerek ilgili kişi adına değişik tarihlerde ve değişik kişilere bir kaç kez kayıt yapınız ve roporlarda bu kayıtlara ilişkin dağılımı göreceksiniz

 

[KAZIMM]

tamam dağılımı yapıyor ama mesala bizim dediğimiz gibi olmuyor tek seferde izin ilk alındığı tarihe yazıyor , bizim istediğimiz ; izin başlama ve bitiş tarihi hangi ayları kapsıyorsa o aylara atsın 60 gün izin alan personel yukarıdaki proğramda ilk izin başlama tarihi hangi gün ise o güne 60 yazıyor biz 60 günü aylara yaymak istiyoruz yani 31 gün ocak ayı 28 gün subat ayı ve 1 gün mart ayı toplam 60 gün eder.

 

[halit3]

aşağıdaki dosyaya konuldu