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
Gemme største værdi Af Lemming@privat.dk i Excel 2 07/08/202622:13 08/08/202609:03
Forskel mellem klokkeslet start aften slut næste morgen Af krasmussen i Excel 13 24/07/202611:08 03/08/202618:42
Opdatering af celler i excel ark Af lurup i Excel 2 09/06/202619:40 10/06/202614:34
data fra et excel til google kalender Af lurup i Excel 3 02/06/202613:23 03/06/202615:06
Inverse formler Af tdktman i Excel 5 26/05/202616:16 28/05/202606:50
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 dag 10:21 Ny printer, men hvilken Af mort1 i Printere
I går 19:41 USB på Linux Af Uvanga i Linux
12/0818:26 Hvilken type mus Af mort1 i PC
11/0813:21 ms Forms Af leahcim i Andet software
10/0821:30 Blokeret på Snapchat? Af LineP i Chat & Messaging
White papers
Flere white papers »