Avatar billede llm Nybegynder
06. maj 2005 - 20:57 Der er 2 kommentarer

Kan ikke slette rækker?

Jeg sidder med en For each løkke der køre over et navngivet range, jeg skal ha fjernet alle rækker der ikke opfylder min if sætning, løkken virker perfekt når jeg bruger følgende:

If Filnavn <> " " Then
            mycell.EntireRow.ClearContents
end if
Men bruger jeg .Delete Shift:=xlUp springer min løkke ca hver anden række over. Hvordan for jeg så slettet rækkerne?
Avatar billede stefanfuglsang Juniormester
06. maj 2005 - 21:40 #1
Jeg går ud fra det er Excel?
Årsagen er, at når du sletter, bliver dine rækker rykket op, mens din løkke forsætter ned ad (det lød vist lidt underligt... men meningen er god nok)

Der er nok en simpel løsning, men jeg ville nok køre løkken igennem, og ikke slette i løkken, men lave en "Multiple range":
Set MultipleRange = Union(MultipleRange , Delrange)
således at MultipleRange hele tiden udvides med den række der skal slettes.
Uden for løkken kan du så bruge MultipleRange.Delete - tror jeg...
Avatar billede stefanfuglsang Juniormester
06. maj 2005 - 21:43 #2
Eller måske simplere:
bygge en streng efter dette mønster:
delrange="4:4,6:6,10:10"

Range(delrange).Delete Shift:=xlUp
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
Kurser inden for grundlæggende programmering

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