Me ahorraste 4 horas literal ayer hice eso manual para un reporte y me pidieron hacer otro igual (para no hacerte la historia larga) y con tu tutorial ya sé cómo hacer 140 archivos (o los que se necesiten) en cuestión de segundos, me impresionó como sabes tanto mil mil gracias
Excelente Amigo, me funcionó correctamente. En el mismo libro del cual se filtró la información para generar los archivos individuales existe otra hoja que quiero que se incluya en cada uno de los archivos cuando se ejecute la macro
Una pregunta: cómo integrar una macro de un encabezado a cada nuevo archivo. Es decir, que se pegue la información a partir, digamos, de la celda C10. Saludos.
Hats off , Excelente video una de las mejores macros que he visto en RUclips, joder macho!!!!!! completisimo, no se si; si has hecho alguna macro con matrices tipo tablas, ,como cuando quieres calcular pagos para diferentes tasa de interés.
Excelente macro, justo necesitaba algo parecido solo que al final tengo que descargarlo a unas capetas que se creen con otro filtro de la misma tabla y amarrados al criterio que hizo en el ejemplo y que se pongana ahi. Se nota que el expositor domina ya que ha programado en vivo para el video y sin editar, salvando los errores que son propios de cuando se hace de esa manera.
Muchiisimas gracias por el video. Realmente de gran utilidad !!. Tendras algun video explicativo, mostrando como realizar lo mismo pero guardando los archivos filtrados en "sub carpetas (hijas)" Desde ya muchisimas gracias
Impecable, muchas gracias. Como observación les cuento que si algún elemento de la variable a filtrar contiene dos puntos (:), se interrumpe y acusa error. En mi caso, la variable a filtrar son nombres de cursos, y logré que termine el proceso cambiando todos los : por -. Gracias por todo.
Hola, gracias por el aporte. El : es un caracter no permitido como nombre de libro, en su caso se tiene que hacer un replace como lo has hecho. Saludos.
Estoy muy agradecido con este tutorial, me ha servido muchísimo por meses!, lamentablemente para volúmenes grandes de filas sale un error, (tengo un excel con 200,000 filas), investigue bastante cual es el error en el código, pero no encontre solucion, entonces suelo partir el excel por partes, ni modo.
Excelente aporte. Me gustaria saber como seleccionar solo columnas especificas, y tambien que el nombre del archivo creado tenga cieta nomenclatura. Ojala me puedas apoyar.
Excelente video, y consulta, si mi archivo tiene mas datos arriba con datos generales de la empresa (como un encabezado) como puedo hacer para que se copie esa informacion en todos los libros?
para alguien que tuviese el mismo problema, busque y encontré que solo había que ponerle en vz de paste ---- pastespecial y con eso jala. saludos!!!!!!!!!!
HOLA BUEN DÍA DISCULPE SI REQUIERO HACER ESO QUE ESTA AQUI EN EL VIDEO, PERO QUIERO COMPBINAR DOS HOJAS PARA QUE DE AHI SE PUEDA HACER EL FILTRO SE PUEDE?
Muchas gracias por este buen video, muy claro, me funciono super. tengo una pregunta. estos reportes que se generan se deben presentar frecuéntenle y los tengo guardados en google drive. me gustaria reemplazar. sabes que debo incluir en VBA para que los remplace de manera automática? si los elimino pierden la ruta que los usuarios tiene por default. de antemano te agradezco todo el aporte con este video ya me ha ayudado bastante.
@@maihuire11 Gracias por la respuesta, ya logre solucionar la novedad Chat GPT me ayudo con la solución, incluí la función Kill. esta permite remplazar los archivos. Gracias nuevamente. ahora el reto que tengo es crear un múltiples libros con tres hojas una de ventas, otra de inventario y otra de NC de acuerdo a un filtro en comun.
Hola Rafa, muchas gracias por el video, me ha sido muy útil. A la hora de generar los libros nuevos no respeta el ancho de columnas de donde extraemos los datos. ¿hay alguna forma de predeterminar el ancho en algunas columnas de los nuevos libros desde la misma macro? Muchas gracias.
@@maihuire11 Hola de nuevo Rafa. Lo primero darte las gracias de nuevo, no consigo introducir en el macro de forma correcta .ColumnWidth (autoFit), tambien me he percatado que no respeta el tido de letra de la tabla que extraemos los datos, por ejemplo yo trabajo en Calibri y los libros generados vienen en Tahoma. ¿Me podrías indicar como solucionar esto? Muchísimas gracias de antemano.
@@cundialvarez5037 Hola, al momento de pegarlo deberias hacerlo como pegado especial y pegar los formatos tambien, te envio un ejemplo. Range("A1").Copy Range("B1").PasteSpecial xlPasteFormats
muchas gracias un favor quiero hacer lo mismo pero en vez de copiar a libros nuevos lo quiero copiar a hojas del mismo libro cual sería el código a cambiar? gracias por tu respuesta
Muchas gracias, Una pregunta cómo puedo añadir un comando que me sume los totales del filtro q hago en cada libro. Podría indicarle un diseño para la primera columna (un color al título). Muchas gracias!!!
Hola, para este ejemplo podrías colocar debajo del código "uFilaFiltro" el siguiente código: Dim valSubtotal As Long valSubtotal = Application.WorksheetFunction.SubTotal(9, Range("B2:B" & uFilaFiltro)) Para este ejemplo estoy suponiendo que los valores que deseas sumar estan en la columna "B" y "valSubtotal" seria la suma de tus datos filtrados para cada hoja, tu decides en donde colocar el valor de la variable. Saludos
@@maihuire11holaaa, muchas gracias por tu apoyo, disculpa añadi el código para la suma de los valores mostrados pero como añado el código para añadir el cálculo al nuevo workbook? Gracias de antemano
Como hago para que solo se seleccionen solo ciertas columnas al copiarlo, ya que selecciono las columnas me salta un error: Se ha producido un error '1004' en tiempo de ejecución: Error en el método 'range' de objeto_Worksheet'
gracias por el video esta todo muy bien explicado, me gustaria saber como hacer que los libros se guarden con el nombre del archivo original seguido del item de filtro, es esto posible?
Hola, Excelente tutorial, solo quisiera saber cómo puedo hacer para guardar esos libros en diferentes carpetas, por ejemplo con base a tu archivo sería crear una carpeta que diga "1990" y meter ahi todos los géneros que hubieron, y así, una carpeta por cada año y dentro los géneros. Espero haberme explicado.-
Buenos dias, exelente el video, pero tengo una duda, si yo quiero indicarle a la macro que solo busque algunos valores especificos cuando filtre que debería hacer , es decir cuando filtre en subjet que solo me busque dos o tres elementos y luego me esriba algo en otra columna de esos elementos para identificarlos , Mil gracias de antemano
Hola, en este caso ya no deberias usar la funcion DatosUnicos. Lo unico que deberás hacer es agregar esos elementos que quieres filtrar en tu coleccion.
Excelente trabajo, tengo una base de datos de 52,802 registros y requiero separarla en 36 archivos que son los datos únicos de mi columna, al correr la macro me da un error 6 de desbordamiento, me podrías ayudar a corregirla para que me incluya toda mi base de datos? El error aparece en la línea uFilaFiltro = wsHojaBase.Range …..
Sub FiltroMasivo() Dim Lista As Collection Dim item As Variant Dim wsHojaBase As Worksheet Dim uFila As Long Dim RangoDatos As Range Dim uFilaFiltro As Long Dim wbLibroNuevo As Workbook Dim RutaArchivos As String Application.ScreenUpdating = False Set wsHojaBase = ThisWorkbook.Worksheets("film") uFila = wsHojaBase.Range("A" & Rows.Count).End(xlUp).Row RutaArchivos = ThisWorkbook.Path & "\prov\" Set RangoDatos = wsHojaBase.UsedRange Set Lista = DatosUnicos(wsHojaBase.Range("B2:B" & uFila)) For Each item In Lista RangoDatos.AutoFilter Field:=2, Criteria1:=item uFilaFiltro = wsHojaBase.Range("A" & Rows.Count).End(xlUp).Row wsHojaBase.Range("B1:G" & uFilaFiltro).Copy Set wbLibroNuevo = Workbooks.Add wbLibroNuevo.Worksheets(1).Paste wbLibroNuevo.Worksheets(1).Name = "Proveedor"
wbLibroNuevo.Close SaveChanges:=True, Filename:=RutaArchivos & item & ".xlsx" Next item RangoDatos.AutoFilter MsgBox "Libros de excel generados con éxito", vbInformation, "Filtros" Application.ScreenUpdating = True End Sub
@@maihuire11 como hago eso, asi lo hice Sub FiltroMasivo() Dim Lista As Collection Dim item As Variant Dim wsHojaBase As Worksheet Dim uFila As Long Dim RangoDatos As Range Dim uFilaFiltro As Long Dim wbLibroNuevo As Workbook Dim RutaArchivos As String Application.ScreenUpdating = False Set wsHojaBase = ThisWorkbook.Worksheets("REPORTE") uFila = wsHojaBase.Range("A" & Rows.Count).End(xlUp).Row RutaArchivos = ThisWorkbook.Path & "\D\" Set RangoDatos = wsHojaBase.UsedRange Set Lista = DatosUnicos(wsHojaBase.Range("H2:H" & uFila)) For Each item In Lista RangoDatos.AutoFilter Field:=8, Criteria1:=item uFilaFiltro = wsHojaBase.Range("A" & Rows.Count).End(xlUp).Row = 259306 wsHojaBase.Range("A1:L" & uFilaFiltro).Copy
Set wbLibroNuevo = Workbooks.Add wbLibroNuevo.Worksheets(1).Paste wbLibroNuevo.Worksheets(1).Name = "Datos"
Un cordial saludo, agradezco la macro, coloque todo lo que indica y me sale el error 91, variable de objeto o bloque With no establecido, "RangoDatos.AutoFilter Field:=10, Criteria1:=Item" yo coloco el numero 10 porque la columna por la que intento fitrar es la J
Debes fijarte que tu variable RangoDatos este declarada como rango y tu luego set RangoDatos=wsHojaBase.UsedRange. Ya que el codigo que me mandas esta correcto.
@@maihuire11 Agradezco mucho su pronta respuesta. Si ya pude realizar el filtro, pero con un libro de muchas filas (cerca de 300.000) sale un error de congestion, y quisera saber si usted tiene una macro para enviar correos masivos con misto texto pero diferentes archivos anexos
Hola muchas gracias por la aportación me sirvió mucho, pero si también quisiera agregar en el mismo libro creado otra hoja con datos de otra columna filtrada cómo le hago?
Hola, es justo lo que necesito, pero me sale "error 1004" Error en el método AutoFilter de la clase Range, marcándolo en --> RangoDatos.AutoFilter Field:=2, Criteria1:=item (Le puse Field:=2 porque en la segunda columna están los datos a filtrar). Gracias por tu ayuda!!
Muchas gracias por tu aporte, me funcionó a la perfección con 56 datos que necesitaba separar de esa manera. Tengo un problema, descargó un .csv, le cambio la extensión a .txt, lo abro desde excel; aparece el asistente para importar texto; en el paso 1 le cambio el “Origen del archivo” a “Windows (ANSI)”, le pongo que la primera fila contiene títulos; en el paso 2 en los “Separadores” selecciono “Coma”; en el paso 3 en “Vista previa de los datos” selecciono algunas columnas para cambiarlas a “Texto” en la parte “Formato de los datos en columnas”; Finalizo y lo guardo a .xlsx. ¿Habrá una forma de hacer esto con una macro? De antemano te agradezco si me pudieras ayudar. Saludos.
SOS ya logré crear los archivos, excelente tutorial, sin embargo solo se copiaron los encabezados y no toda la información de las filas restantes AYUDA
Hola! Ayer pude ver cuál era el error, Gracias! en verdad me ayudó mucho el tutorial, ahora género mis estados de cuenta de mi cartera en menos de un minuto, cuando me tardaba más de 2horas en hacerlos.
Hola, Este video es increible y te doy mil gracias por ello. Pero quiero mejorarlo para aplicarlo a documentos con varias hojas: 1) Lo más difícil ya está hecho con este tutorial, pero yo lo que necesito es aplicarlo a un libro origen que va a tener una primera hoja de "Instrucciones" (o incluso dos) a la que no hay que hacerle nada pero sí debe aparecer en cada libro creado. Luego el libro origen va a tener varias hojas a las que tengo que realizarle todo esto y que por cada item único se me guarde la hoja inicial "Instrucciones" junto con el resto de hojas filtradas en un único documento. Y luego que pase al siguiente item y se comporte de la misma manera y cree otro nuevo documento y así sucesivamente. 2) Por otro lado, y para que lo anterior funcione de manera automática ya que cada hoja puede tener diferentes anchos de columna y al tener que utilizarlo para varias hojas de un mismo documento, ¿cómo puedo hacer para que se seleccione el ancho de columnas de manera automática en vez del ejemplo que has puesto (wsHojaBase.Range("A1:J" & uFilaFiltro).Copy)? 3) Y lo que quisiera es ponerle a los archivos finales el nombre de las hojas del libro origen. He visto en el vídeo que te ha dado error y lo has dejado finalmente sin resolver. Muchas gracias de antemano con tu ayuda. Ayudas a muchas personas con este tipo de contenido, sigue así, te deseo que crezca tu canal muchísimo y el éxito que mereces. Un enorme saludo.
Otra duda que tengo es la siguiente: 4) En mi hoja los datos útiles no empiezan en la segunda fila, sino en la tercera. Ya he corregido esto mediante: Set Lista = DatosUnicos(wsHojaBase.Range("A3:A" & uFila)) Pero no consigo que se me copie en la hojas las dos filas de la cabecera y simplemente se me copia la primera fila. Por favor, ¿me puedes ayudar @maihuire11? Muchas gracias de antemano.
Hola, funciona para la cantidad de libros que necesites, el problema puede ser que n esa lista de nombres existan caracteres no permitidos como ":/\?" Saludos
Hola! Excelente video, sol tengo un detalle, ya que al correr me arroja el error: Run-Time error 1004 Method "Close" of Object_workbook failed Alguien ha tenido lo mismo y lo ha solucionado? Se los agradeceria
@@maihuire11 Hola Ing, mi código quedo de la siguiente manera: Function DatosUnicos(Rango As Range) As Object Dim celda As Range Set DatosUnicos = New Collection On Error Resume Next For Each celda In Rango.Cells DatosUnicos.Add celda.Value, CStr(celda.Value) Next celda On Error GoTo 0 End Function Sub FiltroMasivo() Dim Lista As Collection Dim item As Variant Dim wsHojaBase As Worksheet Dim uFila As Long Dim RangoDatos As Range Dim uFilaFiltro As Long Dim wbLibroNuevo As Workbook Dim RutaArchivos As String Application.ScreenUpdating = False Set wsHojaBase = ThisWorkbook.Worksheets("Tienda") uFila = wsHojaBase.Range("A" & Rows.Count).End(xlUp).Row RutaArchivos = ThisWorkbook.Path & "\Macros2\" Set RangoDatos = wsHojaBase.UsedRange Set Lista = DatosUnicos(wsHojaBase.Range("J2:J" & uFila)) For Each item In Lista RangoDatos.AutoFilter Field:=10, Criteria1:=item uFilaFiltro = wsHojaBase.Range("A" & Rows.Count).End(xlUp).Row wsHojaBase.Range("A1:J" & uFilaFiltro).Copy
Set wbLibroNuevo = Workbooks.Add wbLibroNuevo.Worksheets(1).Paste
Next item RangoDatos.AutoFilter MsgBox "Libros de excel generados con éxito", vbInformation, "Filtros" Application.ScreenUpdating = True End Sub Son aproximadamente 61,880 registros Gracias por su ayuda
Buenas noches estimado, buen aporte el que realiza sin embargo requiero de algo mas puntual y espero pueda ayudarme, actualmente laboro en una corporacion y mi unidad es una empresa que presta servicios generales tanto a las unidades de negocio internas como entes externos; para el control y trazabilidad de mis servicios cuento con una matriz de trabajos donde se estipula NRO de orden, fecha de inicio de la actividad, descripcion de la actividad, solicitante, unidad de negocio, tipo de servicio y requiero realizar dos tipos de filtrado, uno por solicitante ya que al final de mes cada solicitante debe realizar una evaluacion de todos los servicios que solicitó y el otro tipo de filtrado es por unidad de negocio ya que al final de mes se debe pasar que servicios se realizaron por unidad de negocio, en sí lo que requiero son dos informes, uno para entrega del solicitante para enviarlo por correo y éste lo utilice como guia para la evaluacion de los servicios en el mes y otro para la entrega de la gerencia como parte de la gestion elaborada en el mes, ¿como podria adaptar estos escenarios con la modalidad de las macros? espero que pueda ayudarme estimado, si gusta puede escribir por mi correo hgarcia@imgc.us y mi nro de tlf +584249599898, saludos cordiales.
Me ahorraste 4 horas literal ayer hice eso manual para un reporte y me pidieron hacer otro igual (para no hacerte la historia larga) y con tu tutorial ya sé cómo hacer 140 archivos (o los que se necesiten) en cuestión de segundos, me impresionó como sabes tanto mil mil gracias
hola q bueno, me agrada saber que les ahorra mucho tiempo en su trabajo a las personas. Saludos desde Perú.
No sabes lo mucho que me haz ayudado
Muchisimas Gracias sufria con esto ahora a aplicar conocimintos
Era lo que andaba buscando, lo probaré con mi archivo de clientes. Saludos!
Exelente, justo lo que necesitaba, gracias me ahorraste mucho tiempo, estaran contentos mis jefes
Excelente Amigo, me funcionó correctamente. En el mismo libro del cual se filtró la información para generar los archivos individuales existe otra hoja que quiero que se incluya en cada uno de los archivos cuando se ejecute la macro
Muy buena explicacion, sin tantos rodeos. Excelente.
Muchas gracias por tu video, en verdad es lo que requeria.
Este video me cayó del cielo, justo estoy por hacer un trabajo de una mega base seccionando por una columna por archivo. Muy buen video!!!!
Que bueno que te haya servido. Muchos ya me pedían este video.
Excelente tutorial; justo lo que buscaba . Desde ya te sigo ! saludos
Muy útil. Súper bien explicado. Muchas gracias, era justo lo que requería.
Una pregunta: cómo integrar una macro de un encabezado a cada nuevo archivo. Es decir, que se pegue la información a partir, digamos, de la celda C10. Saludos.
Gracias por sus aportes, participemos sus archivos ✍️
Hats off , Excelente video una de las mejores macros que he visto en RUclips, joder macho!!!!!! completisimo, no se si; si has hecho alguna macro con matrices tipo tablas, ,como cuando quieres calcular pagos para diferentes tasa de interés.
Hola, que bueno que te haya servido. He trabajado con arrays(matrices), especificamente calcular pagos no. Saludos
@@maihuire11 bueno si nos presentas un caso de array estaría buenazo, gracias por contestar.
Excelente macro, justo necesitaba algo parecido solo que al final tengo que descargarlo a unas capetas que se creen con otro filtro de la misma tabla y amarrados al criterio que hizo en el ejemplo y que se pongana ahi.
Se nota que el expositor domina ya que ha programado en vivo para el video y sin editar, salvando los errores que son propios de cuando se hace de esa manera.
¡Gracias!
Muy buen video. Gracias por la explicación.
Me ha venido fenomenal, muy buena la macro , gracias por la aportacion
Excelente. Muchas gracias por la macro y por la explicación de ella. Un saludo
Muchas gracias, me sirvió muchisimo. Un like amigo. Sigue así
MUCHÍSIMAS GRACIAAAAAASSSSSS! ME SALVASTE LA VIDAAAAAAA
excelente trabajo!!! muchas gracias por tu gran a porte
Muchiisimas gracias por el video. Realmente de gran utilidad !!. Tendras algun video explicativo, mostrando como realizar lo mismo pero guardando los archivos filtrados en "sub carpetas (hijas)"
Desde ya muchisimas gracias
Hola, no lo tengo aún. Pero sería un buen video. Espero darme el tiempo. Saludos.
Muchas Gracias! muy util el video!!!
suscrito!
Hola, buenas noches.
¿Cómo lo puedo contactar para una asesoría? Al correr la macro se "truena" el proceso y no me genera los archivos.
Gracias.
Impecable, muchas gracias. Como observación les cuento que si algún elemento de la variable a filtrar contiene dos puntos (:), se interrumpe y acusa error. En mi caso, la variable a filtrar son nombres de cursos, y logré que termine el proceso cambiando todos los : por -. Gracias por todo.
Hola, gracias por el aporte. El : es un caracter no permitido como nombre de libro, en su caso se tiene que hacer un replace como lo has hecho. Saludos.
Estoy muy agradecido con este tutorial, me ha servido muchísimo por meses!, lamentablemente para volúmenes grandes de filas sale un error, (tengo un excel con 200,000 filas), investigue bastante cual es el error en el código, pero no encontre solucion, entonces suelo partir el excel por partes, ni modo.
Hola que tal, que error te sale? Estas seguro que es por la cantidad de filas?
Si es correcto! Para cantidades grandes ya marca error ! Y es por la cantidad de registros 😢
Para cantidades pequeñas está súper bien!
@@maihuire11 realmente no se ha que se deba, revise el codigo con detenimiento y no deberia producir un error, sin embargo sucede.
Excelente aporte. Me gustaria saber como seleccionar solo columnas especificas, y tambien que el nombre del archivo creado tenga cieta nomenclatura. Ojala me puedas apoyar.
Es posible que ajustes la macro para que se ejecute y se respete el ancho de columnas ? te lo agradeceria gracias
Excelente video, y consulta, si mi archivo tiene mas datos arriba con datos generales de la empresa (como un encabezado) como puedo hacer para que se copie esa informacion en todos los libros?
😲 Gracias!
Excelente !!!
Hola y si deseo que me genere archivos pero en formato CSV como puedo hacer? gracias
Hola, como descargo la macro ?
Estimado, mucha gracias por el video. Esto se puede aplicar cuando tengo una base de datos con tabla dinámica?, muchas gracias, quedo atento.
Muchas gracias por el aporte...tengo problemas con el envio a la carpeta...como haría para que se guarde en el escritorio por ejemplo?
GRACIAS POR EL APORTE !!! LO UNICO QUE NO SE ES COMO HACER PARA QUE CONSERVE LAS FORMULAS DE LAS CELDAS COPIADAS YA EN LOS NUEVOS LIBROS GENERADOS.
para alguien que tuviese el mismo problema, busque y encontré que solo había que ponerle en vz de paste ---- pastespecial y con eso jala. saludos!!!!!!!!!!
Muchas gracias, me sirvió mucho, pero que cambios podria hacer si quiero que los archivos creados sean txt?
GRACIAS
HOLA BUEN DÍA DISCULPE SI REQUIERO HACER ESO QUE ESTA AQUI EN EL VIDEO, PERO QUIERO COMPBINAR DOS HOJAS PARA QUE DE AHI SE PUEDA HACER EL FILTRO SE PUEDE?
excelente....y podrias decirme donde obtener uno que me permita colocarlos como hojas del libro?
y si necesito que copie mas de una hoja del archivo?
Gracias por compartir buen aporte, pero si quisiera filtrar valores en vez de palabras, serian fechas?
Muchas gracias por este buen video, muy claro, me funciono super. tengo una pregunta. estos reportes que se generan se deben presentar frecuéntenle y los tengo guardados en google drive. me gustaria reemplazar. sabes que debo incluir en VBA para que los remplace de manera automática? si los elimino pierden la ruta que los usuarios tiene por default. de antemano te agradezco todo el aporte con este video ya me ha ayudado bastante.
Hola, no he trabajado con google Drive.
@@maihuire11 Gracias por la respuesta, ya logre solucionar la novedad Chat GPT me ayudo con la solución, incluí la función Kill. esta permite remplazar los archivos. Gracias nuevamente. ahora el reto que tengo es crear un múltiples libros con tres hojas una de ventas, otra de inventario y otra de NC de acuerdo a un filtro en comun.
Hola Rafa, muchas gracias por el video, me ha sido muy útil.
A la hora de generar los libros nuevos no respeta el ancho de columnas de donde extraemos los datos.
¿hay alguna forma de predeterminar el ancho en algunas columnas de los nuevos libros desde la misma macro?
Muchas gracias.
Hola, puedes usar la propiedad .ColumnWidth para poner el ancho de columna.
@@maihuire11 Muchas gracias
@@maihuire11 Hola de nuevo Rafa.
Lo primero darte las gracias de nuevo, no consigo introducir en el macro de forma correcta .ColumnWidth (autoFit), tambien me he percatado que no respeta el tido de letra de la tabla que extraemos los datos, por ejemplo yo trabajo en Calibri y los libros generados vienen en Tahoma.
¿Me podrías indicar como solucionar esto?
Muchísimas gracias de antemano.
@@cundialvarez5037 Hola, al momento de pegarlo deberias hacerlo como pegado especial y pegar los formatos tambien, te envio un ejemplo.
Range("A1").Copy
Range("B1").PasteSpecial xlPasteFormats
@@maihuire11 Muchas gracias por tu rápida respuesta.
Un saludo.
muchas gracias un favor quiero hacer lo mismo pero en vez de copiar a libros nuevos lo quiero copiar a hojas del mismo libro cual sería el código a cambiar? gracias por tu respuesta
Hola en este caso ya no deberías colocar workbook.open
como genero en formato PDF, que cierre los archivos de los filtros? ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Rutaarchivo & item
Buenas noches. Estoy tratando de adaptar el archivo para lo que necesito y me han salido algunos errores. No se si puedes darme una mano
Hola, cual es el error que te sale y en que parte de tu código.
Buenos días. Puedes pasar la macro por aquí?
Alguien tiene el codigo?
Amigo, cómo hago para nombrar la Hoja Nueva o Pestaña. Por favor, mil gracias !!!
Muchas gracias, Una pregunta cómo puedo añadir un comando que me sume los totales del filtro q hago en cada libro. Podría indicarle un diseño para la primera columna (un color al título). Muchas gracias!!!
Hola, para este ejemplo podrías colocar debajo del código "uFilaFiltro" el siguiente código:
Dim valSubtotal As Long
valSubtotal = Application.WorksheetFunction.SubTotal(9, Range("B2:B" & uFilaFiltro))
Para este ejemplo estoy suponiendo que los valores que deseas sumar estan en la columna "B" y "valSubtotal" seria la suma de tus datos filtrados para cada hoja, tu decides en donde colocar el valor de la variable.
Saludos
Mil graciasss, ni sabes cuánto me estás ayudando!!! Y proteger cada uno de los fichero Excel que se generan para que nadie pueda tocarlos??
@@maihuire11holaaa, muchas gracias por tu apoyo, disculpa añadi el código para la suma de los valores mostrados pero como añado el código para añadir el cálculo al nuevo workbook? Gracias de antemano
Como hago para que solo se seleccionen solo ciertas columnas al copiarlo, ya que selecciono las columnas me salta un error: Se ha producido un error '1004' en tiempo de ejecución: Error en el método 'range' de objeto_Worksheet'
gracias por el video esta todo muy bien explicado, me gustaria saber como hacer que los libros se guarden con el nombre del archivo original seguido del item de filtro, es esto posible?
Si es posible.
Hola,
Excelente tutorial, solo quisiera saber cómo puedo hacer para guardar esos libros en diferentes carpetas, por ejemplo con base a tu archivo sería crear una carpeta que diga "1990" y meter ahi todos los géneros que hubieron, y así, una carpeta por cada año y dentro los géneros. Espero haberme explicado.-
Hola, quizás podría hacer un vídeo sobre eso.
Buenos dias, exelente el video, pero tengo una duda, si yo quiero indicarle a la macro que solo busque algunos valores especificos cuando filtre que debería hacer , es decir cuando filtre en subjet que solo me busque dos o tres elementos y luego me esriba algo en otra columna de esos elementos para identificarlos , Mil gracias de antemano
Hola, en este caso ya no deberias usar la funcion DatosUnicos. Lo unico que deberás hacer es agregar esos elementos que quieres filtrar en tu coleccion.
Excelente trabajo, tengo una base de datos de 52,802 registros y requiero separarla en 36 archivos que son los datos únicos de mi columna, al correr la macro me da un error 6 de desbordamiento, me podrías ayudar a corregirla para que me incluya toda mi base de datos?
El error aparece en la línea
uFilaFiltro = wsHojaBase.Range …..
Hola deberías modificar está Línea.
Dim uFilaFiltro as long ( ahi se cambia integer x long)
@@maihuire11 Muchas gracias, problema resuelto
Estimado amigo me sale error 1004 en tiempo de ejecución , no se puede tener acceso al archivo.
Sub FiltroMasivo()
Dim Lista As Collection
Dim item As Variant
Dim wsHojaBase As Worksheet
Dim uFila As Long
Dim RangoDatos As Range
Dim uFilaFiltro As Long
Dim wbLibroNuevo As Workbook
Dim RutaArchivos As String
Application.ScreenUpdating = False
Set wsHojaBase = ThisWorkbook.Worksheets("film")
uFila = wsHojaBase.Range("A" & Rows.Count).End(xlUp).Row
RutaArchivos = ThisWorkbook.Path & "\prov\"
Set RangoDatos = wsHojaBase.UsedRange
Set Lista = DatosUnicos(wsHojaBase.Range("B2:B" & uFila))
For Each item In Lista
RangoDatos.AutoFilter Field:=2, Criteria1:=item
uFilaFiltro = wsHojaBase.Range("A" & Rows.Count).End(xlUp).Row
wsHojaBase.Range("B1:G" & uFilaFiltro).Copy
Set wbLibroNuevo = Workbooks.Add
wbLibroNuevo.Worksheets(1).Paste
wbLibroNuevo.Worksheets(1).Name = "Proveedor"
wbLibroNuevo.Close SaveChanges:=True, Filename:=RutaArchivos & item & ".xlsx"
Next item
RangoDatos.AutoFilter
MsgBox "Libros de excel generados con éxito", vbInformation, "Filtros"
Application.ScreenUpdating = True
End Sub
Debes colocarle la ruta correcta del libro que se va a generar.
@@maihuire11 encantado te retribuirle por tutoria me podrías ayudar ?
ayuda error 1004 - en wsHojaBase.Range("A1:L" & uFilaFiltro).Copy - mi excel tiene 259306 registros
Declara la variable ufilaFiltro como long
@@maihuire11 como hago eso, asi lo hice
Sub FiltroMasivo()
Dim Lista As Collection
Dim item As Variant
Dim wsHojaBase As Worksheet
Dim uFila As Long
Dim RangoDatos As Range
Dim uFilaFiltro As Long
Dim wbLibroNuevo As Workbook
Dim RutaArchivos As String
Application.ScreenUpdating = False
Set wsHojaBase = ThisWorkbook.Worksheets("REPORTE")
uFila = wsHojaBase.Range("A" & Rows.Count).End(xlUp).Row
RutaArchivos = ThisWorkbook.Path & "\D\"
Set RangoDatos = wsHojaBase.UsedRange
Set Lista = DatosUnicos(wsHojaBase.Range("H2:H" & uFila))
For Each item In Lista
RangoDatos.AutoFilter Field:=8, Criteria1:=item
uFilaFiltro = wsHojaBase.Range("A" & Rows.Count).End(xlUp).Row = 259306
wsHojaBase.Range("A1:L" & uFilaFiltro).Copy
Set wbLibroNuevo = Workbooks.Add
wbLibroNuevo.Worksheets(1).Paste
wbLibroNuevo.Worksheets(1).Name = "Datos"
wbLibroNuevo.Close SaveChanges:=True, Filename:="D" & item & ".xlsx"
Next item
RangoDatos.AutoFilter
MsgBox "Libros de excel generados con éxito", vbInformation, "Filtros"
Application.ScreenUpdating = True
End Sub
amigo ya me salió gracias ya vi el error
@@mariasaracastanedaolachea8777 podrías compartir la solución? No he podido, o pegar aquí el código correcto?
Un cordial saludo, agradezco la macro, coloque todo lo que indica y me sale el error 91, variable de objeto o bloque With no establecido, "RangoDatos.AutoFilter Field:=10, Criteria1:=Item" yo coloco el numero 10 porque la columna por la que intento fitrar es la J
Debes fijarte que tu variable RangoDatos este declarada como rango y tu luego set RangoDatos=wsHojaBase.UsedRange. Ya que el codigo que me mandas esta correcto.
@@maihuire11 Agradezco mucho su pronta respuesta. Si ya pude realizar el filtro, pero con un libro de muchas filas (cerca de 300.000) sale un error de congestion, y quisera saber si usted tiene una macro para enviar correos masivos con misto texto pero diferentes archivos anexos
Hola muchas gracias por la aportación me sirvió mucho, pero si también quisiera agregar en el mismo libro creado otra hoja con datos de otra columna filtrada cómo le hago?
Si quieres filtrar otra columna deberias hacer los mismos pasos.
Hola, es justo lo que necesito, pero me sale "error 1004" Error en el método AutoFilter de la clase Range, marcándolo en --> RangoDatos.AutoFilter Field:=2, Criteria1:=item (Le puse Field:=2 porque en la segunda columna están los datos a filtrar). Gracias por tu ayuda!!
Pudiste arreglarlo? Tengo el mismo error
Aquí me atore también 🥲
Me sale igual, lo pudieron solucionar?
Lo solucioné poniendo los datos a filtrar en la columna A
Me acabo de pelear con eso también y fue porque mi rangos estaban en tablas tienes que convertir esa tabla en rango nuevamente 😅
Muchas gracias por tu aporte, me funcionó a la perfección con 56 datos que necesitaba separar de esa manera.
Tengo un problema, descargó un .csv, le cambio la extensión a .txt, lo abro desde excel; aparece el asistente para importar texto; en el paso 1 le cambio el “Origen del archivo” a “Windows (ANSI)”, le pongo que la primera fila contiene títulos; en el paso 2 en los “Separadores” selecciono “Coma”; en el paso 3 en “Vista previa de los datos” selecciono algunas columnas para cambiarlas a “Texto” en la parte “Formato de los datos en columnas”; Finalizo y lo guardo a .xlsx.
¿Habrá una forma de hacer esto con una macro?
De antemano te agradezco si me pudieras ayudar. Saludos.
SOS ya logré crear los archivos, excelente tutorial, sin embargo solo se copiaron los encabezados y no toda la información de las filas restantes AYUDA
excelente video, por qué me sale un aviso error 400 "error al guardar"?, me podrían ayudar mil gracias
Tengo el mismo problema
Hola, muy buen ejemplo para lo que necesitaba, pero el ciclo no lo completa, es decir solo genera un solo Archivo y no hace los demás Ítems
Hola, todo depende si estas tomando todas las filas.
Hola! Ayer pude ver cuál era el error, Gracias! en verdad me ayudó mucho el tutorial, ahora género mis estados de cuenta de mi cartera en menos de un minuto, cuando me tardaba más de 2horas en hacerlos.
@@ErikaSanchez-nv8uq Que bueno por ti, me alegro.
Seria interesante que cuando se guarden en la carpeta se guarden en Pdf
excelente
Cuando ejecuto el macro me sale un error de 6 en tiempor de ejecucion : Desbordamiento
Hola, quizas tu tengas muchos registros en tu hoja de excel. A tus variables que estan como "integer" cambialos a "long"
Saludos
@@maihuire11 Gracias!!!! en serio me ahorraste un monton de tiempo. sigue haciendo videos así!!
Hola,
Este video es increible y te doy mil gracias por ello. Pero quiero mejorarlo para aplicarlo a documentos con varias hojas:
1) Lo más difícil ya está hecho con este tutorial, pero yo lo que necesito es aplicarlo a un libro origen que va a tener una primera hoja de "Instrucciones" (o incluso dos) a la que no hay que hacerle nada pero sí debe aparecer en cada libro creado. Luego el libro origen va a tener varias hojas a las que tengo que realizarle todo esto y que por cada item único se me guarde la hoja inicial "Instrucciones" junto con el resto de hojas filtradas en un único documento.
Y luego que pase al siguiente item y se comporte de la misma manera y cree otro nuevo documento y así sucesivamente.
2) Por otro lado, y para que lo anterior funcione de manera automática ya que cada hoja puede tener diferentes anchos de columna y al tener que utilizarlo para varias hojas de un mismo documento, ¿cómo puedo hacer para que se seleccione el ancho de columnas de manera automática en vez del ejemplo que has puesto (wsHojaBase.Range("A1:J" & uFilaFiltro).Copy)?
3) Y lo que quisiera es ponerle a los archivos finales el nombre de las hojas del libro origen. He visto en el vídeo que te ha dado error y lo has dejado finalmente sin resolver.
Muchas gracias de antemano con tu ayuda.
Ayudas a muchas personas con este tipo de contenido, sigue así, te deseo que crezca tu canal muchísimo y el éxito que mereces. Un enorme saludo.
Otra duda que tengo es la siguiente:
4) En mi hoja los datos útiles no empiezan en la segunda fila, sino en la tercera. Ya he corregido esto mediante:
Set Lista = DatosUnicos(wsHojaBase.Range("A3:A" & uFila))
Pero no consigo que se me copie en la hojas las dos filas de la cabecera y simplemente se me copia la primera fila.
Por favor, ¿me puedes ayudar @maihuire11?
Muchas gracias de antemano.
Hola muchas gracias por el video. porque solo me permite generar 15 archivos y luego me salta error. necesito más de 100 archivos aprox.
Hola, funciona para la cantidad de libros que necesites, el problema puede ser que n esa lista de nombres existan caracteres no permitidos como ":/\?" Saludos
Amigo, me ahorraste mucho tiempo, puedo aportar de alguna forma?
Hola que bueno que te haya ayudado. No me habia puesto a pensar que alguien quiera aportar. Lo pensaré.
@@maihuire11 avísame si te interesa
@@BenjaGm hola puedes hacerlo a través de paypal si deseas.
Me salio Error de compilación:
No se ha definido el tipo definido del usuario.
Y luego me pone en amarillo Sub FiltroMasivo()😭😭😭😭😭😭
Hola!
Excelente video, sol tengo un detalle, ya que al correr me arroja el error:
Run-Time error 1004
Method "Close" of Object_workbook failed
Alguien ha tenido lo mismo y lo ha solucionado?
Se los agradeceria
Hola el error indica que no funciona el método close del libro. Cual es tu código de cerrar el libro?
@@maihuire11 Hola Ing, mi código quedo de la siguiente manera:
Function DatosUnicos(Rango As Range) As Object
Dim celda As Range
Set DatosUnicos = New Collection
On Error Resume Next
For Each celda In Rango.Cells
DatosUnicos.Add celda.Value, CStr(celda.Value)
Next celda
On Error GoTo 0
End Function
Sub FiltroMasivo()
Dim Lista As Collection
Dim item As Variant
Dim wsHojaBase As Worksheet
Dim uFila As Long
Dim RangoDatos As Range
Dim uFilaFiltro As Long
Dim wbLibroNuevo As Workbook
Dim RutaArchivos As String
Application.ScreenUpdating = False
Set wsHojaBase = ThisWorkbook.Worksheets("Tienda")
uFila = wsHojaBase.Range("A" & Rows.Count).End(xlUp).Row
RutaArchivos = ThisWorkbook.Path & "\Macros2\"
Set RangoDatos = wsHojaBase.UsedRange
Set Lista = DatosUnicos(wsHojaBase.Range("J2:J" & uFila))
For Each item In Lista
RangoDatos.AutoFilter Field:=10, Criteria1:=item
uFilaFiltro = wsHojaBase.Range("A" & Rows.Count).End(xlUp).Row
wsHojaBase.Range("A1:J" & uFilaFiltro).Copy
Set wbLibroNuevo = Workbooks.Add
wbLibroNuevo.Worksheets(1).Paste
wbLibroNuevo.Close SaveChanges:=True, Filename:=RutaArchivos & item & ".xlsx"
Next item
RangoDatos.AutoFilter
MsgBox "Libros de excel generados con éxito", vbInformation, "Filtros"
Application.ScreenUpdating = True
End Sub
Son aproximadamente 61,880 registros
Gracias por su ayuda
Buenas noches estimado, buen aporte el que realiza sin embargo requiero de algo mas puntual y espero pueda ayudarme, actualmente laboro en una corporacion y mi unidad es una empresa que presta servicios generales tanto a las unidades de negocio internas como entes externos; para el control y trazabilidad de mis servicios cuento con una matriz de trabajos donde se estipula NRO de orden, fecha de inicio de la actividad, descripcion de la actividad, solicitante, unidad de negocio, tipo de servicio y requiero realizar dos tipos de filtrado, uno por solicitante ya que al final de mes cada solicitante debe realizar una evaluacion de todos los servicios que solicitó y el otro tipo de filtrado es por unidad de negocio ya que al final de mes se debe pasar que servicios se realizaron por unidad de negocio, en sí lo que requiero son dos informes, uno para entrega del solicitante para enviarlo por correo y éste lo utilice como guia para la evaluacion de los servicios en el mes y otro para la entrega de la gerencia como parte de la gestion elaborada en el mes, ¿como podria adaptar estos escenarios con la modalidad de las macros? espero que pueda ayudarme estimado, si gusta puede escribir por mi correo hgarcia@imgc.us y mi nro de tlf +584249599898, saludos cordiales.
estimado segui los pasos pero me sale este mensaje "No se puede ejecutar código en modo de interrupción", a que se deberá esto??
especificamente al colocar el comando de la hoja que quiero realizar las operaciones
me sale error 6 desbordamiento ayuda...
Hola, cuando ocurre eso en que línea se marca error?
brooo, muchas gracias!, pero no me funciono con un excel de mas 100.000 registros
Hola, que pasó se colgo tu archivo o te sale algun error?
Me salía, error de desbordamiento, pero le cambié el integer a long y corrió perfectamente, muchas gracias!
Y error 1004
Me sale error 9
Hola, puedes indicarme cual es tu linea de código donde te sale error?
Mis Dieses
¡Gracias!