Hi,

I have the following requirement in one of our project where I need to use
the checkbox creation and deletion.

1) I have to add rows filled with data and the first column of the row will
have
a checkbox(uncheked).
2) once the user select few checkbox and request an action by clicking an
cmd button,
it should delete few rows and remove the checkbox as well.

As of now I used the following code to create checkbox dynamically

For Each r In Worksheets("Sheet1").Range("A1:A20").Cells
With
ActiveSheet.CheckBoxes.Add(Worksheets("PrincipleOr ders").Cells(Start_Row,
1).Left _
+ 5, Worksheets("PrincipleOrders").Cells(Start_Row, 1).Top - 2, 5, 5)
..Caption = ""
..LinkedCell = Worksheets("PrincipleOrders").Cells(Start_Row,
1).Address(False, False)
End With

Problem comes when I have to delete any selected row and move up the below
rows.
Someone pl. help in getting a solution or better approach for this
requirement.
Thx in advance.....
Raj

Hi Experts,

Could someone reply for this query?

Thx

"Raj" wrote:

Hi,

I have the following requirement in one of our project where I need to use
the checkbox creation and deletion.

1) I have to add rows filled with data and the first column of the row will
have
a checkbox(uncheked).
2) once the user select few checkbox and request an action by clicking an
cmd button,
it should delete few rows and remove the checkbox as well.

As of now I used the following code to create checkbox dynamically

For Each r In Worksheets("Sheet1").Range("A1:A20").Cells
With
ActiveSheet.CheckBoxes.Add(Worksheets("PrincipleOr ders").Cells(Start_Row,
1).Left _
+ 5, Worksheets("PrincipleOrders").Cells(Start_Row, 1).Top - 2, 5, 5)
.Caption = ""
.LinkedCell = Worksheets("PrincipleOrders").Cells(Start_Row,
1).Address(False, False)
End With

Problem comes when I have to delete any selected row and move up the below
rows.
Someone pl. help in getting a solution or better approach for this
requirement.
Thx in advance.....
Raj