if statement place data in according sheet

hi all

sitting with a headache here at the moment.

i need a code that will according to cell E7 save the data according to the worksheet name. the cell E7 is a drop down option, so lets say cell E7 is "arts" then all data entered into the sheet should send the backup to the "arts" tab.


i have several different tabs namely, arts, crafts, admin, etc. so whenever i choose one of them in cell E7 the data should go to the corresponding sheet.

this is the code i am currently using and its not working

[Sub INCOMESHEET_Picture5_Click()
Dim lastrow As Object

Set lastrow = Sheets(Range("e7").Value).Range("a6000").End(xlUp)

lastrow.Offset(1, 0).Value = Sheet4.Range("E7").Text
lastrow.Offset(1, 1).Value = Sheet4.Range("E9").Text
lastrow.Offset(1, 2).Value = Sheet4.Range("L7").Text
lastrow.Offset(1, 3).Value = Sheet4.Range("L9").Text
lastrow.Offset(1, 4).Value = Sheet4.Range("S7").Text
lastrow.Offset(1, 5).Value = Sheet4.Range("S9").Text
lastrow.Offset(1, 6).Value = Sheet4.Range("K48").Text



MsgBox "ENTRY SUCCESFULL"



RESPONSE = MsgBox("ANOTHER ENTRY?", vbYesNo)

If RESPONSE = vbYes Then

Worksheets("INcome SHEET").Range("C3:u47").PrintOut

Else

Worksheets("INcome SHEET").Range("C3:u47").PrintOut


End If
End Sub]

i would really appreciate some help on this one

thanks

Hi, welcome to the forum.
You should look at the few rules of the forum and modify your thread before the Moderator warn you. You have topplace your code between CODE tags (See rules #3, I think)

Anyway, I test your macro and it works quiet well on my computer. One thing you should be aware of is that you must start this macro while your are in the Sheet4 tab. If your command button is in another tab, you'll have to modify thisline of code:

Please Login or Register  to view this content.

with this one:

Please Login or Register  to view this content.

You are making sense.
From what you are saying, users will fill in the cells in Sheet4 (whatever it's name is) and the command button to trigger the transfer WILL also be in that sheet. Right? If not, you have to modify the line of code I told you to in the previous post.
One thing you must double check is the names of your tabs and the words you place in your validation range. They must be exactly the same. Look for extra sapce at the end of a word. It does not show up by looking at it but it will bug the macro.

When you say it does not work, what are you getting? An error message? If so, which one?
If not, what is the final result?