Tarih Toplama

[adase]

Merhabalar
giriş çıkış saatlerini kaydetmek istiyorum sonrasında bunların farkını alarak toplam kaç saat çalışıldığını netleştirmek istiyorum.Buraya kadar bir sorun yaşamıyorum ancak çalışan günleri haftaiçi ve haftasonu olarak ayırmak ve bu günlerdeki çalışılan saatleri ayrı ayrı hücrelerde toplamak istiyorum ekteki dosyada bir örneğini yapmaya çalıştım ancak olmadı bunun için hangi formülleri kullanababilirim.
(Bu arada not olarak çalışılacak günler her zaman ardışık olmayacak yani 3gün arka arkaya çalışıp bir hafta çalışılmayabilir.Buna uygun formül bulup yapamadım.)
Şimdiden teşekkürler.
İyi günler

 

[Ömer]

Merhaba,

Hafta içi;

=TOPLA.ÇARPIM((HAFTANINGÜNÜ(A4:A10;2)<6)*(B4:B10))

Hafta sonu;

=TOPLA.ÇARPIM((HAFTANINGÜNÜ(A4:A10;2)>5)*(B4:B10))

.

 

[KUDRETCAN]

benim de sormak istediğim tarihin yalnızca yılını alarak ona sayı olarak yıl eklemek. örneğin : 02.05.1997 tarihine 4 yıl eklemek istiyorum... yardımlarınız için teşekkürler

 

[İhsan Tank]

benim de sormak istediğim tarihin yalnızca yılını alarak ona sayı olarak yıl eklemek. örneğin : 02.05.1997 tarihine 4 yıl eklemek istiyorum... yardımlarınız için teşekkürler

merhaba
istediğiniz bu mu acaba
tarihin a1'de olduğu varsayılmıştır.

=TARİH(YIL(A1)+4;AY(A1);GÜN(A1))

 

[KUDRETCAN]

üstad ihtiyacım olan budur. çok teşekkür ederim

 

[İhsan Tank]

üstad ihtiyacım olan budur. çok teşekkür ederim

rica ederim
:yazici:

 

[adase]

yardımınız için teşekkürler Exceli ingilizce kullanıyorum
Sumproduct((workday(A4:A10;2)>5)*(B4:B10)) olarak yazdım hata verdi nasıl bir değişiklik yapmam gerekli
Teşekkürler.

 

[Ömer]

HAFTANINGÜNÜ yerine WEEKDAY

yazmanız gerekir.

.

 

[adase]

söylediğiniz şekilde değişiklik yaptım ama ne yazık ki hata veriyor.Şöyle bir döngü kuruyorum ancak formülize edemiyorum:
z=0
for i=4,10,
if(Weekday(Ai) <6 ,z+Bi)
i++
bi nevi Axden Ay ye kadar kontorülümü yapacağım haftaiçi olan günün karşılığındaki sayıyı topluyacam ama formül olarak bir türlü çalışmıyor

 

[Ömer]

Eki inceleyiniz..

.

 

[adase]

çok teşekkürler Ömer Bey

 

[Alper İBAŞ]

Private Sub ALAN07_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
ALAN07.Value = Format(ALAN07.Value, "dd.mm.yyyy")
End Sub

Private Sub ALAN08_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
ALAN08.Value = Format(ALAN08.Value, "dd.mm.yyyy")
End

Merhaba bu şekilde formatlanmış iki text box var. Bunlardan ALAN07 ye yazdığım tarihi

örneğin ALAN07 ye 06.06.2011 yazmış iken 366 gün ekleyip ALAN08 e 06.06.2012 olarak yazmasını istiyorum.

Neden istediğim ise bir sigorta acente programı hazırlıyorum orda poliçenin başlangıç tarihini yazınca tam 366 gün sonra aynı gün bitiş tarihini otomatik yazsın istiyorum.

Son bir soru daha textbox a 06062011 yazıp diğer text boxa geçince 06.06.2011 olarak yazabilecek bir format yapılabilir mi ?

 

[Alper İBAŞ]

Private Sub ALAN08_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim t1 As Date
Dim t2 As Long
t1 = ALAN07.Value
t2 = 366
ALAN08 = Format(t1 + t2, "dd.mm.yyyy")
End Sub

Bu şekilde çözdüm

 

[Alper İBAŞ]

Private Sub ALAN07_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii > 47 And KeyAscii < 58 Then
Select Case Len(ALAN07)
Case 2, 5
ALAN07 = ALAN07 & "."
Case Is > 9
KeyAscii = 0
End Select
Else
KeyAscii = 0
End If
End Sub

Son sorumuda bu şekilde çözdüm.