selectie te groot???

john1713 · #1 31 januari 2012, 18:59

Hallo allemaal,

Ik ben iemand aan het helpen met een excel probleem, zijn versie is 2003, ik heb versie 2010.
Ik heb een macro gemaakt, met een selectie van 105 rijen en 156 kolommen.
Nu zeg de ander dat die macro bij hem niet werkt, foutmelding 1004, selectie te groot....
Ik heb de macro al in 2 delen opgesplitst, dus 105 rijen met 80 kolommen... maar de foutmelding blijft bij hem...
Wie weet wat de maximale selectie is in excel 2003?
Of wat gaat er anders fout? het is alleen maar een macro om te sorteren, meer niet...

Citaat:

Range("B198:FJ198").Select
Selection.AutoFill Destination:=Range("B198:FJ298"), Type:=xlFillDefault

waarom gaat dit fout?

John

ps deze gaat toevallig over 100 regel, maar een ander over 105....(kleinigheidje...)

popipipo · #2 31 januari 2012, 19:15

Citaat:

Type:=xlFillDefault

Ik denk dat het aan dit argument ligt.

john1713 · #3 31 januari 2012, 19:23

Willem,

Wat zou dit dan moeten zijn in excel 2003?
heb je enig idee?

John

popipipo · #4 31 januari 2012, 19:28

Ik heb zelf 2007 en die accepteert dit type niet.
Post eens een klein xls vbtje met je macro en hoe je de sortering wilt hebben.
Misschien dat ik je dan kan helpen.

HSV · #5 31 januari 2012, 19:46

Ik heb mijn vorig schrijven weer verwijderd.
Ik dacht dat er kolom JF stond i.p.v. FJ.
Dus dacht ik dat het buiten het bereik van Excel 2003 viel.

Overigens werkt het doorvoeren perfect bij mij.
Kan wel iets anders dan select en selection.

Code:

Range("B198:FJ198").AutoFill Destination:=Range("B198:FJ298"), Type:=xlFillDefault

Of:

Code:

 
Range("B198:FJ198").AutoFill Range("B198:FJ298"), 0

john1713 · #6 31 januari 2012, 19:53

Harry en Willem,

bedankt voor de bijdrage,
ik ga nu even de macro aanpassen zoals harry voorstelde... (ik kan het helaas niet testen, ivm excel 2010 en 2003...)

Ik laat deze topic nog even open staan, als ik meer weet, laat ik het hier ook weten..

John

HSV · #7 31 januari 2012, 19:58

John,

Dir stukje code is voor het doorvoeren van de cellen B198:FJ198 tot aan de cellen B298:FJ298.

Omdat je schrijft over 'sorteren'.

john1713 · #8 31 januari 2012, 20:49

Harry,

je heb helemaal gelijk!!! verderop in de macro ga ik sorteren (met het zelfde bereik) dus had het verkeerde stukje neergezet, maar de foutmelding is hetzelfde...

ps goed gezien

John

john1713 · #9 1 februari 2012, 18:13

Met de code van harry (bij berichtje 5) werkt de macro wel, maar geeft toch weer de foutmelding 1004 (selectie te groot).
Weet iemand waar het probleem zit?

John

Citaat:

Sub naamverwijderen()
'
' naamverwijderen Macro
'

If ActiveCell.Column = 2 Then
Else: MsgBox ("selecteer kolom B (waar de naam staat!)")
Exit Sub

End If

If MsgBox("wilt u " & ActiveCell & " verwijderen", vbYesNo, "Let op!") = vbYes Then

ActiveCell.Select

Selection.Copy

Range("z1").Select
ActiveSheet.Paste

Sheets("Invulblad").Select

Range("B5:B105").Select
Range("B5:B105").Copy
Range("HA5:HA105").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

Range("ha5").Select

Cells.Find(What:=Sheets("Leden").Range("z1").Value , After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=True).Activate

ActiveCell.Offset(0, -206).Range("A1:Ff1").Select

Selection.ClearContents

Range("B198:FJ198").AutoFill Range("B198:FJ298"), 0

Range("B348:FH348").AutoFill Range("B348:Fh448"), 0

Range("B498:FH498").AutoFill Range("B498:Fh598"), 0

Range("C5").Select

Sheets("Leden").Select
Range("b2").Select
Cells.Find(What:=Sheets("Leden").Range("z1").Value , After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=True).Activate

ActiveCell.Offset(0, -1).Range("A1:b1").Select

Selection.ClearContents

Sheets("Invulblad").Select

Range("A5:FH105").Select
Range("FH105").Activate
ActiveWorkbook.Worksheets("Invulblad").Sort.SortFi elds.Clear
ActiveWorkbook.Worksheets("Invulblad").Sort.SortFi elds.Add Key:=Range( _
"B5:B105"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Invulblad").Sort
.SetRange Range("A4:FH105")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Sheets("Leden").Select
ActiveWindow.SmallScroll Down:=84
Range("A2:B105").Select
Range("B105").Activate
ActiveWorkbook.Worksheets("Leden").Sort.SortFields .Clear
ActiveWorkbook.Worksheets("Leden").Sort.SortFields .Add Key:=Range("A2:A105") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Leden").Sort
.SetRange Range("A1:B105")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Range("b2").Select

End If

End Sub

Dit is de hele macro waar het over gaat.

John

HSV · #10 1 februari 2012, 18:48

Doe je bestandje er eens bij John, en schrijf eens op wat er moet gebeuren.
De code kan wel wat beter worden herschreven.

Discussietools
Printversie tonen Deze pagina e-mailen
Weergave
Lineaire weergave Switchen naar hybride weergave Switchen naar vertakte weergave

Soortgelijke discussies
Discussie	Auteur	Forum	Reacties	Laatste bericht
Bestand te groot	Kaavya	Afgehandelde vragen	1	15 januari 2012 15:28
userform te groot	Tinusr5	Afgehandelde vragen	6	16 december 2010 17:54
Groot bestand verkleinen	Patrick_v_B	Afgehandelde vragen	1	1 maart 2010 21:57
groot bestand	hedy	Afgehandelde vragen	3	21 april 2008 09:37
procedure te groot!?	Stijn Klijn	Afgehandelde vragen	2	26 februari 2008 16:29