• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

İzin Plan Listesi

K

karahan5

Katılım
24 Ağustos 2011
Mesajlar
41
Excel Vers. ve Dili
EXCEL 2003
DİL TÜRKÇE
İyi çalışmalar,
Kurumumuzda çok fazla personel çalışıyor ve bu arkadaşlarımızın izinlerin çakışmaması için Excelde bir tablo hazırlamak istiyorum.Amacım Örnek ile belirteyim. Ahmet 15/05/2014 - 25/05/2014 tarihileride izine çıkmak istiyor.Bu tarihleri excele yazıyorum. 20/05/2014 - 28/05/2014 tarihlerinde de Mehmet izine çıkmak istıyor.Bu tarihide excele yazdığımda bana. Şu tarihler arasında Ahmet in izni ile çakışıyor uyarısı verecek bir dosya talebim var. Böyle bir excel hazırlayabilirmiyiz acaba ?
 
Merhaba,

İsterseniz siz örmek dosya hazırlayıp ekleyin, yardım etmek isteyen arkadaşlar o örnek üzerinden ilerlesinler olur mu?
Tablonuzu harici upload sitelerinden yükleyebilirsiniz.
 
eki inceleyiniz
işinizi çözermi bir bakın
 

Ekli dosyalar

Excel listesinde de görüldüğü üzere izin tarihlerinde çakışmalar oluyor.
Benim zaten en büyük sorunum tarih araları.Ekteki örnekte de görüldüğü üzere
Volkan AKSOY 10-03-2014 - 20/03/2014 tarihiler arasında izin talebi yapmış.Peşine Mehmet ERHAN 12/03/2014 - 18/03/2014 tarihlerinde izint alebi yapmış.Fark ederseniz Volkan AKSOY`un izinde olacaği dönemde Mehmet ERHAN izin talebinde buluyor.Benim sizlerden talep ettiğim.Bu tür tarihlerde farklı kolonlarda uyarı verdirmesi.Örnek. Mehmet ERHAN`ın girmiş olduğu 12/03/2014 - 18/03/2014 tarihli izin talebinde Volkan AKSOY un izin talebi bulunduğu uyarsını almak.

Teşekkürler
 

Ekli dosyalar

Yaptığım dosyada zaten bu koşula göre çalışıyor
Yani bir izin talebi girdiğinizde yanında farklı bir isim çıkıyor ise yanda ismi çıkan kişi
o tarihte yıllık izinli olacak demektir
 
karahan5' Alıntı:
Excel listesinde de görüldüğü üzere izin tarihlerinde çakışmalar oluyor.
Benim zaten en büyük sorunum tarih araları.Ekteki örnekte de görüldüğü üzere
Volkan AKSOY 10-03-2014 - 20/03/2014 tarihiler arasında izin talebi yapmış.Peşine Mehmet ERHAN 12/03/2014 - 18/03/2014 tarihlerinde izint alebi yapmış.Fark ederseniz Volkan AKSOY`un izinde olacaği dönemde Mehmet ERHAN izin talebinde buluyor.Benim sizlerden talep ettiğim.Bu tür tarihlerde farklı kolonlarda uyarı verdirmesi.Örnek. Mehmet ERHAN`ın girmiş olduğu 12/03/2014 - 18/03/2014 tarihli izin talebinde Volkan AKSOY un izin talebi bulunduğu uyarsını almak.

Teşekkürler
Genişletmek için tıkla ...

E sutununa isimleri cikarmaktadir.

kod

Kod: 
Sub iki_tarih_arası_sorgulama3()

Set sh1 = Sheets("Sheet1")

Columns("E:E").Interior.ColorIndex = xlNone
sh1.Columns("e:e").ClearContents

For j = 2 To sh1.Cells(Rows.Count, "A").End(3).Row

baslangıc = sh1.Cells(j, "b").Value
bitis = sh1.Cells(j, "c").Value

If IsDate(baslangıc) = True Then
Else
MsgBox "başlangıç değer tarih olarak gözükmüyor"
Exit Sub
End If
If IsDate(bitis) = True Then
Else
MsgBox "bitiş değer tarih olarak gözükmüyor"
End If

deg1 = CDate(baslangıc)
deg2 = CDate(bitis)

If deg1 <= deg2 Then
yer1 = baslangıc

yer2 = bitis - baslangıc
Else
yer1 = bitis
yer2 = baslangıc - bitis
End If

If Sheets("Sheet1").Cells(j, "A").Value <> "" Then
For i = 2 To sh1.Cells(Rows.Count, "A").End(3).Row
For r = 0 To Val(yer2)
If CDate(yer1 + r) = CDate(sh1.Cells(i, "b").Value) Or CDate(yer1 + r) = CDate(sh1.Cells(i, "c").Value) Then

If sh1.Cells(i, "e").Value = "" Then

sh1.Cells(i, "e").Value = sh1.Cells(j, "a").Value
Else
sh1.Cells(i, "e").Value = sh1.Cells(i, "e").Value & Chr(10) & sh1.Cells(j, "a").Value
End If
Exit For
End If
Next
Next
End If



Next


For i = 2 To sh1.Cells(Rows.Count, "A").End(3).Row
'MsgBox sh1.Cells(i, "e").Value & Chr(10) & sh1.Cells(i, "a").Value
If sh1.Cells(i, "e").Value = sh1.Cells(i, "a").Value Then
Cells(i, "e").Interior.ColorIndex = 8
Else
Cells(i, "e").Interior.ColorIndex = 6

End If
Next
MsgBox "işlem tamam"

End Sub
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst