Avatar billede Kenneth Kirsgart Juniormester
01. april 2019 - 10:55 Der 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.

Pft
Avatar billede Jan Hansen Ekspert
01. april 2019 - 11:12 #1
Hej noget alla

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

ej testet

Jan
Avatar billede Kenneth Kirsgart Juniormester
01. april 2019 - 11:23 #2
Hej Jan

Mange tak,

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 :)
Avatar billede Jan Hansen Ekspert
01. april 2019 - 11:57 #3
prøv

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
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

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