samenvoegen gegevens van een kolom

[radar]

Excellenties,

Ben niet zo thuis in Macro-land...
Ik heb een heel stel tabbladen gevuld met info; van al deze tabbladen zou ik graag, in de volgorde zoals de tabbladen gerankschikt zijn, de waarden uit kolom A onder elkaar gezet krijgen in een vooraf gedefinieerd tabblad. De lengte van de kolom kan per tabblad afwijkend zijn. De kopieer en plak-aktie zou eigenlijk ook plakken speciaal waardes moeten bevatten; sommige tabbladen bevatten formules in kolom A.
In bijgevoegd bestand een sterk vereenvoudigde weergave van wat de bedoeling is. de gegevens in kolom A in de drie tabbladen in blad "COMBI" onder elkaar in kolom A.

Radar

 

[radar]

Excellenties

heb inmiddels zelf al wat geknutseld na wat googelen...

Sub Onderelkaarzetten()
'
' Onderelkaarzetten Macro
'
' Sneltoets: Ctrl+c
'
    Sheets("1113410").Select
    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("COMBI").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("1113411").Select
    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("COMBI").Select
    Range("A65536").End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("1113409").Select
    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("COMBI").Select

Echter ik heb nu hard de namen van de tabbladen ingevoerd.
Kan iemand mij stukje macro aanreiken, dat deze actie voor elk werkblad behalve eerste blad Combi wordt uitgevoerd? In werkelijkheid gaat dit om zo'n 60 tabbladen, waarbij er wellicht ook nog wel eens een tabbald bijkomt, wordt tussengevoegd.?
Alvast bedankt ?

 

[zapatr]

Onderdaan,
zie bijlage.

 

[radar]

Macro doet wat ik wilde, dank je wel Zapatr !

Nu dient een en ander te gebeuren op tabblad 2, dat wordt het verzamelblad. de info van alle volgende bladen (kolom A) dient hierin bijeen te komen; de info uit tabblad 1 dient niet meegenomen te worden in procedure en ongemoeid gelaten te worden.
Heb dus nog wat geknutseld met jouw macro; lijkt nu helemaal te doen wat ik beschreef.
In rood gewijzigde waardes aangegeven.
Is dit de juiste aanpak ?

Sub macro1()
Dim x As Integer
Sheets([COLOR="#FF0000"]2[/COLOR]).Columns(1).ClearContents
'Deze macro is geschreven door Zapatr
For x = [COLOR="#FF0000"]3[/COLOR] To Sheets.Count
With Sheets(x)
.Range("A1:A" & .Range("A" & .Rows.Count).End(xlUp).Row).Copy
With Sheets([COLOR="#FF0000"]2[/COLOR])
.Range("A" & .Range("A" & .Rows.Count).End(xlUp).Row).PasteSpecial Paste:=xlPasteValues
.Range("A1").Select
End With
End With
Next x
End Sub

 

[zapatr]

Ja hoor, prima zo, sheet1 blijft dan ongemoeid.
Over het algemeen verdient het aanbeveling om in plaats van sheetnummers de namen van de sheets te gebruiken omdat sommigen de sheets nog al eens willen verplaatsen. Maar als dat niet van toepassing is (zoals hier) kun je rustig nummers gebruiken.
NB: als je vraag is opgelost, markeer die dan als zodanig a.u.b.

 

[radar]

OK, duidelijk!

Dank je wel voor de geboden hulp.
Ik ga nog wat stoeien met de namen van de sheets.
Mocht het niet lukken, kan ik met deze macro toch verder.
Nogmaals dank !
en tot een volgende keer !