Retro Image Creative Commons License 2013.03.14 0 0 20694

"(a munkalapok egyesével történő kijelölése, és az adatok másolása, majd beillesztése az új munkalapra, az megy...:-))"

 

Nincs is annál jobb módszer, legfeljebb lehet rajta gyorsítani egy kicsit, pl. makróval:

 

Sub összemásol()
    Dim ws As Worksheet, ws_uj As Worksheet, Rng As Range
    
    Set ws_uj = ThisWorkbook.Worksheets.Add
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> ws_uj.Name Then
            Set Rng = ws_uj.Range("A" & ws_uj.Rows.Count).End(xlUp).Offset(1)
            ws.UsedRange.Copy Destination:=Rng
        End If
    Next
End Sub

 

 

Lehet még talán képlettel is. Egyszer réges rég beképleteztem egy munkalapot úgy, hogy automatikusan, egyben kilistázta 3 másik munkalap tartalmát, követte a változásokat, beleértve azt is, ha valamelyik munkalapon a sorok száma megváltozott. De az elég cammogós megoldás volt...

 

Ilyesmire gondoltál?

 

Előzmény: mimi_bacsi (20693)