Este fórum está sendo desativado

[headway123]

Olá, Estou desenvolvendo uma planilha de vendas automatizada em VBA, porém me deparei com o seguinte problema.

Preciso que, ao usuário informar o código do cliente, o UserForm carregue em uma ComboBox, o nome de todas as fazendas cadastradas desse cliente.

Por exemplo, código 1 >>>>> FAZENDA 1, FAZENDA 2, E FAZENDA 3: Como opção na ComboBox.


*Referente a TxtFazenda2 = Pesquisa3.



Private Sub TxtCodCliente2_AfterUpdate()

Dim intervalo As Range
Dim texto As String
Dim codigo As Integer
Dim mensagem

codigo = TxtCodCliente2
Sheets("CLIENTES").Select
Set intervalo = Range("A2:Z5000")
'ActiveSheet.Range("a1", ActiveSheet.Range("a1").End(xlDown)).Select

pesquisa = Application.WorksheetFunction.VLookup(codigo, intervalo, 2, False)

On Error GoTo Erro

codigo = TxtCodCliente2
Sheets("FAZENDAS").Select
Set intervalo = Range("A2:Z5000")
'ActiveSheet.Range("a1", ActiveSheet.Range("a1").End(xlDown)).Select

pesquisa2 = Application.WorksheetFunction.VLookup(codigo, intervalo, 3, False)

On Error GoTo Erro

codigo = TxtCodCliente2
Sheets("FAZENDAS").Select
Set intervalo = Range("A2:Z5000")
'ActiveSheet.Range("D2", ActiveSheet.Range("D2").End(xlDown)).Select

pesquisa3 = Application.WorksheetFunction.VLookup(codigo, intervalo, 4, False)

TxtFazenda2.List = Application.Transpose(Selection)

On Error GoTo Erro

txtNome2 = pesquisa
TxtGrupo2 = pesquisa2
TxtFazenda2 = pesquisa3

Exit Sub
Erro:
texto = "Não foi localizado nenhum valor correspondente ao código..."
mensagem = MsgBox(texto, vbOKOnly + vbInformation)

End Sub

[gfranco]

Amigo, veja se o exemplo que eu montei te ajuda.

[JCabral]

Peguei no excelente código do gfranco e fiz uma pequena alteração.

Introduzi uma nova ComboBox que tem valores únicos dos código disponíveis, assim não é necessário digitar os códigos mas tão somente escolher na combo.

Espero que ajude.

NOTA: O código base é da autoria do gfranco

[gfranco]

Peguei no excelente código do gfranco e fiz uma pequena alteração.

Introduzi uma nova ComboBox que tem valores únicos dos código disponíveis, assim não é necessário digitar os códigos mas tão somente escolher na combo.

Espero que ajude.

NOTA: O código base é da autoria do gfranco

Excelente implementação JCabral.