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
Annonceindlæg tema
Forsvar & beredskab
Cybersikkerhed, realtidsdata og robuste it-systemer er blevet fundamentet for moderne forsvar.
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
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 :-(
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
04. november 2012 - 17:12
#4
Droppet
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig