create Button to Delete Rows, Please Help

[paata01]

Hello everyone,
can you please help me. I want to create Macro in VBA that will delete specific rows in excel. this is what I want to do
I am working on t-shirts excel file, I want to have two options there "MEN" and "Women", when I click men it should delete all woman rows. I have know specific rows which should be deleted. How can I do something like this? from filter it takes a lot of time to delete manually.

 

[Truiz]

Are you looking to completely delete them or just hide them?

 

[paata01]

Thanks for quick reply, I want to completely delete rows, when I click "MEN" delete this this and this rows, I have row numbers I want to delete. and I want to have on restore button. To restore deleted rows, if possible.

 

[paata01]

I created simple three buttons, MEN WOMEN RESTORE

Private Sub CommandButton1_Click()
Sub DeleteRow1()
Rows(2).Delete
End Sub


Private Sub TextBox1_Change()


End Sub


Private Sub CommandButton2_Click()


End Sub


This is the formula I got from google, first command is giving me error. what's wrong with it? and Restore button should undo action taken by MEN or WOMEN button. can somebody help...

 

[paata01]

ok, I know how to delete specific rows. can someone help, what code should be under RESTORE BUtton to undo actions by other buttons. something like restore to default.

 

[Jonmo1]

You can't. There is no Undo for actions performed by a macro.

You should take Truiz's question to heart.

It seems you should just HIDE the rows insted of delete them.

 

[paata01]

I prefer to hide, but once I save file as CSV will hidden rows be there? if not how can I do HIDE instead of DELETE and make restore button, to unhide.

 

[Jonmo1]

Yes, the rows will still be there in the CSV file, but they won't stay hidden.

Post the code you have that Deletes the rows, we can likely adjust it to Hide instead of Delete.

 

[paata01]

Private Sub CommandButton1_Click()
Rows(38).Delete
End Sub
Private Sub CommandButton2_Click()


End Sub
Private Sub CommandButton3_Click()

End Sub


Private Sub UserForm_Click()


End Sub


This is the useform, with three buttons. as an sample I have just one DELETE rows (38), I work in (.xlsx) Format and save as CSV after finished. If Hidden rows won't be in CSV it would be perfect.

 

[Jonmo1]

Try changing
Rows(38).Delete
to
Rows(38).Hidden = True


and change True to False to UNhide the row.