Vincular caixas de ...
 
Notifications
Clear all

Vincular caixas de seleção à células.

2 Posts
2 Usuários
0 Reactions
1,075 Visualizações
(@cisneiro)
Posts: 75
Trusted Member
Topic starter
 

boa tarde galera. estou fazendo uma planilha que possui varias caixas de seleção. gostaria de saber se tem um jeito de vincular cada caixa de seleção à célula que está na mesma posição da caixa. por exemplo,coloco uma caixa de seleção na célula A1,e quero vincular esta caixa a célula A1. sei que dá pra fazer isso com botão direito, porém são 700 caixas de seleção e vincular uma a uma seria muito trabalhoso. quem puder ajudar agradeço.

 
Postado : 15/09/2016 12:12 pm
Issamu
(@issamu)
Posts: 605
Honorable Member
 

Insira todas caixas de seleção desejadas e então rode o código abaixo através do VBA:

Sub VincularCheckBoxes()
Dim chk As CheckBox

For Each chk In ActiveSheet.CheckBoxes
   With chk
      .LinkedCell = _
         .TopLeftCell.Address
   End With
Next chk

End Sub

Rafael Issamu F. Kamimura
Moderador Oficial Microsoft Community - MCC (Contribuidor do Microsoft Community)
http://zip.net/bjrt0X - http://zip.net/bhrvbR
Foi útil? Clique na mãozinha
Conheça: http://excelmaniacos.com/

 
Postado : 15/09/2016 12:26 pm