01. april 2019 - 10:55Der er
2 kommentarer og 1 løsning
Tøm skabelon
Hej
Jeg har et stort excel ark, der er udformet som skabelon til at kunne indtaste en masse vikar data. (Arbejdsrelateret)
Dette skal jeg oprette en makro til at tømme.
Hvordan gør jeg dette nemmest? Jeg ville have markeret kolonnerne ned ad, og kun have datafelterne åbne, men jeg får ikke lov til at slette da de andre felter er låste.
Sub slet() Dim rArea as Range,rCell as Range set rArea=range("A1:Q200") 'Q200 er sidste celle for each rCell in rArea if rCell.Locked=False Then rCell="" end if next end sub
Det fungerer, men er noget tung. Ved du om det er muligt at navngive området og så lave makroen til at markerer navngivet område og rydde indhold? Ellers bruger jeg den løsning du har sendt :)
Sub slet() Dim rArea as Range,rCell as Range dim app as Application set app=Application app.ScreenUpdating=false set rArea=range("A1:Q200") 'Q200 er sidste celle for each rCell in rArea if rCell.Locked=False Then rCell="" end if next app.ScreenUpdating=true end sub
virker nogle gange hastigheds forberedende
Jan
Synes godt om
1 synes godt om dette
Ny brugerNybegynder
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.