salvar dados de uma combobox em tabela

07/08/2014

0

SQL

Pessoal, bom dia!

Estou criando uma ordem de serviço com VBA e nesta coloquei uma combobox que seleciona o código do equipamento de uma tabela de cadastro dos equipamentos, porém não estou conseguindo fazer com que esse valor fique salvo na minha tabela de dados da Ordem de serviço, seleciono o valor mas ele não fica salvo. alguém poderia me ajudar.
OBS; a tabela que busco o dado que carrega a combobox é diferente da tabela salva os dados da OS

Desde já agradeço

Segue abaixo o codigo que estou usando

Private Sub UserForm_Initialize()

Call DefinePlanilhaDados
Call HabilitaBotoesAlteracao
Call CarregaDadosInicial
Call DesabilitaControles
Call CarregaCategorias
Call CarregaEquipamentos

End Sub

Private Sub CarregaEquipamentos()
Dim linha As Integer, coluna As Integer
linha = 2
coluna = 1
Me.ComboBoxCodFrota.Clear
With Sheets("Equipamentos")
Do While Not IsEmpty(.Cells(linha, coluna))
Me.ComboBoxCodFrota.AddItem .Cells(linha, coluna).Value
linha = linha + 1
Loop
End With
End Sub
Gleidson Alves

Gleidson Alves

Responder

APRENDA A PROGRAMAR DO ZERO AO PROFISSIONAL

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar