Tarihe göre Personel silme

[sedat2161]

Hayırlı günler arkadaşlar. Ekli dosyamda BİLGİ sayfasında L:U hücrelerinde girilen bilgiler buton yardımı ile silinmektedir.
Benim sorunum işe şu.
--- BİLGİ sayfası T: U hücresine girilen personel izni, PUANTAJ sayfası AM8 hücresinde bulunan aydan küçükse silinsin büyükse silinmesin.
Yardımlarınızı bekliyorum.

 

[Greenblacksea53]

Doğru mu anladım sizi bakabilir misiniz..

 

[sedat2161]

Doğru mu anladım sizi bakabilir misiniz..

Hocam ilginiz için teşekkür ederim. Eklediğiniz dosya 10. satıra kadar tüm bilgileri siliyor.

 

[Greenblacksea53]

L sütünü tarih değeri, PUANTAJ sayfasındaki M1 deki tarihten büyükse silmiyor. Denedim

 

[sedat2161]

L sütünü tarih değeri, PUANTAJ sayfasındaki M1 deki tarihten büyükse silmiyor. Denedim

Hocam 9. Sıradaki şahsın bilgilerini aynısın 1. sıraya yazıyorum. siliniyor bakabilirmisiniz.

 

[Greenblacksea53]

Dim Alan As Range
  
'    For Each Alan In Range("U3:U" & Cells(Rows.Count, 1).End(3).Row)
    
    For i = 3 To 12
    b = Sheets("PUANTAJ").Range("am7").Value
    a = Sheets("BİLGİ").Range("t" & i).Value
    If b < a Then
    Sheets("BİLGİ").Range("l" & i, "u" & i).ClearContents
    End If
    Next i
'        If Alan.Value <> "" Then
'            Range("L" & Alan.Row).Resize(, 10).ClearContents
'        End If
'    Next
'
    MsgBox "Veriler silinmiştir.", vbInformation

Senin satırları silmedim. Denermisin

 

[sedat2161]

Dim Alan As Range
 
'    For Each Alan In Range("U3:U" & Cells(Rows.Count, 1).End(3).Row)
   
    For i = 3 To 12
    b = Sheets("PUANTAJ").Range("am7").Value
    a = Sheets("BİLGİ").Range("t" & i).Value
    If b < a Then
    Sheets("BİLGİ").Range("l" & i, "u" & i).ClearContents
    End If
    Next i
'        If Alan.Value <> "" Then
'            Range("L" & Alan.Row).Resize(, 10).ClearContents
'        End If
'    Next
'
    MsgBox "Veriler silinmiştir.", vbInformation

Senin satırları silmedim. Denermisin

Hocam ben herhalde derimi anlatamadım. Kusuruma bakmayın. Şöyle izah etmeye çalışayım
---- BİLGİ sayfası
T hücresi izne ayrılma tarihi
U hücresi izin bitiş tarihi
---- Puantaj AM8 maaş hesaplama tarihi.
---- Örnek ile açıklayayım
AM 8 hücresinde 15.Haziran-14.Temmuz dönemi maaşı var.
Silinecek personel (izin bitiş tarihi 15 haziran önce ise) silinsin.
gelecek aya geldiğimizde 15.Temmuz-14.Ağustos olacak bu sefer 15 temmuzdan önce ise silinecek.
Yardımlarınızı bekliyorum.