Exportar a Excel(el resultado de una búsqueda en un cuadro de lista) desde un formulario con varios criterios de búsqueda.

Con un botón para Exportar a Excel

Si tu cuadro lista está en un formulario de excel.

En tu botón para exporta pon el siguiente código. Cambia "Hoja10" por la hoja donde quieres los datos:

Private Sub CommandButton1_Click()
  With Sheets("Hoja10")
    . Cells. ClearContents
    . Range("A2"). Resize(ListBox1. ListCount, ListBox1. ColumnCount).Value = ListBox1. List
  End With
End Sub

Gracias Dante por la pronta respuesta.

Eh, el cuadro lista lo tengo es en un formulario en Access, y la informaciñon la quiero exportar a Excel. Voy a tratar de jugar con ese código para ver, gracias nuevamente.

De Excel se poco por no decir nada. Habría que saber exactamente como es el formulario, ya que se puede hacer de varias formas. Por ejemplo, supongamos que el cuadro de lista te "filtra" por pais. En sus propiedades-eventos-después de actualizar puedes crear un procedimiento de evento y poner algo como

me.recordsource="select * from Clientes where pais='" & me.nombrecuadrolista & "'"

DoCmd. TransferSpreadsheet acExport, acexport, acSpreadsheetTypeExcel12... donde pueders decirle en que libro quieres que te lo guarde y en que rango de celdas quieres que te pegue los valores.

O también podrías usar

Docmd. Openquery"consulta1"

Docmd. Transfer... y "Transferir" esa consulta

Pero también puedes exportar el formulario tal como está después de filtrar

DoCmd.OutputTo acOutputForm, "Clientes", "ExcelWorkbook(*.xlsx)", "C:\users\.....\documents\....\libronuevo.xlsx", False, "", , acExportQualityPrint

Gracias Julián por la pronta respuesta.

Voy a tratar con estas líneas para ver si puedo solucionar mi inquietud.

hola, he tratado de varias formas y No he podido conseguir exportar solo el resultado de la búsqueda dentro del cuadro lista.

con este código exporta todos las datos de la  consulta.

Private Sub CmdExportar_Click()
DoCmd.OutputTo acOutputQuery, "Lista", acFormatXLSX, "", True
End Sub

con este código hago la búsqueda general y la especifica en el mismo código con menos variables de búsqueda en otros Cmd

Private Sub CmdBuscar_Click()
Dim Consulta As String
Consulta = "SELECT EQUIPO,  NOMBRE, CANTIDAD_MIEMBROS,  ACTIVO, INACTIVO, "
Consulta = Consulta & "FROM Lista "
Consulta = Consulta & "WHERE EQUIPO Like '*" & Me.txtBusca & "*' CANTIDAD_MIEMBROS Like '*" & Me.txtBusca & "*' OR NOMBRE Like '*" & Me.txtBusca & "*' OR ACTIVO Like '*" & Me.txtBusca & "*' OR INACTIVO Like '*" & Me.txtBusca & "*''"
Me.Lista.RowSource = Consulta
End Sub

con el  CmdBuscar busco un equipo X, y ese equipo X deseo exportarlo a Excel.

con otros CmdBuscarX, Si busco a los ACTIVOS de todos los equipos ese resultado de búsqueda que son por ejemplo 45 Activos de un total de 250 miembros, deseo poder exportar solo esos 45 miembros Activos a Excel.

Alguien podría ayudarme con esta interrogante?

Gracias!

Lo olvidaba de mencionar nuevamente, la información esta en un archivo de Access (tabla-Miembros, Consulta-Lista, Formulario-Buscar con el Cuadro Lista)

hola, al fin pude resolver mi inquietud, jugando(uniendo,quitando,poniendo ) información obtenida de varios lugares, de vosotros Todoexpertos y entre ellos:

http://www.mvp-access.com/foro/seleccionar-todos-las-lineas-de-un-cuadro-de-lista_topic80457.html 

https://www.facebook.com/VbaAccess

https://www.youtube.com/watch?v=dnnlkBVJKuk

Así quedo el código funcionando al Final por si alguien lo llegara a necesitar:

PARA EXPORTAR A EXCEL EL CONTENIDO FILTRADO DE UN CUADRO LISTA O IMPRIMIR EN REPOPRTE.

Private Sub btnImprimir_Click()
Dim IdItm As Variant, SQL As String
Dim i As Long

For i = 0 To Me.Lista.ListCount
Me.Lista.Selected(i) = True
Next

If Me.Lista.ItemsSelected.Count >= 1 Then
CurrentDb.Execute "DELETE FROM Tbl_Auxiliar", dbFailOnError
For Each IdItm In Me.Lista.ItemsSelected
CurrentDb.Execute "INSERT INTO Tbl_Auxiliar SELECT * FROM Tbl_Personas WHERE Id = " & Me.Lista.ItemData(IdItm) & "", dbFailOnError
Me.Lista.SetFocus: Me.Lista.Selected(IdItm) = False
Next IdItm
DoCmd.OutputTo acOutputTable, "Tbl_Auxiliar", "ExcelWorkbook(*.xlsx)", "C:\Users\Carlos\Desktop\Urra.XLSX", True
Me.Lista.Requery
Else
MsgBox "SELECCIONE UN REGISTRO", vbExclamation, "Aviso": Me.Lista.SetFocus
End If
End Sub

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

Private Sub CmdBuscar_Click()
Dim Consulta As String
Consulta = "SELECT Id, Nombre, ApellidoPaterno, ApellidoMaterno, Edad "
Consulta = Consulta & "FROM Tbl_Personas "
Consulta = Consulta & "WHERE Nombre Like '*" & Me.TxtBusqueda2 & "*' OR ApellidoPaterno Like '*" & Me.TxtBusqueda2 & "*' OR ApellidoMaterno Like '*" & Me.TxtBusqueda2 & "*' OR Edad Like '*" & Me.TxtBusqueda2 & "*'"
Me.Lista.Rowsource = Consulta

End Sub

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

Private Sub CmdLimpiar_Click()
Me.Lista.Rowsource = "SELECT Id, Nombre, ApellidoPaterno,ApellidoMaterno, Edad FROM Tbl_Personas"
Me.TxtBusqueda2 = ""
Me.TxtBusqueda2.SetFocus

End Sub

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

Gracias,  espero que le pueda ser utilidad a alguien.