cria caixa de seleção e atribui uma macro a ela
Enviado: 07 Mai 2021 às 20:52
Uso uma macro que cria caixas de seleção e ela funciona muito bem. Agora preciso que ao criar a caixa de seleção ela já venha "chamando" uma macro, ou seja, ao invés de clicar com o botão direito em mil caixas de seleção e atribuir a macro de ordenar para cada uma delas eu gostaria de já criar a caixa de seleção com a macro atribuída a elas.
Código para criar a caixa de seleção:
Código para criar a caixa de seleção:
Código: Selecionar todos
'retirado de https://br.ccm.net/faq/19796-como-criar-automaticamente-caixas-vinculadas-as-celulas-abaixo-no-excel
Sub Inserer_Caixas_de_Seleção_Vinculadas()
Dim rngCel As Range
Dim ChkBx As CheckBox
For Each rngCel In Selection
With rngCel.MergeArea.Cells
If .Resize(1, 1).Address = rngCel.Address Then
Set ChkBx = ActiveSheet.CheckBoxes.Add(.Left, .Top, .Width, .Height)
With ChkBx
.Value = xlOff
.LinkedCell = rngCel.MergeArea.Cells.Address
.Text = ""
With .Border
End With
End With
End If
End With
Next rngCel
End Sub