Gegevens in Bladen samenvoegen

[udo1967]

In meegeleverd bestand zitten (op dit moment) 10 bladen met dezelfde indeling.
Ieder blad word bijgehouden door één persoon (naam staat in bladtitel)
(als voorbeeld heb ik de eerste dataregel laten staan, enkele bladen hebben 25 rij-regels
andere weer tegen de 100 rij-regels aan data in hun overzicht staan...)

Zou graag alle 10 bladen willen samenvoegen tot 1 overzicht in blad Totaal Overzicht !!
Nu kan ik wel kopy en past gaan doen maar als het geheel automatisch zou kunnen
zou me dat iedere maand veel werk besparen.

Er hoeft niet echt een lege regels tussen ieder overgezette data te staan maar als dat zou kunnen : graag !

Is er iemand die me op weg kan helpen ?

Alvast hartelijk bedankt voor je hulp !

Diana

 

[Jack Nouws]

Hallo Diana

Kijk maar eens of dit de bedoeling is.

Met vr gr
Jack

 

[udo1967]

Hallo Diana

Kijk maar eens of dit de bedoeling is.

Met vr gr
Jack

Hallo Jack,

Resultaat is goed alleen wanneer je een 2e of 3e maal op de knop drukt dan komen de nieuwe gegevens onderaan het voorgaande te staan. Terwijl de lijst ververst moet worden.
(oude weg - nieuwe erin)

Lijst mag ook realtime ververst worden zonder dat er op een Macro-knop gedrukt moet worden.

Is dat mogelijk ?

Groetjes,
Diana

 

[Jack Nouws]

Hallo Diana,

Kijk maar eens of dit de bedoeling is.

Met vr gr
Jack

 

[udo1967]

Hallo Diana,

Kijk maar eens of dit de bedoeling is.

Met vr gr
Jack

Beste Jack,

Nu met alle gegevens werkt het Clear Screen niet goed.
Oude gegevens (350 regels) blijven staan en de nieuwe zet hij er weer onder (dan 700 regels).

Wil je graag het org. bestand mailen maar dan prive.

Heb je al via Helpmij een prive berichtje hierover gestuurd.

Groetjes,
Diana

 

[udo1967]

Werkende VBA code

Dit is de VBA code die nu gebruik is om het samenvoegen correct te laten verlopen :


Sub Totaal()
Application.ScreenUpdating = False

With Sheets("Totaal Overzicht")
If .[A3] <> "" Then
.[A3:A65536].SpecialCells(xlCellTypeConstants).EntireRow.Delete
End If

For i = 2 To Sheets.Count
Sheets(i).[A3].CurrentRegion.Copy .Cells(Rows.Count, 1).End(xlUp).Offset(2)
Next

End With

Application.ScreenUpdating = True
End Sub

 

[LucB]

Zou je deze eens willen testen?

Option Explicit

Sub Verzamel()
    With Sheets(1)
        .Range("A2:A10000").Clear  'A10000 evt. aanpassen
    End With

    For i = 2 To Sheets.Count
        Sheets(i).[A3].CurrentRegion.Copy Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(2)
    Next
End Sub

 

[udo1967]

Zou je deze eens willen testen?

Option Explicit

Sub Verzamel()
    With Sheets(1)
        .Range("A2:A10000").Clear  'A10000 evt. aanpassen
    End With

    For i = 2 To Sheets.Count
        Sheets(i).[A3].CurrentRegion.Copy Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(2)
    Next
End Sub

Hallo LucB,

Bovenstaande code gebruikt maar krijg een compileerfout bij "For i = 2"
"Een Variable is niet gedefineerd" is de foutmelding.

Diana

 

[LucB]

Sorry Diana,

Zo hoort het.

Sub Verzamel()
   Dim i As Long
    With Sheets(1)
        .Range("A2:A10000").Clear  'A10000 evt. aanpassen
    End With

    For i = 2 To Sheets.Count
        Sheets(i).[A3].CurrentRegion.Copy Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(2)
    Next
End Sub

 

[udo1967]

Sorry Diana,

Zo hoort het.

Sub Verzamel()
   Dim i As Long
    With Sheets(1)
        .Range("A2:A10000").Clear  'A10000 evt. aanpassen
    End With

    For i = 2 To Sheets.Count
        Sheets(i).[A3].CurrentRegion.Copy Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(2)
    Next
End Sub

Hallo LucB,

Ook deze Macro werkt prima !

Wil voorgaande oplossing niet in weggooien dus is mijn vraag :
Welk voordeel heeft jou VBA code tenopzichte van die van "Totaal" Macro ?

Diana

 

[LucB]

Diana,

Die "Totaal macro" heb ik over het hooft gezien.

Aan jou de keuze.