Tarihe göre Personel silme

Katılım
1 Ekim 2017
Mesajlar
685
Excel Vers. ve Dili
2019 türkçe
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.
 

Ekli dosyalar

Greenblacksea53

Altın Üye
Katılım
5 Ocak 2019
Mesajlar
548
Excel Vers. ve Dili
Ofis 365 Tr
L sütünü tarih değeri, PUANTAJ sayfasındaki M1 deki tarihten büyükse silmiyor. Denedim
 

Greenblacksea53

Altın Üye
Katılım
5 Ocak 2019
Mesajlar
548
Excel Vers. ve Dili
Ofis 365 Tr
Kod:
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
 
Katılım
1 Ekim 2017
Mesajlar
685
Excel Vers. ve Dili
2019 türkçe
Kod:
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.
 
Üst