Transfer multible sheets into the existing sheet named "Results"

[Panoos64]

Hi all, i would like to create a VBA code so that to run through a workbook and transfer all Sheets' data (Sheet1, Sheet2 e.t.c.) into the first one, on the left which is named "Results" and it already exists. Therefore that The data of each Sheet, should be placed into "Results", below each other.
The Sheets are not stably and have no standard name and are more than 2 but no more than 50.
However, the meaning of code is update my results whenever i enter new data in any of spreadsheet.
Thanks to all in advance

 

[vcoolio]

Hello Panoos64,

Try the following code assigned to a button on the "Results" sheet:-

Sub Test()

Dim ws As Worksheet, sh As Worksheet
Set sh = Sheets("Results")

Application.ScreenUpdating = False

sh.UsedRange.Offset(1).Clear

For Each ws In Worksheets
       If ws.Name <> "Results" Then
       ws.UsedRange.Offset(1).Copy sh.Range("A" & Rows.Count).End(3)(2)
       End If
Next ws

Application.ScreenUpdating = True

End Sub

The code also clears the "Results" sheet prior to any new data being transferred. I'm assuming that you will be keeping all data in the source sheets.

I hope that this helps.

Cheerio,
vcoolio.

 

[Panoos64]

Thank you so much vcool. It works perfect and based to my data. Thanks also for your time spent for my project. Hv a great, lovely day!!

 

[vcoolio]

You're welcome Panoos.
I'm glad that I was able to help and thanks for the feed-back.

Cheerio,
vcoolio.