Avatar billede ulykken-smed Juniormester
22. juni 2008 - 08:10 Der er 11 kommentarer og
1 løsning

run-time error'1004':

Hej.
Jeg fik hjælp til mit spørgsmål lige neden under dette spørgsmålhttp://www.eksperten.dk/spm/835693 
Men hvis jeg prøver at flytte denne makro over i et anet regne ark så kommer den med denne fejl meddelse
run-time error'1004':application-defined or orbject-defined error
hvad gør jeg forkert
Avatar billede kabbak Professor
22. juni 2008 - 12:38 #1
Makroen skal være i et modul, du kan bruge den på C kolonnen i alle ark.

Du mener måske em anden Excel mappe, ark er fanerne inden i en mappe.
Avatar billede ulykken-smed Juniormester
22. juni 2008 - 13:49 #2
Ja jeg mener i en anden mappe. Eller jeg kan kopierer den over i en anden mappe
Avatar billede kabbak Professor
22. juni 2008 - 17:07 #3
Åben mappen med makroen, tryk ALT+F11, find modulet med koden, kopier den.
luk excel igen

åben den mappe den skal ind i ,tryk ALT+F11, i menuen vælges, Insert module, sæt koden ind der.

gem på disketten i menulinjen, luk editoren i det øverste højre X, så skulle det virke.

vær opmærksom på at koden kræver at der er data i C1 og nedefter
Avatar billede ulykken-smed Juniormester
22. juni 2008 - 19:13 #4
Nu skriver den run-time error'1004': methode'rang'of object' global' failed.
Men hvis du ligger et svar så får du pointene, jeg må erkende at jeg ikke er ret god til det med makro.

Mvh
Ulykken-smed
Avatar billede kabbak Professor
22. juni 2008 - 19:42 #5
det er ikke sådan at det ark, du prøver i er beskyttet
Avatar billede ulykken-smed Juniormester
22. juni 2008 - 20:06 #6
Nej arket er ikke skrive beskyttet, der er mange data i arket 2,7 MB men det skulle vel ikke have noget at sige. Men nu har jeg opgivet jeg har gjort det manuelt.
Men jeg ville gerne give dig pointene for at have hjulpet.

Mvh
Ulykken-smed
Avatar billede excelent Ekspert
22. juni 2008 - 20:44 #7
Har fået afprøvet koden med mange rækker startende med PL
og det er her problemet er
jeg skruer lige en ny kode sammen.
Avatar billede excelent Ekspert
22. juni 2008 - 20:55 #8
Sub EnOmmer()
Dim t, rk
rk = Cells(65500, "C").End(xlUp).Row

For t = 1 To rk
If Left(Cells(t, "C"), 2) <> "PL" Then Cells(t, 250) = 1
Next

Range("IP1:IP" & rk).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Range("IP1:IP" & rk) = ""
ActiveCell.Select
End Sub
Avatar billede ulykken-smed Juniormester
22. juni 2008 - 21:03 #9
jeg har lige prøvet den, det er bare kanon. Jeg viste ikke at det betød noget at der var så mange data, fordi så havde jeg skrevet det.

Mvh
Ulykken-smed
Avatar billede ulykken-smed Juniormester
22. juni 2008 - 21:04 #10
Så hvis i ligger et svar begge 2 så er der point til jer begge for hjælpen
Avatar billede excelent Ekspert
22. juni 2008 - 21:28 #11
det er ok har fået :-)
Avatar billede kabbak Professor
22. juni 2008 - 23:37 #12
et svar ;-))
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 for alle niveauer og behov – find det kursus, der passer til dig

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