New command button

[Riverstar5]

Hi,

I'm looking to see if I can create a command button that prompts me to write a row number that I would like to insert and then copy that information to another sheet. I found the code to enter the row but I can not figure out how to have it add the same row to another sheet with the same information.

Private Sub CommandButton1_Click()
Dim rowNum As Integer
On Error Resume Next
rowNum = Application.InputBox(Prompt:="Enter Row Number where you want to add a row:", _
Title:="New Staff", Type:=1)
Rows(rowNum & ":" & rowNum).Insert Shift:=xlDown
End Sub

Thank you for any assistance that you can give...

[mikerickson]

Perhaps

Please Login or Register  to view this content.

[Riverstar5]

Thank you so much for your reply, the code works it enters the new row... except it does not enter the staff name to the other sheet.

[mikerickson]

There is no mention of a staff name in the OP, either the text of your question or in the code.
Where does one find the staff name, where do you want it to go (which column of the added row)?

[Riverstar5]

I'm so sorry, your right.... "command button that prompts me to write a row number that I would like to insert and then copy that information to another sheet" the other sheet and the row that I want to insert is a new staff name.

[mikerickson]

Where does the staff name come from?
Do you want another InputBox so the user can enter it?

Where does the staff name go? Which cell in the new row (both sheets) does it go into?

[Riverstar5]

Hi,

Booth sheets are identical, the command that I posted in the beggining allows me to enter a row and then I type the employee's name in that row... I would like to add the name to the adjasent sheet that is identical to the original one. The sheets are schedules for our clinical staff and when a new staff has to be added to the original sheet I have to add to all the other sheets that are broken down into 6 weeks each sheet. These sheets are about one and half month's of dates and there are 9 sheets all together. I hope this helps...

[mikerickson]

So you want a macro that does two things.
1) Add a new row to two sheets
2) The next entry in of those newly created rows should be mirrored on the other sheet. After a single entry, that mirroring should stop.
Is that a description of your need?

[mikerickson]

If that describes what you want, try putting this in the ThisWorkbook code module

Please Login or Register  to view this content.

And then assiging this

Please Login or Register  to view this content.