Planilha Excel fatura busca combobox múltipla escolha dados planilha Esse macro, procedimento do Excel VBA, abre um userform para lançamentos de Produtos em uma determinada area da folha de Planilhas, com auxilio de uma Caixa de Combinação(Combobox) e Textboxes, permite ao usuario ao clicar em determinada coluna da folha de planilha abrir objeto Userform para lançamentos de produtos, em combobox multiplas escolha de dados e ou categorias.
Abaixo os códigos: Lembre-se que o exemplo de planilha esta reservado aos Assinates:
‘Codigos Excel VBA da Planilha acima:
‘Escola Saberexcel VBA
‘O Exemplo de Planilha reservamos aos – Assinantes Escola Saberexcel VBA Estudos®
Procedimentos de aquisição dos produtos Didáticos SaberExcel
‘//==============’
Dim f
Private Sub UserForm_Initialize()
Set f = Saber2
For Each c In f.Range(“A2:A” & f.[A65000].End(xlUp).Row)
If c <> “” Then Me.cboCATEGORIA.AddItem c
Next c
End Sub
‘//==============’
Private Sub cboCATEGORIA_Click()
Set vInicio = f.[A:A].Find(Me.cboCATEGORIA).Offset(1, 1)
vLin = vInicio.Row
Me.cboPRODUTOS.Clear
Do While f.Cells(vLin, “b”) <> “”
Me.cboPRODUTOS.AddItem f.Cells(vLin, “b”)
vLin = vLin + 1
Loop
End Sub
Private Sub cboPRODUTOS_Click()
Set vPreco = f.[B:B].Find(Me.cboPRODUTOS).Offset(, 1)
If Not vPreco Is Nothing Then Me.txtPRECO = vPreco
End Sub
‘//==============’
Private Sub cmbFECHAR_Click()
ActiveCell = Me.cboPRODUTOS
ActiveCell.Offset(, 1) = CDbl(Me.txtPRECO)
Unload Me
End Sub
‘//==============’
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções.
Baixe o Exemplo de Planilha contendo os procedimentos e Macros Acima (Reservado aos Assinantes)