Notifikationer

Markér alle som læst Log ud

Duzze5 Nybegynder

10. juli 2012 - 21:26 Der 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?

På forhånd tak for hjælpen

Synes godt om

supertekst Ekspert

11. juli 2012 - 09:04 #1

Prøv at sende en filen/model - så skal jeg prøve med VBA.

@-adresse under min profil.

Synes godt om

Duzze5 Nybegynder

11. juli 2012 - 17:14 #2

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

Synes godt om

supertekst Ekspert

11. juli 2012 - 17:27 #3

Ok - jeg afventer..

Synes godt om

supertekst Ekspert

11. juli 2012 - 17:46 #4

Prøv evt.:

Dim sidsteRække As Long, nyesteDato As Date
Private Sub sletRækker()
sidsteRække = ActiveCell.SpecialCells(xlLastCell).Row

For ræk = sidsteRække - 1 To 15 Step -1
Rows(ræk).Select
Selection.Delete
Next ræk
End Sub

Synes godt om

supertekst Ekspert

11. juli 2012 - 17:59 #5

Hvis største dato er "flydende":

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

Synes godt om

Duzze5 Nybegynder

12. juli 2012 - 17:04 #6

Mange tak for svaret og din mail. Jeg kigger lige på den når jeg kommer hjem i aften.

Men jeg siger i hvert fald lige mange tak for hjælpen og smid gerne lige et svar for point:-)

Synes godt om

supertekst Ekspert

12. juli 2012 - 17:22 #7

Ok og selv tak - du får et svar..

Synes godt om

Duzze5 Nybegynder

14. juli 2012 - 22:48 #8

Så fik jeg tid til at teste den. Og den virker perfekt. Endnu en gang tak for hjælpen:-)

Synes godt om

Ny bruger Nybegynder

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.

Følg dette spørgsmål

Opret Preview

Excel kurser

Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel	2	31/03/202610:22	31/03/202611:47
Stempel ur start og stop Af lurup i Excel	2	23/03/202613:24	31/03/202610:27
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel	4	08/03/202611:56	08/03/202613:57
Tips til at mestre Excel hurtigt Af MonikaG32 i Excel	4	04/03/202617:11	06/03/202609:37
Båndet i Excel online har ændret størrelse Af Monique i Excel	3	19/02/202614:23	20/02/202608:26

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS