Bom dia!!

Já consultou a nossa base?
https://cse.google.com.br/cse?cx=partne ... gsc.page=1

Att

Olá,
Já pesquisei e encontrei questões similares, mas não estou a conseguir adaptar ao meu cóidigo.

Private Sub PreencheLista(ByVal TextoDigitado As String)
Dim ws As Worksheet
Dim i As Integer
Dim x As Integer
Dim indiceLista As Integer
Dim coluna As Integer
Dim TextoCelula As String

Set ws = ThisWorkbook.Worksheets(NomePlanilha)
Dim Lista()

ReDim Lista(ws.UsedRange.Columns.Count, 0)

i = LinhaCabecalho + 1
indiceLista = 1
coluna = Me.ComboBoxCampos.ListIndex + 1
Call PreencheCabecalho(Lista)

With ListBoxLista

.Clear
.ColumnWidths = "60;60;100;70;160;60;40;40;60;60;60;60;60"

End With

With ws
While .Cells(i, coluna).Value <> Empty
TextoCelula = .Cells(i, coluna).Value
If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then

For x = 0 To ws.UsedRange.Columns.Count - 1
ReDim Preserve Lista(ws.UsedRange.Columns.Count, indiceLista)
Lista(x, indiceLista) = .Cells(i, x + 1)
Next

indiceLista = indiceLista + 1
End If
i = i + 1
Wend
End With

Boa tarde!!

Tem como ver seu arquivo modelo com o listbox e dados simulados?

Att

Seria algo =/- assim:

...
For x = 0 To ws.UsedRange.Columns.Count - 1
ReDim Preserve Lista(ws.UsedRange.Columns.Count, indiceLista)
if x=10 then
Lista(x, indiceLista) = format(.Cells(i, x + 1),"dd,mm,aaaa")
else
Lista(x, indiceLista) = .Cells(i, x + 1)
end if
Next
...

Aqui vai o anexo.

Bom dia,
Entretanto resolvi com a ajuda da resposta do Reinaldo.
Um grande obrigado.