Excel VBA fatura busca dados banco de dados planilha


‘- faça o download do exemplo de planilha no final dest post.



Estude com nosso material didático:
Adquira através do Paypal Adquira através doPagSeguro
excel-vba-treinamentos-paypal excel-vba-treinamento-pagseguro




Exemplo do Post:
Com esses macros desta planilha exemplo vamos aprender como buscar dados em um banco de dados de uma determinada planilha.

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


Faça o Download do exemplo de Planilha:
https://escola.saberexcel.com.br/wp-content/uploads/2013/12/Planilha-Excel-VBA-números-aleatórios-identificar-par-impar.zip

    Deixe um comentário

    O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *