Macro para múltiples checkbox en una columna, y al seleccionar varios check, eliminen las filas seleccionadas
Necesito crear en bucle múltiples checkbox con la columna A (verificando que exista datos en cada fila), y al seleccionar varias check = true, eliminen las filas seleccionadas.
1 respuesta
Respuesta de Dante Amor
1
H o l a : Te anexo la macro para agregar un checkbox cuando insertas un nuevo dato en la columna B.
Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Column <> 2 Then Exit Sub If Target.Row < 6 Then Exit Sub If Target.Count > 1 Then Exit Sub If Target.Value = "" Then Exit Sub ' For Each img In ActiveSheet.OLEObjects If Not Intersect(img.TopLeftCell, Target.Offset(0, -1)) Is Nothing Then existe = True Exit For End If Next If existe = False Then Set celda = Target.Offset(0, -1) With ActiveSheet.OLEObjects.Add(classtype:="Forms.Checkbox.1", _ Top:=celda.Top + 1, Left:=celda.Left + 15, _ Height:=celda.Height, Width:=30) .Object.Caption = "" .LinkedCell = celda.Address .Object.Value = False End With End If End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
