List Box

[Ryxard]

Olá pessoal!

• Tenho um formulário de cadastro de clientes.
• Tenho "Nome" e "Sobrenome" e outros como entrada de dados.
• Neste mesmo formulário, tenho uma ComboBox com critérios para pesquisa (por: nome, sobrenome e outros), uma TextBox para inserir o valor referente ao critério escolhido, um Botão Pesquisar e uma ListBox que lista os dados pesquisados.
• Quando faço o cadastro, posso ter vários "Nomes de "Pedro" com "Sobrenomes" diferentes. Um dia preciso fazer uma consulta aos dados de "Pedro", mas não lembro de seu "Sobrenome", então faço uma pesquisa "por nome" com o valor de "Pedro" e é listado em minha ListBox todos os "Pedros" que já foram cadastrados e seus dados. Então, seleciono o "Pedro" que quero e este é colocado nos campos do formulário, dando condições para "Editar e Salvar a Edição" ou "Excluir". Até aqui tudo corre normalmente. DAQUI PARA FRENTE são minhas dúvidas: Quando seleciono o "Pedro" que eu quero na ListBox, a "LINHA" correspondente na planilha de Cadastro de Clientes NÃO está sendo ATIVADA, desta forma eu não tenho como "Editar e Salvar" ou mesmo "Excluir".

>> Preciso de um CÓDIGO que quando selecionar um ITEM na LISTBOX, ative a linha correspondente na PLANILHA

Código que está sendo usado para selecionar um ITEM na LISTBOX

Quando seleciono um ITEM da LISTBOX, os campos do formulário recebe os dados correspondentes, mas não ativa a LINHA na PLANILHA.

Private Sub ListaClientes_Change()

If txtProcPor.Text <> "" Then

txtNomeCliente.Text = ListaClientes.Column(0)

txtSobrenome.Text = ListaClientes.Column(1)

Aqui faço uma escolha por Pessoa Física ou Jurídica, então a coluna é a mesma

If opbtnPFisica.Value = True Then

txtCPF.Text = ListaClientes.Column(2)

End If

If opbtnPJuridica.Value = True Then

txtCNPJ.Text = ListaClientes.Column(2)

End If

txtEndereco.Text = ListaClientes.Column(3)

txtNumero.Text = ListaClientes.Column(4)

txtComplemento.Text = ListaClientes.Column(5)

txtBairroLocal.Text = ListaClientes.Column(6)

txtCEP.Text = ListaClientes.Column(7)

txtDistrito.Text = ListaClientes.Column(8)

txtCidade.Text = ListaClientes.Column(9)

End If

End Sub

Ryxard

Editado Fevereiro 14, 2013 por Ryxard

[JoséA]

'QUANDO O ITEM É CLICADO NO LISTBOX, FOCA NA CÉLUAL CORRESPONDENTE
Private Sub listBox1_Click()

      Dim Employee As Variant
      Dim Name As String
      Dim firstaddress As String
      
      Employee = Empty
      'SE PRECISAR MAIS DE 500 LINHAS É SÓ ALTERAR ABAIXO
      With ActiveSheet.Range("a1:a500")
            Name = ListBox1.Value
            Set Employee = .Find(what:=Name, LookIn:=xlValues)
            If Not Employee Is Nothing Then Employee.Rows.EntireRow.Select Else Exit Sub
      End With
      'FECHA O FORM QUANDO CLICA NO NOME
      'Unload Me
      Set Employee = Nothing
'OPCIONAL MOSTRA O ITEM SELECIONADO NA CELULA PARTINDO DE A
Range("I1") = ListBox1.Value
End Sub