10. juli 2012 - 21:26Der er
7 kommentarer og 1 løsning
Slet række undtagen række med nyeste dato
Jeg har nu prøvet i et par dage og finde fremme til en makro som kan slette alle rækker undtagen rækken med den nyeste dato. Desværre uden held. Jeg håber der er nogen herinde som kan hjælpe.
Jeg har et ark hvor jeg har et kontonr. i kolonne B fra række 15 og ned. Kontonr. vil altid være det samme.
I kolonne C har jeg datoerne også fra række 15.
Jeg ønsker en makro, som sletter alle rækker undtagen rækken med den nyeste dato. Den nyeste dato vil altid være i den sidste række med data. Men den sidste række kan være fra nr. 15 og hvilken som helst efter.
Er der nogen som har en ide til hvordan det kan lade sig gøre?
I lang tid har samarbejdsbranchen fokuseret på at forbedre enhedsfunktioner – bedre kameraer, klarere lyd og smartere software. Men den virkelige forvandling handler ikke om funktioner.
Jeg sender lige filen når jeg kommer hjem fra arbejde senere.
Jeg har fået denne makro til at virke. Men den virker kun fordi kontonummeret altid er det samme og den nyeste dato altid står nederst i kolonnen. Du kan måske få den til at virke selvom den nyeste dato ikke står sidst.
Private Sub CommandButton1_Click() Range("B15").Select Do Until ActiveCell.Value = "" If ActiveCell.Value = ActiveCell.Offset(1, 0).Value Then ActiveCell.Offset(0, 0).EntireRow.Delete Else ActiveCell.Offset(1, 0).Select End If Loop End Sub
Dim sidsteRække As Long, nyesteDato As Date Private Sub sletRækker() sidsteRække = ActiveCell.SpecialCells(xlLastCell).Row nyesteDato = Range("C" & sidsteRække)
For ræk = sidsteRække - 1 To 15 Step -1 If Range("C" & ræk) > nyesteDato Then nyesteDato = Range("C" & ræk) Rows(ræk + 1).Select Selection.Delete Else Rows(ræk).Select Selection.Delete End If Next ræk End Sub
Så fik jeg tid til at teste den. Og den virker perfekt. Endnu en gang tak for hjælpen:-)
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.
