• 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.

Verschillende selecties samenvoegen in 1 centraal document/Blad

Status
Niet open voor verdere reacties.
P

PaulMak

Gebruiker
Lid geworden
29 jan 2015
Berichten
90
Hallo specialisten, hier ben ik weer.
Ik heb al diverse antwoorden bekeken voor een vraag die best wel vaak voorkomt blijkbaar. Echter deze antwoorden zijn meestal zo ingewikkeld door de programmeercodes dat ik niet in staat ben om de oplossingen toe te passen in mijn situatie.
Kan/wil iemand mij helpen om verschillende selecties onder elkaar te plaatsen. Het grootste struikelblok is om een selectie te plakken in de eerst vrije regel in het centrale document.

Nu ziet mijn macro er zo uit ( s.v.p. niet verdrietig worden om mijn knulligheid :( )

Sub Bestanden_samenvoegen()
'
' Bestanden_samenvoegen Macro
'

'
Workbooks.Open Filename:= _
"G:\Management IDNL\Koppelingen voor menu\Testversies\Aap.xlsx"
Workbooks.Open Filename:= _
"G:\Management IDNL\Koppelingen voor menu\Testversies\Mies.xlsx"
Workbooks.Open Filename:= _
"G:\Management IDNL\Koppelingen voor menu\Testversies\Noot.xlsx"

Range("A2").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Clear
Range("A2").Select


Windows("Aap.xlsx").Activate
Sheets("Blad1").Select
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Windows("Leesplank Totaal.xlsx").Activate
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select

Windows("Aap.xlsx").Activate
Sheets("Blad2").Select
Range("A2").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Leesplank Totaal.xlsx").Activate
ActiveCell.SpecialCells(xlLastCell).Select
Range("A6").Select
ActiveSheet.Paste
Range("A1").Select

Windows("Noot.xlsx").Activate
Range("A2").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Leesplank Totaal.xlsx").Activate
Range("A1").Select
ActiveCell.SpecialCells(xlLastCell).Select
Range("A10").Select
ActiveSheet.Paste
Range("A1").Select

Windows("Mies.xlsx").Activate
Range("A2").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Leesplank Totaal.xlsx").Activate
Range("A1").Select
ActiveCell.SpecialCells(xlLastCell).Select
Range("A14").Select
ActiveSheet.Paste

Range("A1").Select
Application.CutCopyMode = False
End Sub
 
Om een vraag duidelijker over te laten komen is het verstandig om een voorbeeldbestand bij te voegen.
Wanneer je een code of formule wil toevoegen, plaats deze dan tussen de code-tags (
Code: 
 en
) oftewel selecteer je code en klik op het # icoontje. Bij voorbaat dank, zeker ook namens de helpers.
 
Laatst bewerkt:
Als je -blijkbaar- meer met VBA wil, bekijk dan ook eerst eens een basisboek VBA in Excel.
 
selecties samenvoegen

Heren, dank jullie wel voor jullie reacties. Ik begrijp heel goed dat dit voor jullie tenenkrommend is maar er is geen geld beschikbaar voor een studie Excel. Om toch beetje bij beetje meer inzicht te krijgen in diverse macro situaties, probeer ik zoveel mogelijk situaties op te zoeken in Helpmij en vanuit jullie hulp dit toe te passen in mijn eigen situatie.

Ik hoop daarom dat jullie toch nog de moeite willen nemen om mij te helpen met mijn probleem van nu ... diverse selecties (die elke keer groeien)samenvoegen in 1 bestandje.

Bekijk bijlage Leesplank Totaal.xlsxBekijk bijlage Aap.xlsxBekijk bijlage Noot.xlsxBekijk bijlage Mies.xlsx

Mijn macro zit in het leesplank document.

Gr.
Paul Mak
 
Paul,

Lees het stukje in mijn vorige post over de code tussen de tags te zetten, nog eens goed.
Pas daarna je bericht met de code aan. :thumb:
 
Selecties samenvoegen

oftewel selecteer je code en klik op het # icoontje.

Ik wil het graag doen zoals het hoort en ik wil zeker niemand irriteren maar ... waar heb ik een code toegevoegd waar ik tages voor en achter moet plaatsen? Zijn mijn excel bestandjes niet goed overgekomen?

Zitten de codes in de excel voorbeelden of in mijn tekst?

Mijn excuses
Paul
 
Meerdere selecties/bestanden samenvoegen in 1 centraal bestand

Mag het op deze manier??


Kan/wil iemand mij helpen om verschillende selecties onder elkaar te plaatsen. Het grootste struikelblok is om een selectie te plakken in de eerst vrije regel in het centrale document.

Nu ziet mijn macro er zo uit ( s.v.p. niet verdrietig worden om mijn knulligheid )

Code: 
Sub Bestanden_samenvoegen()
 '
 ' Bestanden_samenvoegen Macro
 '

 '
 Workbooks.Open Filename:= _
 "G:\Management IDNL\Koppelingen voor menu\Testversies\Aap.xlsx"
 Workbooks.Open Filename:= _
 "G:\Management IDNL\Koppelingen voor menu\Testversies\Mies.xlsx"
 Workbooks.Open Filename:= _
 "G:\Management IDNL\Koppelingen voor menu\Testversies\Noot.xlsx"

 Range("A2").Select
 Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
 Selection.Clear
 Range("A2").Select


 Windows("Aap.xlsx").Activate
 Sheets("Blad1").Select
 Range("A1").Select
 Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
 Selection.Copy
 Windows("Leesplank Totaal.xlsx").Activate
 Range("A1").Select
 ActiveSheet.Paste
 Range("A1").Select

 Windows("Aap.xlsx").Activate
 Sheets("Blad2").Select
 Range("A2").Select
 Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
 Application.CutCopyMode = False
 Selection.Copy
 Windows("Leesplank Totaal.xlsx").Activate
 ActiveCell.SpecialCells(xlLastCell).Select
 Range("A6").Select
 ActiveSheet.Paste
 Range("A1").Select

 Windows("Noot.xlsx").Activate
 Range("A2").Select
 Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
 Application.CutCopyMode = False
 Selection.Copy
 Windows("Leesplank Totaal.xlsx").Activate
 Range("A1").Select
 ActiveCell.SpecialCells(xlLastCell).Select
 Range("A10").Select
 ActiveSheet.Paste
 Range("A1").Select

 Windows("Mies.xlsx").Activate
 Range("A2").Select
 Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
 Application.CutCopyMode = False
 Selection.Copy
 Windows("Leesplank Totaal.xlsx").Activate
 Range("A1").Select
 ActiveCell.SpecialCells(xlLastCell).Select
 Range("A14").Select
 ActiveSheet.Paste

 Range("A1").Select
 Application.CutCopyMode = False
 End Sub

Groeten
Paul
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan