Automatisch kopieeren uit nieuw tabblad

[wiehelptmij09]

Beste helpmij,

Ik wil graag een rij en/of enkele cellen kopieren uit elk nieuw of bestaand tabblad dat ik heb gemaakt.

bv kopieer rij A59 t/m R59 van elk tabblad en plaats dat onder elkaar voor elk nieuw tabblad in blad ''overzicht''

Ik weet dat ik hier VBA voor nodig heb, maar ben nog beginnende, wie kan mij helpen?

Bij voorbaat dank,

JK

 

[Hoornvan]

wiehelptmij09,

Gebruik rechtboven de zoekmachine van Helpmij "Doorzoek dit forum"eens.
Vul als zoekterm in kopieren en zie wat voor keuzes er zijn.

 

[wiehelptmij09]

Beste Wim,

Ik heb al heel wat doorzocht op het forum maar kom er nog niet helemaal uit.

reeds heb ik;

Sub Doorvoeren()

With Sheets("Overview")
Sheets("New").Range("A59,B59,C59,D59,E59,F59,G59,H59,I59,J59,K59").Copy .Range("A" & .Range("A" & Rows.Count).End(xlUp).Row + 1)
End With
End Sub

Dus nu haalt VBA de gegevens alleen uit het tabblad 'New' en plaats het in 'Overview', maar ik wil eigenlijk dat de functie wordt uitgevoerd voor alle tabbladen na Overview, plus de nieuwe, en deze achtereenvolgens onder elkaar zet.

alvast bedankt,

JK

 

[Hoornvan]

wiehelptmij09,

Als het goed is werkt dit ook.
Voor het andere heb ik even geen antwoord.

Sub Doorvoeren()
  With Sheets("Overview")
    Sheets("New").Range("A59:K59").Copy .Range("A" & .Range("A" & Rows.Count).End(xlUp).Row + 1)
  End With
End Sub

Dit zou ook moeten werken.

Sub Doorvoeren()
  With Sheets("Overview")
    [New!A59:K59].Copy .Range("A" & .Range("A" & Rows.Count).End(xlUp).Row + 1)
  End With
End Sub

 

[Breuk132]

Probeer deze eens. Bij mij werkt het..

Sub doorvoeren()
    
With Workbooks("bestandsnaam")
        For i = 2 To Sheets.Count
            Sheets("overview").Range(Range("a" & Rows.Count).End(xlUp).Offset(1, 0), Range("K" & Rows.Count).End(xlUp) _
            .Offset(1, 0)).Value = .Sheets(i).Range("A59:K59").Value
        Next
    End With
    
End Sub

 

[wiehelptmij09]

Bedankt Jelte!

Het is gelukt, idieaal zo'n site

mvg,
jop

 

[Warme bakkertje]

Sub doorvoeren()
    For i = 2 To Sheets.Count
        [Overview!A65536].End(xlUp).Offset(1).Resize(, 11).Value = Sheets(i).[A59:K59].Value
    Next
End Sub