salvar dados de uma combobox em tabela
07/08/2014
0
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
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
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)