Excel Movement

Closed
Jon - Feb 8, 2010 at 10:16 AM
venkat1926 Posts 1863 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 - Feb 8, 2010 at 09:10 PM
Hello,
I have a workbook that has 10 different sheets in it. In this the first sheet in "total information", then "sheet1",..."sheet9". It has columns A thru X filled with data. I would like for it to move the active row to the specific sheet all dependent on what is selected from column Y in a drop down menu of the active row. Of course the list is "sheet1" thru "sheet9". So if I select "sheet3", it moves the data to "sheet3" in the first available line on that sheet. Once complete the active row from totals would be removed.
Related:

1 response

venkat1926 Posts 1863 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 811
Feb 8, 2010 at 09:10 PM
little confused. you have validation list in column Y in sheet called "total inforamtion". You select any one of these cells choose one from the list for e.g Y5 and the activecell(Y5) value is "sheet2"--Y5 is the activecell.
you want the whole row of Y6 that is 5th row to copied in sheet2.
If this assumption is correct use this macro

Sub test()
Dim sh As String
With Worksheets("total information")
sh = ActiveCell.Value
ActiveCell.EntireRow.Copy
With Worksheets(sh)
.Cells(Rows.Count, "a").End(xlUp).Offset(1, 0).PasteSpecial
End With
Application.CutCopyMode = False
End With
End Sub
1