Vil gerne kun have vist følgende 29-09-2014 29-09-14 17:54 29-09-14 18:09 30-09-2014 30-09-14 16:33 30-09-14 17:50 01-10-2014 01-10-14 17:36 01-10-14 18:42
Prøv med denne makro. Betingelsen er at datoerne står kronologisk:
Sub Skjul() LastRowColA = Range("A65536").End(xlUp).Row For x = LastRowColA To 2 Step -1 If y = Cells(x, 1) Then Rows(x).EntireRow.Hidden = True Else Rows(x).EntireRow.Hidden = False y = Cells(x, 1) End If Next End Sub
Hvis du foretrækker en formelløsning kan du (med dine data i A1:C12) bruge følgende:
I A15: =INDEKS($A$2:$A$12; SAMMENLIGN(0;TÆL.HVIS($A$14:A14; $A$2:$A$12); 0))
I B15: =SLÅ.OP(2;1/($A$2:$A$12=A15);$B$2:$B$12) I C15: =SLÅ.OP(2;1/($A$2:$A$12=A15);$C$2:$C$12)
Formlen i A15 er en matrixformel, øvrige er almindelig (ikke matrix-)formler.
Kopier nedad i nødvendigt omfang. Når antallet af datoer er udtømt vil formlerne returnere #I/T. Dette kan selvfølgelig undertrykkes på forskellig måde.
Det kunne for eksempel gøres med denne makro. Jeg har ikke medtaget sletning af gamle data i makroen:
Sub Skjul() LastRowColA = Range("A65536").End(xlUp).Row For x = LastRowColA To 2 Step -1 If y = Cells(x, 1) Then Rows(x).EntireRow.Hidden = True Else Rows(x).EntireRow.Hidden = False Rows(x).EntireRow.Select Selection.Copy Sheets("Sheet2").Rows(2).EntireRow.Insert y = Cells(x, 1) End If Next End Sub
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.