Transfer data [Solved]

Ask a question lynng 10Posts Thursday March 24, 2016Registration date July 13, 2016 Last seen - Latest answer on Mar 27, 2016 06:22AM
Is it possible to transfer data for sheet 1 to another sheet i select form a drop down box that contains all the sheet's name in that work book? If its possible can someone please direct me in the right direction on how to go about it. Any help will be greatly appreciated. Thanks!
See more 
moins plus
Hello Lynng,

The following code may do the task for you:-

Sub FindSheets()

Application.ScreenUpdating = False

   Dim MySelection As String

    If Range("A2") <> "" Then
    MySelection = Range("A2")
    End If
Sheets(MySelection).Range("A" & Rows.Count).End(3)(2).PasteSpecial xlPasteValues

Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub

As I don't know how your actual work book is set up or what exactly you want to transfer to each individual sheet, I have made the following assumptions:-

- Your data starts in Row 4 with headings in Row 3.
- Your drop down list is in cell A2.
- You wish to transfer all data from sheet1 (which I assume to be your Input sheet) to the selected individual sheet.
- You want the "used" data in sheet1 cleared once it is transferred to the selected individual sheet.

You will have to let us know exactly how your work book is set up so it would be a good idea to upload a sample of your work book to a free file sharing site such as DropBox, or SpeedyShare then post the link to your file back here. Be careful with any sensitive data and show us your inputs and expected results.

Following is the link to my test work book which is set up based on my assumptions above:-

Select a sheet from the drop down in cell A2 and then click on the Find Sheets button to see the code at work.
Once the data is transferred, the code will take you directly to the selected sheet.

Let us know what you think.

Lynng- Mar 26, 2016 09:18AM
Dear Friend,
Thanks so much for your time and help! Your answer was just what i was looking for to set up my workbook.
Add comment
moins plus
Thanks for your time and help! your answer got me right where i needed to go.
Add comment
moins plus
Hello Lynng,

You're welcome. I'm glad that I was able to help.

Add comment

Members get more answers than anonymous users.

Being a member gives you detailed monitoring of your requests.

Being a member gives you additional options.

Not a member yet?

sign-up, it takes less than a minute and it's free!