ola em relação as colunas no list consegui modificar para somente as que eu preciso no meu caso somente tres colunas o codigo ficou assim:
popular o list:
Set conn = New ADODB.Connection
With conn
'.Provider = "Microsoft.JET.OLEDB.4.0" ' versão excel 2003
.Provider = "Microsoft.ACE.OLEDB.12.0" ' versão excel 2007
.ConnectionString = "Data Source=" & ThisWorkbook.FullName & ";Extended Properties=Excel 8.0;"
.Open
End With
sql = "SELECT codigo, Data, maquina FROM [HistoricoD$] order by Codigo desc" '
Set rst = New ADODB.Recordset
With rst
.ActiveConnection = conn
.Open sql, conn, adOpenDynamic, _
adLockBatchOptimistic
End With
aqui era que eu estava errando :
Private Sub lstLista_Click()
If lstLista.ListIndex > 0 Then
Dim indiceRegistro As Long
indiceRegistro = Me.ProcuraIndiceRegistroPodId(lstLista.List(lstLista.ListIndex, 0)) ' deixar coluna do codigo de acordo com instrução sql
If indiceRegistro <> -1 Then
Call Me.CarregaRegistroPorIndice(indiceRegistro)
End If
Else
lblMensagens.Caption = "É preciso selecionar um item válido na lista"
End If
End Sub
Agora para ficar muito bom, seria possivel adaptar a este list uma textbox para filtrar de acordo como vai sendo digitado....
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 29/11/2011 11:52 am