CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

golferscaddie Novice

Oprettet i dag kl. 15:01 Der er 5 kommentarer og
1 løsning

Optage macro med CTRL+SHIFT funktioner

Jeg har brug for en kode der kan automatisere sletning af tomme rækker.

Arket udfyldes fra toppen og ned. Kolonne A til H. Der udfyldes mellem 1 og 300 rækker inden arket skal printes og slettes. Det er kun kolonne D der med sikkerhed udfyldes hver gang. Række 401 er en masse udregninger der ikke må slettes.
Derfor gør jeg følgende når jeg sletter ikke-udfyldte rækker manuelt.

Markerer celle D400
CTRL+SHIFT+pil op
SHIFT+pil ned
SHIFT+space
Højreklik slet

Problemet er at man ikke kan optage CTRL+SHIFT funktioner i macro optageren.

- Excel-bruger på udvidet niveau
- Bruger ofte macro-optager til automatisering
- Meget begrænset kendskab til VBA kodning

Synes godt om

MaxZpaD Professor

Skrevet i dag kl. 15:20 #1

ActiveSheet.Range("D2:D400").EntireRow.Delete

Synes godt om

1 synes godt om dette

MaxZpaD Professor

Skrevet i dag kl. 15:33 #2

Eller måske er denne her bedre:

With ActiveSheet
.Range("D400", .Range("D400").End(xlUp).Offset(1)).EntireRow.Delete
End With

Den udfører helt det samme som CTRL + SHIFT + pil op efter fulgt af SHIFT + pil ned.

Synes godt om

1 synes godt om dette

jens48 Ekspert

Skrevet i dag kl. 15:33 #3

Prøv med

R = Range("D400").End(xlUp).Row + 1
Range("D" & R & ":D400").EntireRow.Delete

Synes godt om

1 synes godt om dette

golferscaddie Novice

Skrevet i dag kl. 15:45 #4

Mange tak for hurtig hjælp

#3 fungerede perfekt

#2 vil vel slette alle rækkerne 2 til 400 uanset indhold?

#4 nåede jeg ikke at teste ;)

Synes godt om

golferscaddie Novice

Skrevet i dag kl. 16:09 #5

Prøver lige igen med de rigtige numre ;)

Mange tak for hurtig hjælp

#2 fungerede perfekt

#1 vil vel slette alle rækkerne 2 til 400 uanset indhold?

#3 nåede jeg ikke at teste ;)

Synes godt om

MaxZpaD Professor

Skrevet i dag kl. 16:14 #6

Rigtigt vedr. #1, og da jeg indså det, kom jeg på #2 i stedet :-)

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

Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Klokkeslæt vises om decimal Af Organist Vildbjerg i Excel	2	I dag 16:08	I dag 16:32
Markere et område der ikke skal med i sum Af lurup i Excel	6	04/08/202414:44	I går 23:30
Kan det gøres lettere Af densortehingst i Excel	10	02/08/202410:07	03/08/202402:42
visning af heltal som resultat efter beregning Af Brian_Skovgaard i Excel	2	01/08/202421:28	02/08/202409:32
Betinget formatering Af Ninna i Excel	1	23/07/202413:03	23/07/202419:56

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