Tekrarlana tarihlerin ilki ve sonuncusu hariç silme

[caglarerkut]

Merhabalar, excelde personel parmak okuma işe giriş çıkış kaydında bir tarihe ait birden fazla giriş çıkış saati var, örneğin çalışan işçi sabah işe giriş yapmış aralarda molalara çıkarak kartını tekrar okutup giriş çıkış yapmış ve en son mesaisi dolup çıkış yapmış, ben bunlardan o tarihteki ilk giriş ve son çıkış hariç aralardaki tarihleri silmek istiyorum nasıl yapabilirim?? Belli bir sisteme göre de ilerlemiyor. Bir gün 5 kere giriş çıkış yapmış bir gün 8 kere tutmuyor, filtreleme de yapılamıyor kural da veremiyorum en kolay çözümü nedir?

 

[kulomer46]

Merhaba

İstediğiniz mümkün. Fakat örnek dosya eklerseniz üzerinde çalışıp yardımcı olalım. Örnek dosya yada Örnek dosyayı gösteren örnek resim.

Selamlar..

 

[caglarerkut]

şu şekilde mesela. teşekkür ederim ilginize

 

[kulomer46]

Merhaba

Resim eklediğiniz iyi oldu. Yapılması gerekeni, hangi sütunda işlem yapılacağı hakkında bilgi verdi.
Benim aklıma otomatik makro yazarak çözüm üretmek geldi. Belki daha kolay ve pratik yöntemler vardır.

Şu an makronuzu yazıyorum. Bir aksilik olmazsa birazdan eklerim buraya. Anadolu'dan İstanbul'a selamlar..

 

[caglarerkut]

Daha önce hiç makro kullanmadım oluşturmadım da umarım halledebilirim kendi başıma. Emeğinize sağlık. İstanbul’dan Anadoluya sonsuz özlemle sevgilerr

 

[kulomer46]

Daha önce hiç makro kullanmadım oluşturmadım da umarım halledebilirim kendi başıma. Emeğinize sağlık. İstanbul’dan Anadoluya sonsuz özlemle sevgilerr

 

[kulomer46]

Aşağıdaki kodu ilgili yere ekleyiniz.
Kodu ekledikten sonra A sütunundaki herhangi bir hücreyi çift tıklarsanız kod çalışacaktır.

Selamlar...

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
'12.05.2019  01:15

If Target.Column = 1 Then

    c = MsgBox("Aynı günde İlk giriş saati ve son çıkış saati arasında başka kayıtlar varsa silinecektir." & Chr(10) & Chr(10) & "Onaylıyor musunuz?", vbOKCancel)
    If c = vbCancel Then End  

    sildim = 0  
uç1:

    sona = Cells(Rows.Count, "A").End(3).Row  

    For j = 1 To sona  
        If Len(Trim(Cells(j, 1))) > 0 And Cells(j, 1) = Cells(j + 1, 1) And Cells(j, 1) = Cells(j + 2, 1) Then      
            Rows(j + 1 & ":" & j + 1).Delete Shift:=xlUp
            sildim = sildim + 1
            GoTo uç1              
        End If      
    Next  

        MsgBox sildim & " adet kayıt silindi."
     
End If     

End Sub

 

[caglarerkut]

çok teşekkür ederim, uğraşmışsınız emeğinize sağlık yalnız ben bunu nasıl ekliyebilirim hangi sekmeden anlatabilirmisiniz? biraz acemiyim excel konusunda

 

[kulomer46]

Merhaba

Önce üzerinde çalışacağınız excel dosyasını Faklı Kaydet diyerek Makro İçerebilen Excel Çalışma Kitabı olarak istediğiniz konuma kaydedin



Sonra,

Eğer Excel menülerinizde Geliştirici sekmesi Aktif değilse Geliştirici sekmesini aktif etmeniz gerekmektedir. Aşağıdaki resimde görüldüğü gibi Burada Geliştirici Sekmesi Aktiftir.



Geliştirici sekmesi Aktif etmek için Excelin yukarıdaki menülerinden en soldaki Dosya menüsünden



Ok işareti ile işaretli Seçenekler sekmesini tıklayınız. Sonra..

 

[kulomer46]

Evet sonra ekrana gelen Excel Seçenekleri menüsünden önce soldaki Şeridi Özelleştir kısmını tıkayıp sonrada aşağıdaki resimde görüldüğü üzere Ana Sekmeler kısmından Geliştirici Sekmesinin başındaki kareyi tıklayarak seçilmiş olmasını sağlayınız. Ve Tamam düğmesine tıklayarak bu menülerden çıkınız. Sonra..



Excel menülerine eklenmiş olan GELİŞTİRİCİ sekmesini tıklayınız. Ve ordanda resimdeki gibi Kod Görüntüle kısmını tıklayınız.




Gelen ekrandan sol taraftan ThisWorkbook (Bu Çalışma Kitabı) yazan yeri tıklayınız. ve Soldaki General yazan yerin altındaki beyaz boşluğa yukarda #7 nuralı mesajdaki kodu yapıştırıp kaydediniz.



Yapıştırma sonrası görüntü aşağıdaki gibi olacaktır.



Artık bu dosyada herhangi bir sayfada A sütunundaki herhangi bir hücreyi çift tıklarsanız kod çalışacaktır.

Selamlar.. Başarılar..