Moving rows to 2nd tab when worksheet is protected
 

Hi,
To cut and paste the current row to A4:
Private Sub MoveRow_Click()
ActiveCell.EntireRow.Cut Worksheets("Tracking").Rows(5)
ActiveCell.EntireRow.Delete
End Sub

There is no need of activating the second sheet .
Now to paste to the next available row in stead of A5 (assuming column A is
used to determine which is the next available row), still feasuble in a
single statement:

Private Sub MoveRow_Click()
ActiveCell.EntireRow.Cut
Worksheets("Tracking").Range("A65536").End(xlUp).O ffset(1,0)
ActiveCell.EntireRow.Delete
End Sub

I hope this helps,
Sebastienm

Moving rows to 2nd tab when worksheet is protected
 

and one thing i forgot to say about sheet protection.
You can protect a sheet in UserInterface only mode. In this mode, the user
(as usual) cannot edit protected cells, but vba code can ! Very convenient,
huh!?!
The only inconvenient, the mode is not remembered when the book is closed,
so you have to reset it when the book opens in the Workbook_Open sub of the
ThisWorkbook module:
Assuming you password is "mypassword"

Worksheets("Tracking").Protect Password:="mypassword",
UserInterfaceOnly:=True

This option is available in XL2k and above. Not sure about XL97.

Sebastien

"sebastienm" wrote:

Hi,
To cut and paste the current row to A4:
Private Sub MoveRow_Click()
ActiveCell.EntireRow.Cut Worksheets("Tracking").Rows(5)
ActiveCell.EntireRow.Delete
End Sub

There is no need of activating the second sheet .
Now to paste to the next available row in stead of A5 (assuming column A is
used to determine which is the next available row), still feasuble in a
single statement:

Private Sub MoveRow_Click()
ActiveCell.EntireRow.Cut
Worksheets("Tracking").Range("A65536").End(xlUp).O ffset(1,0)
ActiveCell.EntireRow.Delete
End Sub

I hope this helps,
Sebastienm

Moving rows to 2nd tab when worksheet is protected
 

THANKS!! It all worked like a charm! You're a lifesaver! Thanks so much for
your help!!

Stacie

"sebastienm" wrote:

and one thing i forgot to say about sheet protection.
You can protect a sheet in UserInterface only mode. In this mode, the user
(as usual) cannot edit protected cells, but vba code can ! Very convenient,
huh!?!
The only inconvenient, the mode is not remembered when the book is closed,
so you have to reset it when the book opens in the Workbook_Open sub of the
ThisWorkbook module:
Assuming you password is "mypassword"

Worksheets("Tracking").Protect Password:="mypassword",
UserInterfaceOnly:=True

This option is available in XL2k and above. Not sure about XL97.

Sebastien

"sebastienm" wrote:

Hi,
To cut and paste the current row to A4:
Private Sub MoveRow_Click()
ActiveCell.EntireRow.Cut Worksheets("Tracking").Rows(5)
ActiveCell.EntireRow.Delete
End Sub

There is no need of activating the second sheet .
Now to paste to the next available row in stead of A5 (assuming column A is
used to determine which is the next available row), still feasuble in a
single statement:

Private Sub MoveRow_Click()
ActiveCell.EntireRow.Cut
Worksheets("Tracking").Range("A65536").End(xlUp).O ffset(1,0)
ActiveCell.EntireRow.Delete
End Sub

I hope this helps,
Sebastienm