Amigos, acabei adicionando mais uma aba no banco de dados e adicionei somente as colunas que eu quero que gere o relatorio, mas ainda tem uma coisa que eu nao consigo resolver nesta userform, quando carrega a data na listbox, a data vem com este formato;

mm/dd/yyyy e eu gostaria que retornasse assim, dd/mm/yyyy.
Aproveitando a publicaçao do projeto neste topico, em todos os formularios de pesquisa q sao tres, a data torna sempre destorcida, porque???

Abraço a todos.

Fabio Pradella

Nesses casos o normal e carregar o valor formatando-o
por exemplo:
Me.txtData.Text = Format(.Cells(indiceRegistro, col2).Value, "DD/MM/YYYY")
Me.txtHora.Text = Format(.Cells(indiceRegistro, col3).Value, "HH:MM:SS AM/PM")

Muito obrigado mais uma vez Reinaldo,

Resolvemos o problema do carregar, mas no frmFormularios, ainda continua carregando primeiro o mes depois o dia, e nao consigo entender o porque...

Um grande abraço.

Fabio, com a dica do reinaldo, resolvemos a questão de como será exibbida a Data no TextBox, mas a questão principal do problema, pelas ocorrencias que ja tive deste tipo, se dá no Lançamento, ou seja, a saida padrão de um textbox é TEXTO, então devemosrealizar a conversão no momneto em que lançarmos para a planilha, faça o seguinte teste e veja se funciona corretamente :

Na rotina SalvaRegistro, altere a linha :
.Cells(Indice, col2).Value = Me.txtData.Text por uma das abaixo e teste :

.Cells(Indice, col2).Value = CDate(txtdata.Value)
ou
.Cells(Indice, col2).Value = Format(Me.txtData.Text, "mm/dd/yyyy")

Assim lançamos no formato Data.

Quanto a questão de carregar o ListView só com os dados que queremos, apesar de você dizer que já ajustou, poderiámos utilizar outro rrecurso, só dependeria de se fazer outros ajustes, mas supondo que não quero que o listview carregue as Colunas "1, 4, 5 e 6", então adicionamos uma nova rotina ou aplicamos diretamente na origem :
Adicione um CommndButton só para realizar alguns testes, e associe a rotina abaixo :

Private Sub OcultaColunas()
    
    With lstLista
        .ColumnHeaders(1).Width = 0
        .ColumnHeaders(4).Width = 0
        .ColumnHeaders(5).Width = 0
        .ColumnHeaders(6).Width = 0
    End With

End Sub

Faça os testes e retorne.

[]s

Como voce esta mestre Mauro? Ja deu certo com o primeiro exemplo, agora retorna dd/mm/yyyy, quando o Reinaldo postou o exemplo para carregar, tentei daptar na rotina salvar mas faltou esperiencia, .Cells(Indice, col2).Value = Format Me.txtData.Text ( "mm/dd/yyyy"), ai dava erro, hehehe, mas aos pouquinhos ja arrisco copiando voces.
Quanto ao preenchimento da listbox vou testar agora, mas se voce perceber, estou com outro probleminha mas nao atrapalha muito, nao consegui diminuir a largura das colunas na frmFormularios.

Um grande abraço a voces dois e muito obrigado.

Todos os testes, formato data na rotina salvar e rotina ocultar colunas realizados com sucesso, abusando da vossa paciencia e deste mesmo topico, faço mais uma pergunta, nao consegui formatar a largura das colunas porque nao e um listview nao e isso??? sendo assim nao colunas.
E muito dicicil substituir esta lista por uma listview???

Obrigado.

Fabio Pradella

Fabio, em ListBox as propriedades são diferentes de se lidar.

Para ajustarmos as colunas do ListBox, podemos definir diretamente na rotina :

Define o Tamnho de 5 colunas:
ListBox1.ColumnWidths = "0,8 cm;1,8 cm;2 cm ;1,6 cm ;6,5 cm"

ou podemos utilizar outras rotinas associadas para ficar automatico :
Listbox Column Widths and Lengths -Autofit
http://www.excelforum.com/excel-program ... tofit.html

Showing An Array On A Form; Autosizing ColumnWidths Of A ListBox
http://www.jkp-ads.com/Articles/AutoSizeListBox01.asp

Se fizer uma pesquisa na net, encontrara varias outras formas.

Quanto a trocar ListBox por ListView, vai depender de seu avanço, mas neste caso acho que não será tão dificil, porque você já tem esta rotina em seu aplicativo, veja que em seu modelo somente este form tem ListBox, os demais são ListView preenchidos pela rotina "PopulaListBox", a mesma que preenche o ListBox, então, é só comparar as duas e encontrara a diferença, ficando bem simples a adaptação, alem de ser um desafio será um acrescimo ao seus conhecimentos.

[]s