Using Check Box To Delete Row

I'm trying to repurpose this script I found so it deletes the row in an excel spreadsheet when it is checked. The current script just hides them. I'd also like to see ifthere is a way to have the row number automaticaly referenced via the checkboxes cell link so I woudn't have to make a custom macro for each row I want to have he checkbox delete feature.

Any ideas?

Thanks,

Mark

Here is what I'm trying to repurpose:

Sub HideRows()
If Rows("9").RowHeight = 0 Then
Rows("9").Hidden = False
ActiveSheet.CheckBoxes("Check Box 346").Visible = True
Else
Rows("9").Hidden = True
ActiveSheet.CheckBoxes("Check Box 346").Visible = False
End If
End Sub

May I suggest that you not use check boxes? They really clutter up a worksheet if you too many of them and there is "neater" alternative that facilates the VBA code much better.

In whatever column the checkboxes are made to appear in, let cells in that column serve as a Marlett check box. Meaning the cells are formatted using the Marlett font, which then allows you type an "a" into the cell to create a checkmark.

The VBA code only needs to check if the cell on a row has a value and delete the row if it does.

See attached workbook for an example.
Included is this code which will automatically format the cells in A:A100 to Marlett and enter the character "a" to produce the checkmark. The second bit of code will delete row when the checkbox cell is selected.

Adjust range references per your requirements. It is currently set to work in column-A rows 2:100

Please Login or Register  to view this content.

Palmetto,

Thanks, I pasted in the coded you provided. I can't seem to get excel to save it is a runable macro. I have attached a spreadsheet example.

-Mark

You have the code in a standard module.
It must reside in the sheet module. In your case, sheet1 which is listed in the VBA project Window.
Cut or copy the code from the standard module, activate the sheet module then paste it in.

I removed all modules. I then clicked on "Sheet 1 (Summ-GM)" in the project view and pasted the code you provided. Now it only appears under that sheet. I'm still consfused as to how to make it runable. Thanks for your patience. I'm terrible with code.

-Mark

See attached. All is working.

When I click on any empty cell it is deleting the whole row. Checkboxed ones remain.

When I click on any empty cell it is deleting the whole row. Checkboxed ones remain.

Disable macros when opening the workbook, manually delete the check marks, save and close the file then re-open it and it will function correctly.

The code is designed to simultaneously enter a check mark and immediately delete the row.

If you want to place a check mark into cell and then delete the rows all at once after making all selections rather than delete them "as you go" then see the attached workbook.

It uses a separate macro assigned to a button and will delete checked rows on demand.