Avatar billede x-lars Novice
20. juni 2004 - 13:01 Der er 4 kommentarer og
1 løsning

Fejlmelding i VBA-kode - udvælgelse og print

Hej Xperter!

Jeg har et meget stort regneark, hvor data indlæses fra et SAP-system. Da mange kolonner kun indeholder få rækker, har jeg sat en stribe små knapmakroer, der filtererer den pågældende kolonne og de to efterfølgende for tomme celler og derefter printer den filtrerede liste. Efter print nulstilles autofilteret.

Det fungerer stort set fint, men for de 3 "inderste" sæt, får jeg fejlmeldingen "Run-time Error 1004; Application defined or obect-defined error".

Nogenlunde lige så informativt, som når kæresten siger "Hvis du ikke selv ved, hvorfor jeg er sur på dig, har jeg da sandeligt ikke i sinde at fortælle dig det!" §;-D

Men seriøst, er der nogen der har et bud på, hvorfor denne fejl optræder på de inderste kolonner, men ikke længere ude i rækkerne? (alle makroerne er klonet fra hinanden, kun Field i autofilteret og rangen, der skal printes, ændres)?

Koden er følgende: (på en af dem, der fejler):
    Selection.AutoFilter Field:=6, criterial:="<>"
        Range("g14:h4450").Select
        Selection.PrintOut Copies:=1, Collate:=True
    Selection.AutoFilter Field:=6
Avatar billede bak Forsker
20. juni 2004 - 18:56 #1
*ggg*  Den med kæresten kender jeg godt !!!

Hvordan sætter du den selection ?
Avatar billede bak Forsker
20. juni 2004 - 21:52 #2
Det jeg mener er
Selection.AutoFilter Field:=6, criterial:="<>"

hvor stammer Selection fra ? hvordan er execl nået frem dertil.
Range("A1").Offset(-1, -1).Select
Den sætning vil give samme fejl(1004) da det den skal selecte jo ligger udenfor regnearket
Avatar billede x-lars Novice
21. juni 2004 - 08:55 #3
Den er såmænd bare håndtastet ud fra min optælling af kolonnerne.
Avatar billede x-lars Novice
21. juni 2004 - 09:39 #4
Skulle lige læse, hvad det var, du skrev ;-)

Der sættes i det indsatte eksempel en Range("H18").Select lige før makroen.
Avatar billede x-lars Novice
23. juni 2004 - 16:41 #5
Dette virker:

Hvis man lægger autofilteret ind i selectionen, bliver det printede resultat rigtigt - og makroen kan køre i alle ønskede kolonner!

    Range("F16:H4450").Select
        Selection.AutoFilter Field:=4, Criteria1:="<>"
            Selection.PrintOut Copies:=1, Collate:=True
        Selection.AutoFilter Field:=4
    Range("F10").Select

Ikke, om jeg forstår forskellen, men det virker!
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