Como puedo crear una macro para insertar botones de opción automáticamente en 1 columna
Necesitaba crear una macro para insertar los botones de opción automáticamente en una columna con varios registros para no insertarlos de uno en uno.
1 respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro para crear botones de opciones.
Sub CrearBotones()
'Por.Dante Amor
Application.ScreenUpdating = False
col = Array("D") 'Columnas botones
vin = Array("F") 'Columnas vincular
ini = 2 'Fila inicial
fin = 4 'Fila final
'
For Each dobj In ActiveSheet.DrawingObjects
If Left(dobj.Name, 6) = "Botón " Or Left(dobj.Name, 6) = "Option" 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.OptionButtons.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 SubA diferencia de las casillas, los botones de opción, todos quedan vinculados a la misma casilla, es decir, solamente puedes seleccionar una de todas las opciones.
' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )
