Avatar billede rodding Juniormester
04. november 2012 - 12:36 Der er 3 kommentarer og
1 løsning

script problem

jeg har en makro, som jeg har genbrugt og tilrettet fra en anden excel fil.

Desværre ender den i fejl: "Runtime error '1004'. application-defined og object-defined error"

Det er i sidste sætning - Selection.Sort.....  at det går galt.

Nogen der kan se, hvad jeg skal lave om?

Sub Dan_stilling()
'
' Dan_stilling Makro
' Makro indspillet 06-05-2001 af Preferred Customer
'

'
    Sheets("Puljer").Select
    Range("A1:L19").Select
    Range("L19").Activate
    Selection.Copy
    Sheets("Udskriv stilling").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("D3").Select
    Application.CutCopyMode = False
    Range("H8").Select
    Selection.Sort Key1:=Range("a4"), Order1:=xlDescending, _
    Key2:=Range("h4"), Order2:=xlDescending, _
    Key3:=Range("k2"), Order3:=xlDescending, _
    Key4:=Range("l2"), Order4:=xlDescending, _
    Header:=xlGuess, OrderCustom:=2, MatchCase:=False, Orientation:=xlTopToBottom

End Sub
Avatar billede Mads Larsen Nybegynder
04. november 2012 - 12:50 #1
Uden lige at kunne teste koden, vil mit gæt være at det er fordi du bruger range("h8").select lige inden sort hvor du bruger en masse celler, som ikke er markeret
Avatar billede rodding Juniormester
04. november 2012 - 15:45 #2
det har du da ret i.
Jeg har rettet til L19, og rettet key 3 og 4 til k4 og l4, - men det giver samme resultat. Vælger jeg debug ved fejlen er der en pil ud ´for sidste linje Header.... går ud fra at det er der fejlen så er, men mine evner i den retning :-(
Avatar billede rodding Juniormester
04. november 2012 - 15:46 #3
Koden ser nu således ud:

Sub Dan_stilling()
'
' Dan_stilling Makro
' Makro indspillet 06-05-2001 af Preferred Customer
'

'
    Sheets("Puljer").Select
    Range("A1:L19").Select
    Range("L19").Activate
    Selection.Copy
    Sheets("Udskriv stilling").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("D3").Select
    Application.CutCopyMode = False
    Range("L19").Select
    Selection.Sort Key1:=Range("a4"), Order1:=xlDescending, _
    Key2:=Range("h4"), Order2:=xlDescending, _
    Key3:=Range("k4"), Order3:=xlDescending, _
    Key4:=Range("l4"), Order4:=xlDescending, _
    Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub
Avatar billede rodding Juniormester
04. november 2012 - 17:12 #4
Droppet
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