Eliminar Checkbox de una seleccion
Estimado, muy buenos días usted me ayudó a insertar un checkbox en ciertas celdas y me funciona super bien.
Lo que necesito y que no pude hacer, es que me gustaría que a partir de un rango seleccionado, pueda eliminar todos los checkbox que se encuentren dentro de ese rango.
Agradezco mucho su ayuda.
Saludos.
Respuesta de Dante Amor
1
Esta sería la macro
Sub borra_checks()
'por.DAM
If Selection.Count = 1 Then
Range(Selection.Address).Select
End If
ini = True
cont = 0
For Each celda In Selection
If ini Then
ci = celda.Address
ini = False
End If
cf = celda.Address
Next
iarr = Range(ci).Top
iizq = Range(ci).Left
falt = Range(cf).Height
fanc = Range(cf).Width
farr = Range(cf).Top + falt
fizq = Range(cf).Left + fanc
For Each check In ActiveSheet.OLEObjects
If TypeOf check.Object Is MSForms.CheckBox Then
If check.Top >= iarr And check.Top <= farr And _
check.Left >= iizq And check.Left <= fizq Then
check.Select
Selection.Delete
cont = cont + 1
End If
End If
Next
MsgBox "Se borraron " & cont & " checkbox", vbInformation, "BORAR CHECK"
End Sub Saludos.DAM
Si es lo que necesitas.
