Tabla con Checkbox
Quisiera pedir su ayuda para saber cómo podría desarrollar lo siguiente:
Tengo una tabla en excel y deseo que cada vez que se le agregue una fila, se le agregue en esa misma fila, un chexbox.
Lo mismo si es que se elimina.
Esto para que el usuario, pueda seleccionar las filas que desea que se copien en un nuevo excel.
1 Respuesta
Respuesta de Dante Amor
1
El usuario la agrega con un botón.
En el código, lo que hago es modificar el rango de la tabla, y le insertó una fila más al final:
Range(Tabla).Select
Fila = Selection.Rows.Count
Columna = Selection.Columns.Count
ActiveSheet.ListObjects(Tabla).Resize Range(Tabla).Offset(-1, 0).Resize(Fila + 2, Columna)
Gracias.
Te regreso la macro con comentarios, para que puedas hacerle cambios.
Sub tt()
'Por.DAM
Range(Tabla).Select
Fila = Selection.Rows.Count
Columna = Selection.Columns.Count
ActiveSheet.ListObjects(Tabla).Resize _
Range(Tabla).Offset(-1, 0).Resize(Fila + 2, Columna)
'En esta columna se pone el checkbox,
'cambia la letra para poner la columna que quieras
col = "D"
'Estas líneas son para centrar el checkbox en la celda,
'Si no quieres que esté centrado, coméntalas.
anc = Cells(Fila + 2, col).Width / 2
alt = Cells(Fila + 2, col).Height / 4
'Estas son las coordenadas para poner el checkbox
izq = Cells(Fila + 2, col).Left + anc
arr = Cells(Fila + 2, col).Top + alt
'Con esto se inserta el checkbox
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", _
Link:=False, _
DisplayAsIcon:=False, _
Left:=izq, _
Top:=arr, _
Width:=11.25, _
Height:=10.5).Select
'Si quieres que tenga una celda con el resultado del check
'Si no lo quieres borra estas líneas
With Selection
.LinkedCell = col & Fila + 2
End With
End SubSaludos.DAM
Si es lo que necesitas.
