Amigos, ja tinha aberto um outro post mas sem resposta,
No meu formulario tem a funçao autopreencher mas que so faz isso com base em uma combobox de numeros de registros(combobox11), gostaria que este autopreenchimento fosse feito com busca pelo nome do cliente( combobox2). Respectivamente colunas A e E do banco de dados.
Private Sub ComboBox11_Change()
re = ComboBox11.Value
i = Application.WorksheetFunction.Match(CLng(re), Sheets("clientes").Range("A:A"), 0)
TextBox3 = Sheets("clientes").Cells(i, 10)
TextBox4 = Sheets("clientes").Cells(i, 9)
TextBox10 = Sheets("clientes").Cells(i, 3)
TextBox11 = Sheets("clientes").Cells(i, 11)
ComboBox2 = Sheets("clientes").Cells(i, 2)
ComboBox4 = Sheets("clientes").Cells(i, 5)
End Sub
Senhores, aguardo uma luz.
O meu muito obrigado.
Postado : 15/02/2012 7:21 pm