Yıllık İzin Fonksiyonu

[Istarçalı]

Sayın Yurttaş,
Tam istediğim gibi..
Teşekkürler...

 

[Istarçalı]

Sayın yurttaş,
Bu formülün başında ve sonunda bulunan,
{ } işaretleri olmadığından neden çalışmadığının açıklaması nedir?
Bu konuda bir bilgim yokta
Teşekkürler..

 

[Merhum İdris SERDAR]

Sayın yurttaş,
Bu formülün başında ve sonunda bulunan,
{ } işaretleri olmadığından neden çalışmadığının açıklaması nedir?
Bu konuda bir bilgim yokta
Teşekkürler..

Bu bir dizi formülüdür.

Onun için {} işaretlerinin konulması gerekir. Bu işaretleri elle girerseniz formül yine çalışmaz. Bu nedenle formülü CTRL+SHIFT tuşlarına aynı anda basarken ENTER tuşu ile girmeniz gerekir.

.

 

[kelkitli]

Sayn yurttaş gerçekten harika oldu. Ben de teşekkürlerimi iletirim.

 

[Istarçalı]

Teşekkürler..
Ellerinize sağlık..

 

[erkankamilonas]

Public GlobalDegisken

Function IzinBitisi(IzinGunleri As Range, IzinBaslangici As Date, IzinGun As Byte) As Date
 For byt = IzinBaslangici To IzinBaslangici + IzinGun
  If Weekday(byt, vbMonday) = 7 Then pazarlar = pazarlar + 1
 Next byt
 
 For byt = IzinBaslangici To IzinBaslangici + IzinGun + pazarlar + Tatiller
  For Each rng In IzinGunleri
   If Weekday(byt, vbMonday) <> 7 Then
    If byt = rng Then Tatiller = Tatiller + 1
   End If
  Next rng
 Next byt
 
 IzinBitisi = IzinBaslangici + pazarlar + Tatiller + IzinGun - 1
 If Month(IzinBitisi) = 12 Then IzinBitisi = IzinBitisi + 1
 GlobalDegisken = IzinBitisi
End Function

Function IsBasi(IzinGunleri As Range, IzinBaslangici As Date, IzinGun As Byte) As Date
 IsBasi = GlobalDegisken + 1
  
 For byt = IsBasi To IsBasi + pazarlar
  If Weekday(byt, vbMonday) = 7 Then pazarlar = pazarlar + 1
 Next byt
 
 For byt = IsBasi To IsBasi + pazarlar + Tatiller
  For Each rng In IzinGunleri
   If Weekday(byt, vbMonday) <> 7 Then
    If byt = rng Then Tatiller = Tatiller + 1
   End If
  Next rng
 Next byt
 
 IsBasi = IsBasi + pazarlar + Tatiller
End Function

 

[kelkitli]

Sayın yurttaş,
Bu formülize ettiğiniz dosya haftada 2 gün tatil verse de güzel oldu. Aynı şekliyle ekli dosyada da görüldüğü üzere bayramlar konusu tamam, hafta tatili 1 gün ve bu bir gün kişiye göre haftanın her günü olabiliyor. Mesela ben Abonman bileti satış yapan elemanları 3 er kişilik guruplar halinde çalıştırdığım için 3 kişiye Pazartesi, 3 kişiye Salı.........vs izin kullandırıyorum. İznini de Çalıştığı durağın tatiline göre işleme tabi tutuyorum. Bu yüzden H1 hücresinde yazılı olan gün ne ise izin içerisinde de o gün esas alınmalı. Bunu bu şekliyle formülize edebilirseniz bu tür işlerde kullanılabilir. Sanırım ıstarçalı izinlerde standart pazar günlerini kullanıyor.

 

[Merhum İdris SERDAR]

Dosyanız ekte.

Hata vardı. Kaldırdım.


.

 

[kelkitli]

Sayın yurttaş size oldukça zahmet verdik. Ancak şöyle bir sorun oluştu. Eklediğiniz dosyanın şu halinde izin başlangıcı B1 salı hafta tatilini pazartesi yapıncada salı yapınca da bitiş perşembeyi gösteriyor. Çarkamba oluncada sayı yazıyor.

 

[Istarçalı]

Sayın erkankamilonas,
KTF'nin kullanımını da verirseniz sevinirim.
Teşekkürler..

 

[Ali]

Rahatsızlığım nedeni geç cevap yazdım.

Buda farklı bir örnek olsun.


Aklımda takılan bir husus izin günü Pazar bir kişinin 13.01.2008 Pazar günü 6 günlük izin aldığında dönüş tarihi kaç olmalı?

 

[Merhum İdris SERDAR]

Sayın yurttaş,
Bu formülize ettiğiniz dosya haftada 2 gün tatil verse de güzel oldu. Aynı şekliyle ekli dosyada da görüldüğü üzere bayramlar konusu tamam, hafta tatili 1 gün ve bu bir gün kişiye göre haftanın her günü olabiliyor. Mesela ben Abonman bileti satış yapan elemanları 3 er kişilik guruplar halinde çalıştırdığım için 3 kişiye Pazartesi, 3 kişiye Salı.........vs izin kullandırıyorum. İznini de Çalıştığı durağın tatiline göre işleme tabi tutuyorum. Bu yüzden H1 hücresinde yazılı olan gün ne ise izin içerisinde de o gün esas alınmalı. Bunu bu şekliyle formülize edebilirseniz bu tür işlerde kullanılabilir. Sanırım ıstarçalı izinlerde standart pazar günlerini kullanıyor.

Dosyanın ikinci sayfası bana göre daha esnek oldu.

.

 

[kelkitli]

Sayın yurttaş Merhaba,
Tam olarak denemedim ama gördüğüm kadarıyla doğru hesaplıyor. Gözden kaçan bir şey yoksa ki yok görünüyor; ancak bu kadar olur denmeli. Emek en büyük servet en kıymetli cevher. Bu yeni uygulamalar sebebiyle benim işime yaramıyacak. Lâkin sayın ıstarçalının ve bir çok kişinin işine yarıyacaktır eminim. Sağol, Varol.

 

[Istarçalı]

Yurttaş'ın yaptığı örnek sorunumu tamamen çözdü..
Önceki mesajımda da belirtmiştim.
Binlerce veri ile rahatlıkla yıllık izin olayını tutuyorum şu anda..
Hatta kullandığım İzin Formunu bile bu formata uygun hale getirip, üyelerin Başlangıç Tarihini ve Gün Sayılarını kendilerinin yazmalarını, gerisini kendisinin hesapladığı güzel bir çalışmaya çevirdim.
Ellerinize sağlık arkadaşlar..

 

[kelkitli]

Merhaba,
Sayın Istarçalı hazırladığınız dosyayı görmek isterim. Mahsuru yoksa eklerseniz iyi olur diye düşünüyorum.

 

[conari]

formüllerde, Formül değerlendirme yapayım dedim. Excel göçüyor.
İşaret kısmına geldiğinde.
işgünleriseçmeli.zip dosyasında

 

[Istarçalı]

Sayın kelkitli..
İlk sayfanın son mesajınızda eklediğiniz izin programı vardı..
Benim dosya epey şişti..
Formül olunca dosyam iyicene kasıldı..
Şimdi bu işi makro ile yapmam gerekiyor.
Sizin dosyayı baya bir uğraştım ama güncelleyemedim. Bu konuda yardımlarınızı rica ederim. Teşekkürler..