Avatar billede golferscaddie Juniormester
06. august 2024 - 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
Avatar billede MaxZpaD Guru
06. august 2024 - 15:20 #1
ActiveSheet.Range("D2:D400").EntireRow.Delete
Avatar billede MaxZpaD Guru
06. august 2024 - 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.
Avatar billede jens48 Ekspert
06. august 2024 - 15:33 #3
Prøv med

R = Range("D400").End(xlUp).Row + 1
Range("D" & R & ":D400").EntireRow.Delete
Avatar billede golferscaddie Juniormester
06. august 2024 - 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 ;)
Avatar billede golferscaddie Juniormester
06. august 2024 - 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 ;)
Avatar billede MaxZpaD Guru
06. august 2024 - 16:14 #6
Rigtigt vedr. #1, og da jeg indså det, kom jeg på #2 i stedet :-)
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
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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