Como vincular las casillas de verificacion en la propia celda donde se coloca la casilla sin tener que ir de una en una.
Ejemplo:
Tengo dos columnas la de Altas y otra columna de Bajas y en ellas las casillas de verificacion. Quiero vincularlo en la propia celda de la casilla pero sin tener que hacer cada casilla de 1 en 1 que tengo 300 casillas.
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo una macro para crear casillas de forma automática.
Tienes que escribir en cuál columna quieres la casilla y en cuál columna quieres la vinculación. También tienes que poner en cuál fila quieres que inicie y en cuál fila quieres que termine.
La macro va a borrar todas las casillas de tu hoja para poner las nuevas y su respectiva vinculación:
Sub CrearCasillas()
'Por.Dante Amor
Application.ScreenUpdating = False
col = Array("D", "E") 'Columnas casillas
vin = Array("F", "G") 'Columnas vincular
ini = 2 'Fila inicial
fin = 150 'Fila final
'
For Each dobj In ActiveSheet.DrawingObjects
If Left(dobj.Name, 7) = "Casilla" Or Left(dobj.Name, 7) = "Check B" Then
dobj.Delete
End If
Next
For k = LBound(col) To UBound(col)
For i = ini To fin
xl = Cells(i, col(k)).Left
xt = Cells(i, col(k)).Top
xw = Cells(i, col(k)).Width
xh = Cells(i, col(k)).Height
'
With ActiveSheet.CheckBoxes.Add(xl, xt, xw, xh)
.Caption = ""
.Value = xlOff
.LinkedCell = vin(k) & i
.Display3DShading = False
End With
Next
Next
[A1].Select
Application.ScreenUpdating = True
MsgBox "Fin"
End Sub' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )
