Buenos dias grupo espero me puedan ayudar, esto es lo que neceisto hacer, y espero que a alguien mas le sirva, mi duda. Tengo una hoja donde tengo 44 columnas de las cuales filtro por varios tipos, [nombre empresa], ( [abiertas], [pendientes],[cerradas],[canceladas] ), ( [fecha inicio][fecha termino] ), en el formulario la columna [nombre empresa] lo tengo con un combobox, con checkbox [abiertas], [pendientes],[cerradas],[canceladas], con textbox [fecha inicio][fecha termino]. El codigo de filtrado ya los tengo, lo que no he podido hacer es, ya teniendo todo el filtrado, necesito seleccionar todo lo filtrado y pasarlo a otra hoja ya que solo necesito 14 de las 44, y asi pasarlo al listbox. ' ----------------- filtro empresa del combo box Hoja1.Range("a:aq").AutoFilter ' quito todo filtro existente en el rango Hoja1.Range("c2").AutoFilter Field:=3, Criteria1:=cbx_empresa.Value ' filtro por [nombre empresa] combobox '------------------ filtro los check box If ch_pend = True Then criterio = "P" Hoja1.Cells.Range("a:aq").AutoFilter Field:=17, Criteria1:=criterio ElseIf ch_abiertas = True Then criterio = "A" Hoja1.Cells.Range("a:aq").AutoFilter Field:=17, Criteria1:=criterio ElseIf ch_cerradas = True Then criterio = "CR" Hoja1.Cells.Range("a:aq").AutoFilter Field:=17, Criteria1:=criterio ElseIf ch_cancel = True Then criterio = "CA" Hoja1.Cells.Range("a:aq").AutoFilter Field:=17, Criteria1:=criterio End If '--------------------filtro por rango de fecha Hoja1.Range("b2").AutoFilter Field:=2, Criteria1:=">=" & Format(f_ini, "MM/DD/YYYY"), Operator:=xlAnd, Criteria2:="<=" & Format(f_term, "MM/DD/YYYY") ' pongo el formato de fecha estilo EU, ya que de otro modo no me lo toma. '------- aqui debo poner el codigo para pasar todo a otra hoja digamos hoja10, en esta parte es donde necesito de su ayuda. ' ! ' V ' -------con el siguiente codigo paso lo de la hoja 10 a list box Names.Add Name:="tabla1", RefersTo:="=Hoja10!A:Q" 'Crea nombre de rango fijo "tabla" With ListBox6 .ColumnCount = 14 .ColumnWidths = "30 pt; 50 pt; 120 pt; 40 pt; 40 pt; 40 pt; 40 pt;40 pt; 60 pt;60 pt;60 pt;60 pt;60 pt;60 pt" End With ListBox6.RowSource = "tabla1" Espero alguien me pueda apoyar, con la parte de copiar a la hoja 10 o si tienen alguna forma mejor se las agradesco. Saludos grupo Todo Excel. Buen día.

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

pasar los datos filtrados de una hoja a listbox

Autor del tema pepejlmh
Fecha de inicio 11 May 2016

pepejlmh

New member

11 May 2016

Buenos dias grupo espero me puedan ayudar, esto es lo que neceisto hacer, y espero que a alguien mas le sirva, mi duda.

Tengo una hoja donde tengo 44 columnas de las cuales filtro por varios...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Pregunta

Ayuda: macro para pasar información de un libro a otro según fecha de entrada de los datos

Respuestas: 0

2 Dic 2019

Coveal19

Pregunta

Pasar los datos de un listbox a una hoja

Respuestas: 6

7 Abr 2011

macc1968

Resuelto

Pasar items de un comboBox a los caption de etiquetas

Respuestas: 2

20 Sep 2022

nito1972

Pregunta

repasar todos los archivos de una carpeta

Respuestas: 0

21 May 2013

Horacionino

Pregunta

Macro q compara 2 libros y los tiene que pasar a un tercero

Respuestas: 1

28 Oct 2005

Andoni

Pregunta

filtrar y pasar filas automáticamente a otra hoja según un criterio

Respuestas: 5

14 Ago 2026

itu696

Resuelto

Casilla de verificación macro para pasar datos a otra hoja

Respuestas: 5

22 Nov 2025

jcvelez

Resuelto

Pasar Datos a otra hoja si se cumple una condicion

Respuestas: 5

21 Nov 2025

jcvelez

Pregunta

duda pasar texto de excel a word utilizando VBA

Respuestas: 3

15 Abr 2025

Frank2021

Resuelto

Pasar de ListBox a Rango en Hoja.

Respuestas: 6

27 Mar 2025

Jose Ignacio Pino Mondeja

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba