Vlookup Para ComboBox Relacionada Ao Código Do Cliente
Enviado: 16 Jul 2018 às 18:29
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
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