Søg
Avatar billede Sidsel Seniormester
27. juli 2018 - 11:18 Der er 6 kommentarer og
1 løsning

vba kan nogen se hvad der er galt?

hej.
Jeg skal kopiere fra et ark til et andet, men den siger der er fejl i formlen. Det er ikke arknavnene der er noget galt med, jeg har tjekket.

Application.Workbooks(3).Activate
Range("d30:d36,d42,d43,d45:d57,d59,d61,d62,d64:d67,d69,d70,d72,d73,d75:d83,d85:d87,d89:d93,d95:d104,d106:d112,d114:d118,d120,d121,d123:d125,d127:d130,d132:d141,d143,d144,d146,d148:158,d161:d174,d176:d179,d181:d185,d187:d200,d202:d215,d217:d236,d238:d244,d246:d249,d251:d259").Copy
Application.Workbooks("Schneider master 2018 v3.xlsx").Activate
Range("d30:d36,d42,d43,d45:d57,d59,d61,d62,d64:d67,d69,d70,d72,d73,d75:d83,d85:d87,d89:d93,d95:d104,d106:d112,d114:d118,d120,d121,d123:d125,d127:d130,d132:d141,d143,d144,d146,d148:158,d161:d174,d176:d179,d181:d185,d187:d200,d202:d215,d217:d236,d238:d244,d246:d249,d251:d259").PasteSpecial xlPasteValues
Jeg er klar over det er rigtig mange celler, men det burde excel da kunne ikk? det er ikke muligt bare at sige d30:259, da cellerne ind imellem ikke kan kopieres, pga arkbeskyttelse.

mvh Sidsel
Avatar billede finb Ekspert
27. juli 2018 - 11:26 #1
Vildt blindskud, men til inspiration
if cell.protected=false then copy
Avatar billede Sidsel Seniormester
27. juli 2018 - 11:37 #2
hvis jeg så skulle kopiere, ville du sige:

range ("d30:d259").select
If cell.protected=false then copy
end if
Application.Workbooks("Schneider master 2018 v3.xlsx").Activate
range ("d30:d259").select
If cell.protected=false then PasteSpecial xlPasteValues
end if

korrekt?
Avatar billede Sidsel Seniormester
27. juli 2018 - 11:47 #3
Det kan desværre ikke virke.
Avatar billede kim1a Ekspert
27. juli 2018 - 11:58 #4
Fungerer cellereferencen med anførselstegn på den måde?

Prøv at hive den ud og bruge .select i imidiate vinduet for at se om den kan markere det.

Ellers kunne et loop måske gøre det med #1s forslag:

from i =30 to 259
if cells("d"&i).protected=false then copy
Paste hvor det nu skal hen
next
Avatar billede Sidsel Seniormester
27. juli 2018 - 12:28 #5
jeg fandt en løsning, jeg gennemgik arket og låste de mellemliggende celler op.
Avatar billede store-morten Ekspert
27. juli 2018 - 13:20 #6
Tror det kunne gøres sådan:

Application.Workbooks(3).Activate
Range(xxx).Copy
Application.Workbooks("Schneider master 2018 v3.xlsx").Activate
ActiveSheet.Unprotect
Range(xxx").PasteSpecial xlPasteValues
ActiveSheet.Protect
Avatar billede Sidsel Seniormester
27. juli 2018 - 13:50 #7
Ja det tror jeg du har ret i. Det tror jeg jeg prøver på mandag det er mere korrekt. Hvis det virker, får du løsning. ok?
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
Talkolonne Af hkv i Excel 3 20/11/202512:28 21/11/202509:47
Hjælp til tricky VBA-kode Af flras i Excel 4 19/11/202516:33 20/11/202512:40
Ny outlook Af Butterfly i Excel 8 18/11/202514:00 18/11/202520:33
Fødselsdag og anciennitet liste Af Alni i Excel 7 16/11/202513:46 17/11/202518:29
Beregn alder (i år, måneder og dage) på personer født før år 1900. Af Balar Seir i Excel 5 11/11/202509:38 13/11/202522:09
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
IT-JOB
Seneste spørgsmål Seneste aktivitet
I dag 19:36 Bruger lang til inden start Af KurtG i PowerPoint
I dag 16:01 Driver opdatering Af barth i Andet software
I dag 14:32 Jeg kan ikke finde min vinkelmåler Af nu_igen i Apps til iOS
I går 22:04 Langsom Internet Af webnord i Andet software
I går 17:58 Libra Office har mange overflødige vaner. Af arnel i Andet software
White papers
Flere white papers »