Arkadaşlar merhaba;
Bir izin programı çalışması yaptım. İzin girişlerini USERFORM aracılığı ile kayıt ettiğim “GİRİÃLER” sayfam mevcut.
Sayfamın;
D sütunu : Personelin Sicil numaraları
F sütunu : İzin Başlangıç Tarihi
G sütunu : İzin Bitiş Tarihi
Yapmak istediğim;
Aynı sicil numaraları personelin, İzin Başlangıç tarihi ve Bitiş tarihi kontrol edilerek, aynı tarihi kapsayan veya aynı tarihler arası herhangi bir izin giriş yapıldığında “Aynı Tarihler arası başka bir izin girilmiş uyarısı vererek kayıt girişini engellemek istiyorum.
Aşağıda yazmış olduğum kod normalde çalışıyor ama bazen sorun çıkıyor. Kayıt girişini engelliyor bu konuda yardımcı olacak arkadaşlara şimdiden teşekkür ederim.
(Forumda aradım uygun bir başlık bulamadı.)
i = WorksheetFunction.CountA(Sheets("GİRİÃLER").Range("d:d"))
ii = WorksheetFunction.CountA(Sheets("GİRİÃLER").Range("f:f"))
iii = WorksheetFunction.CountA(Sheets("GİRİÃLER").Range("g:g"))
For i = 3 To i
If Cells(i, 1) = TextBox12.Value Or Cells(ii, 3) >= TextBox14.Value Or Cells(ii, 4) <= TextBox3.Value Then
MsgBox "Bu Personel aynı tarihler arası izinlidir", vbCritical, "HATA BİLDİRİMİ hyeleser"
Unload Me
ActiveWorkbook.CustomViews("anasayfa").Show
Exit Sub
End If
Next
Bir izin programı çalışması yaptım. İzin girişlerini USERFORM aracılığı ile kayıt ettiğim “GİRİÃLER” sayfam mevcut.
Sayfamın;
D sütunu : Personelin Sicil numaraları
F sütunu : İzin Başlangıç Tarihi
G sütunu : İzin Bitiş Tarihi
Yapmak istediğim;
Aynı sicil numaraları personelin, İzin Başlangıç tarihi ve Bitiş tarihi kontrol edilerek, aynı tarihi kapsayan veya aynı tarihler arası herhangi bir izin giriş yapıldığında “Aynı Tarihler arası başka bir izin girilmiş uyarısı vererek kayıt girişini engellemek istiyorum.
Aşağıda yazmış olduğum kod normalde çalışıyor ama bazen sorun çıkıyor. Kayıt girişini engelliyor bu konuda yardımcı olacak arkadaşlara şimdiden teşekkür ederim.
(Forumda aradım uygun bir başlık bulamadı.)
i = WorksheetFunction.CountA(Sheets("GİRİÃLER").Range("d:d"))
ii = WorksheetFunction.CountA(Sheets("GİRİÃLER").Range("f:f"))
iii = WorksheetFunction.CountA(Sheets("GİRİÃLER").Range("g:g"))
For i = 3 To i
If Cells(i, 1) = TextBox12.Value Or Cells(ii, 3) >= TextBox14.Value Or Cells(ii, 4) <= TextBox3.Value Then
MsgBox "Bu Personel aynı tarihler arası izinlidir", vbCritical, "HATA BİLDİRİMİ hyeleser"
Unload Me
ActiveWorkbook.CustomViews("anasayfa").Show
Exit Sub
End If
Next