Excel - Como localizar celula na Plan e carregar ListBox com intervalo de celulas abaixo da celula encontrada.

[Jom]

Saudações caros colegas,
Aqui estou novamente para pedir ajuda de vcs, se puderem...

Exemplo: Digitei 22333333334 no TextBox5, ele vai na Plan3 Localiza a célula que contém esse número e envia todas as células preenchidas abaixo desse número, dessa mesma coluna, para o ListBox2.
As célula com números na Plan3 são como se fossem os "cabeçalhos".
As células abaixo contém textos e o ListBox2 tem apenas 1 coluna.

Estou usando o código abaixo, mas só carrega os números, não as linhas abaixo. Não sei como fazer isso.
____________________________________________
Private Sub TextBox5_Change()
If Me.TextBox5.Value <> "" Then
Me.ListBox2.Clear
Me.ListBox2.ColumnCount = 1
Dim Numeros As Double
Dim LinhaListBox As Long
Dim C As Object
Dim PrimeiroEndereço As String
Numeros = Me.TextBox5.Value
Set C = Planilha3.Range("A:XFD").Find(Numeros)
LinhaListBox = 0
If Not C Is Nothing Then
PrimeiroEndereço = C.Address
'Application.SendKeys "^+{DOWN}" 'Crtl, Shift, Seta para baixo
Me.ListBox2.AddItem
Me.ListBox2.List(LinhaListBox, 0) = C.Value
End If
End If
Application.ScreenUpdating = True
End Sub

Se puderem me ajudar, agradeço.
Att.

[webmaster]

Jom,

A explicação ficou beeeem vaga, pelo menos pra mim.

Vou precisar ou de mais detalhes ou do arquivo para conseguir ajudar.

[Jom]

Tomás,
Tentei ser objetivo, mas acho que deixei dúvidas, peço desculpa.
Vou tentar esclarecer melhor e em anexo enviei imagens do UserForm2 e Plan3.
Espero que consiga compreender.

Sobre a Plan3: (Ver imagem)
Já cadastrei centenas de números sequenciais em Colunas diferentes da Linha2, como se fossem os “cabeçalhos”. Esses números vão aumentar com o tempo.
Ex.:
A2=22333333333; B2=22333333334; C2=22333333335; D2...E2...F2...etc.
A partir da Linha3 em diante possui Textos, em células abaixo de cada número.
Ex.:
A3= Texto; A4= Texto; A5= Texto; etc.
B3= Texto; B4= Texto; B5= Texto; etc.
C3= Texto; C4= Texto; C5= Texto; etc.

Sobre o UserForm2: (Ver imagem)
Possui o TxtBox5 e o ListBox2
O que eu preciso:
Ao digitar um número de 11 dígitos no TxtBox5, o código no evento Change localiza a célula que contém esse número, desce uma célula abaixo e dá um Crtl+Shift+Seta para baixo para selecionar todas as células preenchidas abaixo dessa mesma coluna(a partir da Linha3). E finalmente envia para o ListBox2 somente os textos escritos nessas células selecionadas.
Ex.:
Supondo que B2 = 22333333334 e de B3:B9 tenha 7 células preenchidas com textos, então o ListBox2 precisa carregar somente esses 7 textos – um abaixo do outro; como se fossem Linhas, mas entendo que são células. (rsrs)

Espero ter esclarecido.
Grato pela paciência e disposição em querer me ajudar.
Ficarei no aguardo.
Att.

[srobles]

jom,

Veja se o modelo em anexo atende sua necessidade.

[Jom]

Saulo, funcionou perfeitamente. RESOLVIDO com sucesso !
Agradeço muito por ter me ajudado com tanta rapidez.
Vc (e outros daqui do Fórum) merecem respeito e aplausos por serem tão prestativos, dispostos a ajudar, por usarem suas habilidades e qualificações sem cobrar nada e por disseminar conhecimentos sem egoísmo.
Saibam que o exemplo de vcs pode motivar outros.
Abraços companheiros !
Att.