ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Making list from varius data (https://www.excelbanter.com/excel-programming/401645-making-list-varius-data.html)

[email protected]

Making list from varius data
 
Hello everybody,

Please help me on my problem, I am new to macro definition so don't be
surprised if I don't know some essentials. Well, I took some online
tutorials, and tried to learn macros myself, but it is more difficult
job that I thought it will be. Any advices are welcome.

Here is my problem:
I have multiple existing data in my worksheet, workbook, same thing. I
would like to have an option by clicking on various buttons to make a
list in new sheet or workbook.
In fact I don't know how to make order to paste copied data bellow in
last empty row.

For example:
Sheet1 A B C D
1 e f 3 d
2 g l 6
3 d 6 2

Sheet2 A B C D
1 z h f l
2 5 5 5
3 g h 3
4 d 6 2

ecc. -different number of rows occupied

In sheet3 I have buttons to call different sheets to be listed one
bellow other in Sheet4- for these two it should be like:

Sheet4 A B C D
1 z h f l
2 5 5 5
3 g h 3
4 d 6 2
5
6 z h f l
7 5 5 5
8 g h 3
9 d 6 2


Thanks a lot in advance!

Best regards,
Dujo

Don Guillett

Making list from varius data
 
How about something like this from ONE button?

Sub putsheetdataonsheet4()
Set ds = Sheets("Sheet4")
ms = InputBox("which sheet to copy")'ask for sheet
With ds
Sheets(ms).Range("a2:d" & .Cells(Rows.Count, "a").End(xlUp).Row).Copy _
.Range ("a" & .Cells(Rows.Count, "a").End(xlUp).Row + 1)
End With
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

wrote in message
...
Hello everybody,

Please help me on my problem, I am new to macro definition so don't be
surprised if I don't know some essentials. Well, I took some online
tutorials, and tried to learn macros myself, but it is more difficult
job that I thought it will be. Any advices are welcome.

Here is my problem:
I have multiple existing data in my worksheet, workbook, same thing. I
would like to have an option by clicking on various buttons to make a
list in new sheet or workbook.
In fact I don't know how to make order to paste copied data bellow in
last empty row.

For example:
Sheet1 A B C D
1 e f 3 d
2 g l 6
3 d 6 2

Sheet2 A B C D
1 z h f l
2 5 5 5
3 g h 3
4 d 6 2

ecc. -different number of rows occupied

In sheet3 I have buttons to call different sheets to be listed one
bellow other in Sheet4- for these two it should be like:

Sheet4 A B C D
1 z h f l
2 5 5 5
3 g h 3
4 d 6 2
5
6 z h f l
7 5 5 5
8 g h 3
9 d 6 2


Thanks a lot in advance!

Best regards,
Dujo




All times are GMT +1. The time now is 09:14 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com