• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

macro foutmelding 9

Status
Niet open voor verdere reacties.
J

jacking

Gebruiker
Lid geworden
8 feb 2008
Berichten
172
hallo,

ik wil een macro maken die 400 cellen copieerd en automatisch neerzet in een nieuw bestand.

van de 400 cellen zijn er slechts 250 gevuld, toch wil ik er 400 gekopieerd hebben want het kan zijn dat er de volgende keer als ik de macro uitvoer 300 cellen gevuld zijn.


als ik de macro uitvoer krijg ik telkens foumelding 9 script valt buiten het bereik

kan iemand mij helpen?

gr jack
 
Hoe ziet de code er nu uit?

Plaats die aub tussen code tags (het # icoon als je een nieuw bericht maakt).
 
dit is de foutmelding

Code: 
Sub handbal()
'
' handbal Macro
' De macro is opgenomen op 26-1-2009 door jack.
'
' Sneltoets: CTRL+i
'
 Cells.Select
    Selection.Sort Key1:=Range("E2"), Order1:=xlAscending, Key2:=Range("G2") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal
    Range("J14").Select
    Application.WindowState = xlMinimized
    Windows("SELARTIKEL.XLS").Activate
    Range("E2:I250").Select
    Selection.Copy
    Windows("orgineel.XLS").Activate
    ActiveWindow.SmallScroll ToRight:=5
    Range("G2").Select
    ActiveSheet.Paste
    Windows("SELARTIKEL.XLS").Activate
    ActiveWindow.ScrollRow = 220
    ActiveWindow.ScrollRow = 219
    ActiveWindow.ScrollRow = 217
    ActiveWindow.ScrollRow = 215
    ActiveWindow.ScrollRow = 214
    ActiveWindow.ScrollRow = 211
    ActiveWindow.ScrollRow = 209
    ActiveWindow.ScrollRow = 204
    ActiveWindow.ScrollRow = 201
    ActiveWindow.ScrollRow = 195
    ActiveWindow.ScrollRow = 190
    ActiveWindow.ScrollRow = 185
    ActiveWindow.ScrollRow = 181
    ActiveWindow.ScrollRow = 177
    ActiveWindow.ScrollRow = 171
    ActiveWindow.ScrollRow = 167
    ActiveWindow.ScrollRow = 161
    ActiveWindow.ScrollRow = 157
    ActiveWindow.ScrollRow = 151
    ActiveWindow.ScrollRow = 147
    ActiveWindow.ScrollRow = 140
    ActiveWindow.ScrollRow = 136
    ActiveWindow.ScrollRow = 130
    ActiveWindow.ScrollRow = 126
    ActiveWindow.ScrollRow = 121
    ActiveWindow.ScrollRow = 116
    ActiveWindow.ScrollRow = 110
    ActiveWindow.ScrollRow = 106
    ActiveWindow.ScrollRow = 100
    ActiveWindow.ScrollRow = 97
    ActiveWindow.ScrollRow = 93
    ActiveWindow.ScrollRow = 88
    ActiveWindow.ScrollRow = 84
    ActiveWindow.ScrollRow = 80
    ActiveWindow.ScrollRow = 76
    ActiveWindow.ScrollRow = 73
    ActiveWindow.ScrollRow = 70
    ActiveWindow.ScrollRow = 67
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 63
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 59
    ActiveWindow.ScrollRow = 57
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 53
    ActiveWindow.ScrollRow = 52
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 45
    ActiveWindow.ScrollRow = 44
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 39
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 33
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 20
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("A2:D250").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("orgineel.XLS").Activate
    ActiveWindow.LargeScroll ToRight:=-1
    Range("A2").Select
    ActiveSheet.Paste
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Application.WindowState = xlMinimized
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWorkbook.Save
End Sub
 
Laatst bewerkt door een moderator:
Haal dit alvast uit de code:

Code: 
ActiveWindow.ScrollRow = 220
ActiveWindow.ScrollRow = 219
ActiveWindow.ScrollRow = 217
ActiveWindow.ScrollRow = 215
ActiveWindow.ScrollRow = 214
ActiveWindow.ScrollRow = 211
ActiveWindow.ScrollRow = 209
ActiveWindow.ScrollRow = 204
ActiveWindow.ScrollRow = 201
ActiveWindow.ScrollRow = 195
ActiveWindow.ScrollRow = 190
ActiveWindow.ScrollRow = 185
ActiveWindow.ScrollRow = 181
ActiveWindow.ScrollRow = 177
ActiveWindow.ScrollRow = 171
ActiveWindow.ScrollRow = 167
ActiveWindow.ScrollRow = 161
ActiveWindow.ScrollRow = 157
ActiveWindow.ScrollRow = 151
ActiveWindow.ScrollRow = 147
ActiveWindow.ScrollRow = 140
ActiveWindow.ScrollRow = 136
ActiveWindow.ScrollRow = 130
ActiveWindow.ScrollRow = 126
ActiveWindow.ScrollRow = 121
ActiveWindow.ScrollRow = 116
ActiveWindow.ScrollRow = 110
ActiveWindow.ScrollRow = 106
ActiveWindow.ScrollRow = 100
ActiveWindow.ScrollRow = 97
ActiveWindow.ScrollRow = 93
ActiveWindow.ScrollRow = 88
ActiveWindow.ScrollRow = 84
ActiveWindow.ScrollRow = 80
ActiveWindow.ScrollRow = 76
ActiveWindow.ScrollRow = 73
ActiveWindow.ScrollRow = 70
ActiveWindow.ScrollRow = 67
ActiveWindow.ScrollRow = 65
ActiveWindow.ScrollRow = 63
ActiveWindow.ScrollRow = 61
ActiveWindow.ScrollRow = 60
ActiveWindow.ScrollRow = 59
ActiveWindow.ScrollRow = 57
ActiveWindow.ScrollRow = 55
ActiveWindow.ScrollRow = 54
ActiveWindow.ScrollRow = 53
ActiveWindow.ScrollRow = 52
ActiveWindow.ScrollRow = 51
ActiveWindow.ScrollRow = 49
ActiveWindow.ScrollRow = 48
ActiveWindow.ScrollRow = 47
ActiveWindow.ScrollRow = 45
ActiveWindow.ScrollRow = 44
ActiveWindow.ScrollRow = 42
ActiveWindow.ScrollRow = 41
ActiveWindow.ScrollRow = 39
ActiveWindow.ScrollRow = 37
ActiveWindow.ScrollRow = 35
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 32
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1

Het probleem is er niet mee opgelost maar de code is iets minder onnozel.

Maak dan een quote van deze post en dan kan je zien hoe de code tags moeten staan, want # is niet juist. Je moet op dat icoon klikken en niet dat symbool typen.

EDIT: Huijb heeft het al aangepast.
 
Wigi geeft je de tip om de code tussen de codetags te plaatsen. Dus, tekst selecteren en vervolgens op het # icoon drukken/klikken.
 
hoe

als ik de macro maak dan zet ik deze op opnemen, en dan doe ik alles met de muis.

misschien domme vraag maar waar moet ik nou die # zetten?

gr jack
 
Zonder voorbeeldbestand wordt het heel lastig deze opgenomen macro op fouten te onderzoeken.
Error 9 betekent dat je een item aanroept/benaderd dat niet bestaat.
Dit kan bijv. een bestand, werkblad, window etc. zijn.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan