‘- 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
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:
