İzin Tarihleri Arası Tatil Gün Sayısı

[xaxcho]

Merhabalar,

Yurtdışında çalışmaktayım ve buradaki tatil günleri Türkiye'den farklı.

* Ekli tabloda Tatil günleri sayfasında 2032 ye kadar olan tatil günleri listesi yazılı.

* Ümit Tüfekçi sayfasında turuncu renkli izine gidiş ve dönüş tarihleri yazılı.

* sarı renkli hücrede benim yazdığım formülü göreceksiniz. Formül çalışmakta ancak şöyle bir kusuru var;

- turuncu renkli hücreleri yazarsanız formüle (b21 ve c21) formül hesap yapmıyor.
- eğer turuncu renkli hücredeki tarihleri formüle yazarsanız (26.12.2006 ve 11.01.2007) otomatik olarak iki tarih arasındaki tatil günlerini çıkartıp 3 günü buluyor.

Tarihleri yazmadan hücredeki tarihleri alarak neden sonuç çıkartamıyorum.

yardımcı olursanız sevinirim. İyi günler dilerim.

 

[Merhum İdris SERDAR]

.

Buradaki örneği inceleyin.


http://www.excel.web.tr/f122/iki-tarih-arasyndaki-resmi-tatiller-t100699.html


.

 

[xaxcho]

Dosyayı inceledim eğer tek satır olsaydı işime yarardı ancak ben her izin sırasında bu tabloyu nasıl çalıştıracağım ?

aslında benim problemim hücredeki tarihi formülde okutamamış olmam. Bunu nasıl yapabilirim ?

 

[halit3]

(Tatil Günleri 2032 ye kadar) sayfasında birinci satıra yılları yazdım ancak bu yıllarda iki yıla ait tatil günleri mevcut bunları tek yıl olarak düşünürseniz aşağıdaki kod bir deneyin.

Sub tatil()
For k = 20 To Worksheets("Ümit Tüfekçi").Cells(Rows.Count, 2).End(3).Row
say1 = 0
For i = 3 To Worksheets("Tatil Günleri 2032 ye kadar").Cells(1, Columns.Count).End(xlToLeft).Column
aranan = Worksheets("Tatil Günleri 2032 ye kadar").Cells(1, i).Value
bulunan = Right(Worksheets("Ümit Tüfekçi").Cells(k, 2).Value, 4)
bulunan3 = Right(Worksheets("Ümit Tüfekçi").Cells(k, 3).Value, 4)
If Val(aranan) = Val(bulunan) Or Val(aranan) = Val(bulunan3) Then
baslangıc = Worksheets("Ümit Tüfekçi").Cells(k, 2).Value
bitis = Worksheets("Ümit Tüfekçi").Cells(k, 3).Value
say = 0
For r = baslangıc To bitis
aranan2 = baslangıc + say
say = say + 1
For j = 2 To Worksheets("Tatil Günleri 2032 ye kadar").Cells(Rows.Count, i).End(3).Row
bulunan2 = Worksheets("Tatil Günleri 2032 ye kadar").Cells(j, i).Value
If aranan2 = bulunan2 Then
say1 = say1 + 1
End If
Next j

Next r
End If
Next i
Worksheets("Ümit Tüfekçi").Cells(k, 7).Value = say1
Next k
End Sub

 

[Merhum İdris SERDAR]

Merhabalar,

Yurtdışında çalışmaktayım ve buradaki tatil günleri Türkiye'den farklı.

* Ekli tabloda Tatil günleri sayfasında 2032 ye kadar olan tatil günleri listesi yazılı.

* Ümit Tüfekçi sayfasında turuncu renkli izine gidiş ve dönüş tarihleri yazılı.

* sarı renkli hücrede benim yazdığım formülü göreceksiniz. Formül çalışmakta ancak şöyle bir kusuru var;

- turuncu renkli hücreleri yazarsanız formüle (b21 ve c21) formül hesap yapmıyor.
- eğer turuncu renkli hücredeki tarihleri formüle yazarsanız (26.12.2006 ve 11.01.2007) otomatik olarak iki tarih arasındaki tatil günlerini çıkartıp 3 günü buluyor.

Tarihleri yazmadan hücredeki tarihleri alarak neden sonuç çıkartamıyorum.

yardımcı olursanız sevinirim. İyi günler dilerim.

.

Formülü:

=COUNTIFS('Tatil Günleri 2032 ye kadar'!$C$3:$AC$15;">"&B21;'Tatil Günleri 2032 ye kadar'!$C$3:$AC$15;"<"&C21)

=ÇOKETOPLA('Tatil Günleri 2032 ye kadar'!$C$3:$AC$15;">"&B21;'Tatil Günleri 2032 ye kadar'!$C$3:$AC$15;"<"&C21)

şeklinde deneyin.

.

 

[xaxcho]

oldu ya vallahi çok sağ ol. Bir şey daha öğrenmiş oldum.

Teşekkür ederim.