Puantaj Yardım

[askm]

Kolay gelsin.
Puantaj hakkında yardımlarınızı istiyorum.
Örnek dosyada anlatmaya çalıştım. İzin sayfasından izinleri kayıt yaptığımda puantaj sayfasında izinleri otomatik işlemesini istiyorum. Mümkün müdür.
Teşekkürler.

 

[Ömer BARAN]

Merhaba.
Ekteki belgeyi dener misiniz?
İzin süresi içinde kalan haftasonları için izin işlenmesini istemiyorsanız;
X_Ekle kodlarındaki YEŞİL renkli (başında TEK TIRNAK olan) satırın başındaki TEK TIRNAK işaretini SİLİN.

 

[askm]

Kodlar için çok teşekkür ediyorum. İzinlerde mükerrer kayıt eklemesini nasıl engelleyebilirim. Yani aynı tarihte aynı izin türü olmasın. . Eğersay ile tek koşulla yapıyorum ama tarih girince.

 

[Ömer BARAN]

Tekrar merhaba.
İzin_Ekle kodlarındaki aşağıdaki mavi satırların arasına kırmızı satırları ekleyerek dener misiniz?

[COLOR="Blue"]Son = s1.Range("a" & Rows.Count).End(3).Row + 1[/COLOR]
[COLOR="Red"]For satır = 8 To s1.[A65536].End(3).Row
    If s1.Cells(1, 2) = Cells(satır, 1) And Cells(4, 2) = Cells(satır, 4) And _
        Cells(2, 2) <= Cells(satır, 3) And Cells(3, 2) >= Cells(satır, 2) Then
        MsgBox "AYNI TARİHİ KAPSAYAN GÜNLER İÇİN AYNI İZİN TÜRÜNDEN İZİN KAYDEDİLEMEZ"
        Exit Sub
        Exit For
    End If
Next[/COLOR]
[COLOR="blue"]s1.Cells(Son, 1).Value = s1.Cells(1, 2).Value[/COLOR]

 

[askm]

Çok teşekkür ederim.

 

[Ömer BARAN]

Çok teşekkür ederim.

Estağfurullah, iyi günler dilerim.