Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Uma só macro para todas as ComboBox

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
atdids
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Qui Abr 21, 2022 1:02 am

Uma só macro para todas as ComboBox

Mensagem por atdids »

Boa tarde amigos,

Possuo uma macro para uma ComboBox, que funciona muito bem, porém tenho exatamente 112 ComboBox na planilha e colocar a mesma macro individualmente para cada uma deixou a execução muito lenta. existe uma forma de escrever uma só macro e fazer com que todas as ComboBox assimilem essa macro?

*Em outras palavras, ao invés de uma macro "Private Sub ComboBox1", outra macro: "Private Sub ComboBox2"... até a 112, criar apenas uma (já que são iguais) para todas seguirem.

Abaixo a macro em questão (que habilita sair da ComboBox teclando Enter ou Tab):

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyReturn Then
Planilha2.ComboBox1.Activate
ElseIf KeyCode = vbKeyTab Then
Planilha2.ComboBox1.Activate
End If

End Sub

Obrigado!!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder