Removing excel rows with a command button

[bruno2580]

Hi guys,

Just wondering is it possible to remove certain a particular row using a command button

You will see in the file attached I have created a + button to add a row at the bottom of my transport sheet just above the notes row, Is this possible to be done for a Minus button and remove the last row above notes?

Thanks in advance.

[torachan]

try the code below

Private Sub CommandButton2_Click()
Dim rrow As Long
rrow = Sheet1.Cells(Sheet1.Rows.Count, "B").End(xlUp).Row
rrow = rrow - 1
Sheet1.Rows(rrow).Delete Shift:=xlShiftUp
End Sub

[bruno2580]

Hi torachan,

That code works well,

One question with it however, When i protect the worksheet it comes up with a runtime error 1004

When the sheet is not protected works fine

Is it possible for the minus function to work?

Thanks in advance

[torachan]

Try this instead

Please Login or Register  to view this content.

[bruno2580]

works a treat A++++

many thanks