Verschillende werkbladen automatisch in 1 lijst zetten

[Danzie]

Op het werk maken wij gebruiken van een excelbestandje om onze inkomenden en uitgaande producten bij te houden maar nu zouden wij graag een maandelijks overzicht in 1 werkblad zodat dit gemakkelijker is om iets op te zoeken en daarna van die maandelijkse overzichten een jaaroverzicht

Heb hierbij het 1 bestandje bijgevoegd

Magazijn

Bestandje is te groot om te uploaden met het forumsysteem


Had deze hier al ergens gevonden maar hij loopt vast na een tiental werkbladen

Sub MakeTotalOverView()
Application.ScreenUpdating = False
Sheets("Totaal Overzicht").[A2:M65536].ClearContents
For x = 2 To Sheets.Count
Sheets(x).Select
LastRowDest = Sheets("Totaal Overzicht").[A65536].End(xlUp).Row + 1
LastRowCopy = Sheets(x).[A65536].End(xlUp).Row
Sheets(x).Range([A2], Cells(LastRowCopy, 13)).Copy
Sheets("Totaal Overzicht").Cells(LastRowDest, 1).PasteSpecial
Next x
Application.Goto Sheets("Totaal Overzicht").[A1]
With Application
.CutCopyMode = False
.ScreenUpdating = True
End With
End Sub

Mocht je nog iets vinden dat je kunt verbeteren Be my guest want deze gaat al tien jaar mee

 

[oeldere]

kijk eens onder post #10 hier http://www.helpmij.nl/forum/showthread.php/594141-ranges-uit-verschillende-werkbladen-onderelkaar-kopieren-naar-1-nieuw-werkblad

en kijk dan eens naar wat Wiki schrijft over het bestandje.

 

[Danzie]

Bestandje is te groot om te uploaden via het forum
Sorry
Is er nog een andere mogelijkheid om het online te zetten
De macro die ik hierboven heb staan werkte maar stopte na een aantal werkbladen en gaf dan hier een foutmelding

Sheets(x).Select

 

[cow18]

For x = 2 To Sheets.Count
telt alle bladen ook grafiekbladen, vermoedelijk heb je er daar 1 of meerdere van
dat wordt

Sub MakeTotalOverView()
Application.ScreenUpdating = False
Sheets("Totaal Overzicht").[A2:M65536].ClearContents
For x = 2 To Worksheets.Count
Worksheets(x).Select
LastRowDest = Sheets("Totaal Overzicht").[A65536].End(xlUp).Row + 1
LastRowCopy = Worksheets(x).[A65536].End(xlUp).Row
Worksheets(x).Range([A2], Cells(LastRowCopy, 13)).Copy
Sheets("Totaal Overzicht").Cells(LastRowDest, 1).PasteSpecial
Next x
Application.Goto Sheets("Totaal Overzicht").[A1]
With Application
.CutCopyMode = False
.ScreenUpdating = True
End With
End Sub

 

[Danzie]

Geen grafieken
Het houd ineens halverwege de maand op
Heb toen die dag verwijderd en nog eens geprobeerd en toen hield hij gewoon een dag vroeger op

 

[Warme bakkertje]

Ik krijg 250 lijnen op m'n totaaloverzicht met volgende macro

Sub MakeTotalOverView()
Application.ScreenUpdating = False
Sheets("Totaal Overzicht").[A2:M65536].ClearContents
    For x = 2 To Sheets.Count - 2
        Sheets(x).Select
        LastRowDest = Sheets("Totaal Overzicht").[A65536].End(xlUp).Row + 1
        LastRowCopy = Sheets(x).[A65536].End(xlUp).Row
        Sheets(x).Range([A5], Cells(LastRowCopy, 13)).Copy
        Sheets("Totaal Overzicht").Cells(LastRowDest, 1).PasteSpecial
        Application.CutCopyMode = False
    Next x
With Application
    .Goto Sheets("Totaal Overzicht").[A1]
    .ScreenUpdating = True
End With
End Sub

 

[Danzie]

Halverwege de maand stopt hij weer en krijg ik deze foutmelding

 

[Warme bakkertje]

Zip of rar je originele bestand zodat we eventueel iets kunnen zien, want bij mij gaat hij van begin tot eind. Ik heb wel al je tabbladen gekopieërd naar een nieuw bestand omdat jouw voorbeeldbestand vergrendelt was.Zit er misschien een beveiligd blad tussen ?
Doorloop je code eens met F8 of plaats een msgbox die je de bladnaam weergeeft zodat je weet over welk blad het gaat.

 

[Danzie]

Ga het eens proberen in een ander excell bestandje
misschien werkt het dan wel of misschien een volledig nieuw maken want ik heb dit bestandje overgenomen van mijn voorganger
Maar als je in merksem woont kom effe langs ik werk hier vlakbij

 

[Danzie]

Ik heb het hier in geprobeerd en hij stopt op 22 juni

Magazijn juni 2010

 

[Warme bakkertje]

Ik vermoed toch dat er iets met je bestand scheelt, want wederom alle tabbladen naar nieuwe map gekopieërd en geen problemen meer.

 

[Danzie]

Kan natuurlijk ook aan mijn mac liggen
Mijn excell werkt niet zoals op een pc
Spijtig genoeg

Zal het werkblad eens opnieuw maken zodat ik wat aanpassing kan doen aan de layout