Página 1 de 1

Combobox com condições

Enviado: 09 Ago 2017 às 09:56
por juliotorres
Bom dia.

Preciso criar uma combobox em VBA de forma que os dados dessa combobox atenda a algumas condições.

Por exemplo:

Na coluna A temos os nomes dos clientes:
A
A
B
A
B
C
D
E
...

Na coluna B temos os números das NFs desses clientes
1
2
3
4
5
6
7
8
...

Preciso que na combobox, apareça somente as NFs do cliente "A", por exemplo. Detalhe: preciso dessa função em VBA. Estou usando a função abaixo mas não está funcionando.

boxNF = Application.WorksheetFunction.VLookup(boxCliente.Text, Range("A1:B100"), 2, False)

Com essa função, estou querendo que ele busque na coluna B, os números das NFs referentes ao nome que está no combobox "boxCliente", ou seja, o cliente selecionado a partir da coluna A.

Segue um anexo da ideia do que estou precisando.

Desde já agradeço.

Re: Combobox com condições

Enviado: 09 Ago 2017 às 12:53
por juliotorres
Mandei o anexo errado. Por favor me perdoem.

Segue o correto.

Re: Combobox com condições

Enviado: 09 Ago 2017 às 14:03
por osvaldomp
1. acrescente o código abaixo
Código: Selecionar todos
Private Sub boxcliente_Change()
 Dim n As Range
  For Each n In Range("A4:A" & Cells(Rows.Count, 1).End(3).Row)
   If n.Value = boxcliente.Value Then Me.boxNF.AddItem n.Offset(, 1).Value
  Next n
End Sub
2. remova o código
Private Sub boxNF_Change()

3. no código Private Sub UserForm_Initialize() remova as 2 linhas abaixo
'nf = Range("B4").End(xlDown).Row
'boxNF.RowSource = "B4:B" & nf

Combobox com condições

Enviado: 09 Ago 2017 às 19:42
por juliotorres
Obrigado, Osvaldo. Era isso mesmo o que eu estava precisando.

Abraço