Meerdere rijen verwijderen

[cortex]

Beste Experts,

Ben zeer benieuwd of jullie een oplossing kunnen bieden voor onderstaande.

Zie bijlage:
Ik wil van bijgesloten logtijden lijst in kolom <H> enkel de eerste én de laatste logtijd ( in het groen) per uitvoerder per dag laten zien. Alle tussenliggende logtijden( in het rood) moeten verwijderd worden.
Handmatig alles verwijderen is geen optie omdat deze logtijdenlijst in werkelijkheid uit meer dan 20.000 rijen bestaat.

Ben benieuwd wie dit hersenkraker kan oplossen. Eeuwige roem ligt op de loer

Vriendelijke groet,
Cortex

 

[Niels28]

Zal niet de beste oplossing zijn, maar de kans op eeuwige roem is noooit weg.

Sub verwijderen()
Application.ScreenUpdating = False
For i = Range("A:A").SpecialCells(2).Rows.Count To 4 Step -1
n1 = Day(Cells(i, 1).Offset(0, 3).Value) & Month(Cells(i, 1).Offset(0, 3).Value) & Year(Cells(i, 1).Offset(0, 3).Value)
n2 = Day(Cells(i, 1).Offset(-1, 3).Value) & Month(Cells(i, 1).Offset(-1, 3).Value) & Year(Cells(i, 1).Offset(-1, 3).Value)
n3 = Day(Cells(i, 1).Offset(-2, 3).Value) & Month(Cells(i, 1).Offset(-2, 3).Value) & Year(Cells(i, 1).Offset(-2, 3).Value)
If Cells(i, 1).Offset(-1).Value = Cells(i, 1).Value And n1 = n2 Then
If Cells(i, 1).Offset(-2).Value = Cells(i, 1).Value And n1 = n3 Then
Cells(i, 1).Offset(-1).EntireRow.Delete
End If
End If
Next
Application.ScreenUpdating = True
End Sub

Niels

 

[cortex]

Hoi Niels,

Ik ben niet zo'n Excel kenner. Klaarblijkelijk is dit een zgn Macro. Hoe gebruik ik zo'n Macro in mijn lijst?
Kun je eventueel deze Macro toepassen in mijn bijgesloten bijlage?

Alvast hartelijk dank,
Cortex

 

[Niels28]

zie bijlage

ALT f11 om de macro te bekijken

Bekijk bijlage logtijden.xls

Niels

 

[cortex]

Dag Niels,

Dat ziet er interessant uit. Hoe kan ik je macro nu in mijn orginele Excel lijst gebruiken?

Alvast dank,
Cortex

 

[Niels28]

welke versie excel?

Niels

 

[cortex]

Excel versie 2007.

 

[Niels28]

Tabblad ontwikkelaars => evt. bij opties voor Excel , tab populair, tabblad ontwikkelaars op lint weergeven aanvinken.
Klik op invoegen
Bij Active-x besturingselementen, kies opdrachtknop , de linksboven uit deze selectie
Teken nu de knop op je blad
Rmuisknop programmacode weergeven
Hier plak je de macro tussen de sub & end sub (mijn sub & end sub niet mee kopiëren)
Op de ribbon klik je op ontwerpmodus.
Nu kun je op de gemaakte knop drukken.

Als je de knop wilt veranderen of verplaatsen moet je de ontwerp modus aanzetten.

Ik hoop dat ik het een beetje duidelijk uitgelegd heb anders lees ik het wel.


Niels

 

[cortex]

Hoi Niels,

Ik denk dat we er bijna zijn, maar je macro werkt niet in mijn orginele bestand. Kun je eventueel de macro herschrijven voor het nieuwe geuploade orginele bestand?

Dank dank dank..

 

[Niels28]

Je tijden staan in een andere kolom, heb dit aangepast.


Bekijk bijlage logtijden_werkelijk.xls

Niels

 

[cortex]

Hoi Niels,

Yessss, het werkt. Ik ben je zeer dankbaar.
Bij deze een virtuele omhelzing.
Dank voor je noeste arbeid, held!!!