Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...

MS Office Forum / Excel / Programming / November 2007

Tip: Looking for answers? Try searching our database.

Making list from varius data

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
dujo.malbasa@gmail.com - 25 Nov 2007 16:37 GMT
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 - 25 Nov 2007 17:01 GMT
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

Signature

Don Guillett
Microsoft MVP Excel
SalesAid Software
dguillett1@austin.rr.com

> Hello everybody,
>
[quoted text clipped - 42 lines]
> Best regards,
> Dujo
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.