Este fórum está sendo desativado

[Fablits]

Boa noite, alguém poderia por favor me ajudar com o exemplo em anexo, na tela FLancamento gostaria que ao Clicar em Pesquisa Cliente ao abrir a listbox ao dar duplo clique ou clicar em Selecionar no cliente preenchesse o campo código e nome do form FLancamento. Desde já agradeço.

[PHSabater]

Caro amigo, deu erro pra mim ao carregar a listbox, gerei um novo código.

Código: Selecionar todos

Sub Carregar_Listbox()
Dim linha, coluna As Long
Dim arrayItems()
    
    With Planilha1
        ReDim arrayItems(1 To .UsedRange.Rows.Count, 1 To .UsedRange.Columns.Count)
        Me.ListBox1.ColumnCount = .UsedRange.Columns.Count
        For linha = 1 To .UsedRange.Rows.Count
            Me.ListBox1.AddItem
            For coluna = 2 To .UsedRange.Columns.Count
                arrayItems(linha, coluna - 1) = .Cells(linha, coluna).Value
            Next coluna
        Next linha
        
        Me.ListBox1.List = arrayItems()
    End With
End Sub

Com a listbox preenchida, coloque no evento duplo clique a rotina abaixo:

Código: Selecionar todos

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
FiltroCliente.Hide
FLancamento.TextBox1.Value = FiltroCliente.ListBox1.List(ListBox1.ListIndex, 0)
FLancamento.TextBox2.Value = FiltroCliente.ListBox1.List(ListBox1.ListIndex, 1)
FLancamento.Show
FLancamento.TextBox1.SetFocus
End Sub

Códigos baseados na sua planilha, aqui rodou e entregou o que pediu.
Qualquer dúvida só postar novamente.

[Fablits]

Bom dia, @PHSabater , não sei porque mais estava dando erro em tempo de execução em FLancamento.Show, aí comentei e funcionou, a principio retirando essa linha deu certo, muito obrigado pela ajuda.

[PHSabater]

Fablits, provavelmente já tinha alguma rotina chamando o form, depois na minha chamada ele já estava aberto resultando em erro. Como já resolveu aí, bora pra próxima.