Søg
Avatar billede hinkesten Praktikant
12. januar 2007 - 13:15 Der er 14 kommentarer og
1 løsning

At slette rækker efter system

Hej

Jeg står og mangler et script/en makro der kan slette række 2 og 3 ud af et sæt på 3 rækker.

Eks:

1 Nødvendig
2 Unødvendig
3 Unødvendig

og så frem deles:

1 Nødvendig
2 Unødvendig
3 Unødvendig
4 Nødvendig
5 Unødvendig
6 Unødvendig
7 Nødvendig
...

Et sæt består altså af 3 rækker og det er kun den øverste linie jeg skal bruge og derfor ønsker jeg de nedenstående rækker slettet.

Håber der er nogle der kan hjælpe mig. :-)

MVH Dennis
Avatar billede kabbak Professor
12. januar 2007 - 13:49 #1
Public Sub Slet2_af_3()
Dim I
'Marker den sidste celle i den kolonne der skal slettes
' så sletter den de 2 nederste og lader den 3. nederste stå
Application.ScreenUpdating = False
For I = Selection.Rows To 1 Step -3
  Rows(I & ":" & I - 1).Delete Shift:=xlUp
  Next
End Sub


Husk at teste på en kopi først, makroer kan ikke fortrydes
Avatar billede hinkesten Praktikant
12. januar 2007 - 14:22 #2
kabbak, der sker ikke rigtigt noget når jeg kører makroen? det står bare helt stille.
Avatar billede hinkesten Praktikant
12. januar 2007 - 14:23 #3
Den siger "type mismatch" når jeg afspiller makroen
Avatar billede kabbak Professor
12. januar 2007 - 14:23 #4
Her du markeret den sidste celle i kolonnen, inden du kører makroen
Avatar billede kabbak Professor
12. januar 2007 - 14:25 #5
den manglede lige en linie, den aktiverer skærmen igen

Public Sub Slet2_af_3()
Dim I
'Marker den sidste celle i den kolonne der skal slettes
' så sletter den de 2 nederste og lader den 3. nederste stå
Application.ScreenUpdating = False
For I = Selection.Rows To 1 Step -3
  Rows(I & ":" & I - 1).Delete Shift:=xlUp
  Application.ScreenUpdating = True
  Next
End Sub
Avatar billede hinkesten Praktikant
12. januar 2007 - 14:25 #6
ja, der sker ingenting
Avatar billede kabbak Professor
12. januar 2007 - 14:28 #7
Virker fint her.
Hvilken linie bliver gul, der hvor du får fejl ?
Avatar billede hinkesten Praktikant
12. januar 2007 - 14:30 #8
Hvis jeg afspiller den trinvist, så markerer den øverste linie med gul, altså "Public Sub Slet2_af_3()"
Avatar billede kabbak Professor
12. januar 2007 - 14:32 #9
det er for at vise hvor du er, prøv at køre den og så vælg fejlfinding, hvis den kommer med fejlen
Avatar billede hinkesten Praktikant
12. januar 2007 - 14:37 #10
jeg kan ikke vælge fejlfinding - den kommer bare med "type mismatch" og jeg har kun mulighed for at trykke OK
Avatar billede kabbak Professor
12. januar 2007 - 14:42 #11
Hvad er din sidste række, så sæt den ind i koden i sted for Selection.Rows

Public Sub Slet2_af_3()
Dim I
'Marker den sidste celle i den kolonne der skal slettes
' så sletter den de 2 nederste og lader den 3. nederste stå
Application.ScreenUpdating = False
For I = Selection.Rows To 1 Step -3
  Rows(I & ":" & I - 1).Delete Shift:=xlUp
  Application.ScreenUpdating = True
  Next
End Sub
Avatar billede hinkesten Praktikant
12. januar 2007 - 14:46 #12
hvor er du syg :-) :-)

vil du venligst lave et svar

TUSIND tak
Avatar billede kabbak Professor
12. januar 2007 - 14:48 #13
"hvor er du syg :-) :-)", hvad mener du, var det en fejl 40

Et svar ;-))
Avatar billede hinkesten Praktikant
12. januar 2007 - 14:54 #14
syg var meget positivt ment ;-)
Avatar billede kabbak Professor
12. januar 2007 - 15:58 #15
tak for point ;-))
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
problem med mailbesked Af Pestilensen i Excel 2 24/08/202611:16 I går 07:43
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel 16 17/08/202615:14 I går 01:20
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
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 21:03 Kan man få Word viewer gratis Af Strawberry i Word
26/0813:28 Findes der en brugsanvisning til : "ONKYO Stereo Casette - Tape Deck - R1" Af Ikke-ekspert i Musik & videoafspillere
24/0820:07 Libra Office 26.2.5.2 - Er sort - Kan an ændre til lysere baggrund ? (Windows 11) Af Ikke-ekspert i Office & Kontorpakker
24/0811:24 Hvor kan jeg finde hjælp til at flytte fra min gamle Samsung Flip4 til min nye Samsung Galaxy S24 Af vbr i Apps til Android
24/0811:16 problem med mailbesked Af Pestilensen i Excel
White papers
Flere white papers »