none
Ajuda com listbox vba excel RRS feed

  • Pergunta

  • Olá segue o código

    Private Sub textbox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
    Listbox.RowSource = ""
    pesquisa
    Me.texbox = Empty
    End If
    End Sub

    Sub pesquisa()
    Dim n%
    n = 1
    Range("a2").Select
    Do While ActiveCell <> ""
    If InStr(1, ActiveCell, Barra) > 0 Then
    'Endereco = ActiveCell.Address
    Range("h" & n).Offset(1, 0).Value = ActiveCell
    Range("h" & n).Offset(1, 1).Value = ActiveCell.Offset(0, 1)
    Range("h" & n).Offset(1, 2).Value = ActiveCell.Offset(0, 2)
    Range("h" & n).Offset(1, 3).Value = ActiveCell.Offset(0, 3)
    Range("h" & n).Offset(1, 4).Value = ActiveCell.Offset(0, 4)
    n = n + 1
    End If
    ActiveCell.Offset(1, 0).Select
    Loop
    If n > 1 Then
    Listbox.RowSource = "h2:l" & n
    Else
    Listbox.RowSource = ""
    MsgBox "Nenhum registro encontrado", vbInformation, "Aviso"
    End If
    End Sub

    Private Sub UserForm_Initialize()
    Me.textbox.SetFocus
    With Sheets("Plan1").UsedRange
    Lista.RowSource = "H2:L100"
    End Sub

    Eu queria saber como, faz para esse código fazer uma lista no listbox em cada dados que eu vou pesquisando ele vai adicionando "h2:l" da planilha e no listbox, sem apagar a primeira linha do "h2" e o cursor  não voltar depois que apagar os dados do textbox.





    • Editado Aslan kelvin terça-feira, 30 de abril de 2013 10:25
    domingo, 28 de abril de 2013 19:30

Respostas

  • Não entendi sua pergunta. Poderia explicar melhor?

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    • Marcado como Resposta Aslan kelvin sexta-feira, 3 de maio de 2013 10:07
    segunda-feira, 29 de abril de 2013 23:23
    Moderador

Todas as Respostas

  • Não entendi sua pergunta. Poderia explicar melhor?

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    • Marcado como Resposta Aslan kelvin sexta-feira, 3 de maio de 2013 10:07
    segunda-feira, 29 de abril de 2013 23:23
    Moderador
  • Olá ,

    é que o erro é na hora que pesquisa ele não mostra no listbox mais mostra a pesquisa na planilha h2:l mais ele não pula a linha e só continua na segunda linha. Se não entendeu tento explicar melhor.


    quarta-feira, 1 de maio de 2013 22:52
  • Aslan,

    Favor disponibilizar sua pasta de trabalho aqui para que eu possa analisar melhor.


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    sábado, 4 de maio de 2013 12:45
    Moderador
  • https://skydrive.live.com/redir?resid=165635C665C18C35!832&authkey=!AOLqbm_vBDe_BrM
    segunda-feira, 1 de julho de 2013 17:04
  • Realmente, não entendi mesmo com o exemplo.

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    • Marcado como Resposta Aslan kelvin quarta-feira, 3 de julho de 2013 13:28
    • Não Marcado como Resposta Aslan kelvin quarta-feira, 3 de julho de 2013 13:28
    quarta-feira, 3 de julho de 2013 00:51
    Moderador