Søg
Avatar billede redbulldk Juniormester
18. november 2008 - 17:52 Der er 7 kommentarer og
2 løsninger

Slette række i Excel 2007

Hejsa

Jeg vil gerne automatisk slette bestemte rækker der f.eks. når indholdet i feltet er OK. Feltet/indholdet er kun i kolonne A.

Ved sletning skal forstås, at rækken skal slettes og rækken neden under rykke op.

Dette skal f.eks. ske når jeg aktiver en makro/trykknap.

Hvordan gør jeg det?
Avatar billede excelent Ekspert
18. november 2008 - 18:05 #1
sub test()
for t=1 to cells(65500,1).end(xlup).row
if cells(t,1)="OK" then rows(t).entirerow.delete
next
end sub
Avatar billede excelent Ekspert
18. november 2008 - 18:07 #2
obs. hele rækken slettes.. ikke kun i kolonne A
Avatar billede kabbak Professor
18. november 2008 - 18:09 #3
>excelent, man sletter altid opad

ub SletOK()
    Dim AntalRk As Long, I As Long
    AntalRk = Range("A65536").End(xlUp).Row
    For I = AntalRk To 1 Step -1
        If UCase(Cells(I, 1)) = "OK" Then
            Cells(I, 1).EntireRow.Delete
        End If
    Next
End Sub
Avatar billede kabbak Professor
18. november 2008 - 18:12 #4
Man sletter opad, fordi hvis man gør det nedad og der er flere rækker efter hinanden der bør slettes, slettes kun hveranden, da de er rykket en plads op når den forrige bliver slettet.
Avatar billede excelent Ekspert
18. november 2008 - 18:15 #5
yep glemte jeg lige i farten :-)
Avatar billede excelent Ekspert
18. november 2008 - 18:35 #6
Sub test()
For t = Cells(65500, 1).End(xlUp).Row To 1 Step -1
If Cells(t, 1) = "OK" Then Rows(t).EntireRow.Delete
Next
End Sub
Avatar billede redbulldk Juniormester
19. november 2008 - 17:10 #7
Takker begge to.

Virker perfekt :)

Hvad siger i til, at sende et svar, sådan at jeg kan dele point imellem jer?
Avatar billede excelent Ekspert
19. november 2008 - 17:29 #8
fint med mig :-)
Avatar billede kabbak Professor
19. november 2008 - 17:34 #9
;-))
Avatar billede 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.

Loading billede Opret Preview
Kategori
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
Samle data fra flere kolonner i 1 Af FinnLauridsen i Excel 5 17/04/202616:11 27/04/202617:58
Træk data fra ny lokation ved måneds skift Af Hezo i Excel 6 13/04/202614:32 15/04/202611:04
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 3 23/03/202613:24 07/05/202614:01
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
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 13:45 AJAX kode -javascript Af Asky i Programmeringsværktøjer
I går 11:50 Vælg indstilling - blå skærm med med flere muligheder for fejlretning Af Uvanga i Windows
14/0523:24 Google sheets beregning udfra dato Af rickiegrayholm i Office & Kontorpakker
14/0518:09 Outlook Classic, lukker ikke Af mort1 i E-mail programmer
13/0520:48 Bred buet skærm vs. 2 skærme Af Nanarsi i Skærme
White papers
Flere white papers »