Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
macro funciona para...
 
Notifications
Clear all

macro funciona para alguns combobox e para outros dá erro

 
2024 - VBA & Macros
Post Recente por Edcronos 9 anos atrás
3 Posts
1 Usuários
0 Reactions
1,030 Visualizações
RSS
 Edcronos
(@edcronos)
Posts: 1006
Noble Member
Topic starter
 

Tem alguma coisa que não consigo achar a logica do por que

tenho uma macro que preenche combo com nomes de abas que tem setores

essa preenche a combobox normalmente 

Private Sub Plan_Ori7_DropButtonClick()
    Call ComboboxPLan(Me.ActiveControl)
End Sub

e tenho varias que só muda a numeração

e já para essa outra dá erro

Private Sub Plan_list_DropButtonClick()
Call ComboboxPLan(Me.ActiveControl)
    If Plan_list.Value = "PLanAtiva" Then Plan_list.Value = Limit(1)
End Sub
 
Postado : 14/07/2015 8:53 pm
 Edcronos
(@edcronos)
Posts: 1006
Noble Member
Topic starter
 

eita, um pouco de teste e descobri o pq

usando MsgBox Me.ActiveControl.Name
para retornar o nome do objeto

descobri que apesar de estar clicando em um combobox
como ele está em um multipage a porcaria retorna o nome do multpage e não a do combo

então pelo visto não tem como usar Me.ActiveControl para trabalhar com objetos que estejam numa multi pagina

 
Postado : 14/07/2015 9:04 pm
 Edcronos
(@edcronos)
Posts: 1006
Noble Member
Topic starter
 

solução

Private Sub Plan_list_DropButtonClick()

Call ComboboxPLan( Me.Controls("Plan_list"))

If Plan_list.Value = "PLanAtiva" Then Plan_list.Value = Limit(1)
End Sub

usei Me.Controls mais o nome do combo para referenciar o objeto na macro

 
Postado : 14/07/2015 9:10 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico