Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Combobox com referê...
 
Notifications
Clear all

Combobox com referência em um valor

 
2024 - VBA & Macros
Post Recente por mendesws 9 anos atrás
5 Posts
2 Usuários
0 Reactions
817 Visualizações
RSS
 mendesws
(@mendesws)
Posts: 0
New Member
Topic starter
 

Olá Pessoal,

Eu fiz um cadastro de atividades, porém eu gostaria de no ComboBox de selecionar, aparecessem todas as atividades linkadas com o ID escolhido pelo usuário.

O ID está linkado a uma Sheet e a Atividade a outra Sheet (que é o resultado da função de gravar a atividade desse formulário).

Eu tentei algumas maneiras, porém estou com dificuldades. Geralmente só aparece a primeira atividade linkada com o ID, as demais não aparecem, seria interessante também que eu tivesse referência da linha que o usuário selecionar a atividade.

Segue aqui as duas planilhas e o form:

 
Postado : 20/01/2016 11:13 am
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

mendesws,

Boa tarde!

Onde estão os arquivos mencionados?

 
Postado : 20/01/2016 1:08 pm
 mendesws
(@mendesws)
Posts: 0
New Member
Topic starter
 

mendesws,

Boa tarde!

Onde estão os arquivos mencionados?

Oi amigo, não consigo enviar por aqui por que está nos servidores da empresa. E não consigo tirar arquivo de lá, é alguma segurança da empresa.

Eu posso fazer um modelo em casa, te ajudaria? Você não consegue me da uma força só dando um olhada nos prints?

Abs

 
Postado : 21/01/2016 5:43 pm
 mendesws
(@mendesws)
Posts: 0
New Member
Topic starter
 

Bom, consegui refazer a planilha.

Se alguém conseguir me ajudar, seria de grande importância. Por que eu travei nessa parte do código e não estou conseguindo evoluir.

Att,

 
Postado : 22/01/2016 11:26 pm
 mendesws
(@mendesws)
Posts: 0
New Member
Topic starter
 

Já resolvi o problema com esse código:

Dim lin As Integer
    Dim idprojeto As String
    
    lin = 2
    
    idprojeto = cmbId_atv.Text

    Do Until Sheets("Atividades").Cells(lin, 1) = ""
        
        If Sheets("Atividades").Cells(lin, 1) = idprojeto Then
            cmbSelecionarProjeto_atv.AddItem Sheets("Atividades").Cells(lin, 4)
        End If
        
        lin = lin + 1
    
    Loop

IMPORTANTE: Quando for inserir esse código, utilize no evento CHANGE do ComboBox que você quer pegar a informação. Por muito tempo eu estava testando e não funcionava pois estava inserindo o código no lugar errado.

 
Postado : 23/01/2016 12:13 am
Forum Jump:
  Tópico Anterior
Próximo Tópico