buen día. agradezco la ayuda que me han brindado en ocasiones anteriores, y nuevamente vengo a solicitar su ayuda con un código que intento hacer funcionar y que no logro que funcione, les comento que no se nada de macros lo poco que he logrado aprender es visitando este foro, ya que además de la ayuda que brindan también explican los códigos (soluciones que proponen) y eso ayuda bastante a los principiantes como yo. ahora lo que intento hacer con la macro es que filtre una información en el libro 1 (filtro avanzado) y luego lo filtrado lo copie en otro libro, eso debo hacerlo varias veces con la diferencia de los datos que filtra, intento hacer que si por ejemplo en el primer filtro no se encuentra información( valido el dato de una celda) pase al siguiente y haga una nueva búsqueda. y así sucesivamente, los problemas que me da el código es que a veces me funciona dos veces( quiero decir me guarda los primeros dos libros) y luego se detiene sin mas. y también cuando solo encuentra un dato en el filtro me da error. he intentado hacerlo paso por paso con F8 para ver donde esta el problema y lo que he notado es que cuando pego la información en el libro 2 la macro entra a otra macro que convierte números en letras y allí se forma un bucle que no me deja salir. este es el código que tengo hasta ahora, además de esta parte debo hacer una parte igual que utilice los libros que llevan por nombre Notas de crédito. puse en negrita la parte donde se pasa a la otra macro de convertir números a letras. Sub Macro6() ' ' Macro6 Macro ' ' Range("Q4:AB49").Select Selection.ClearContents 'FACTURAS DE WALMART Range("Q2").Select ActiveCell.FormulaR1C1 = "WALMART" Range("R2").Select ActiveCell.FormulaR1C1 = "FACTURA" Range("D1:O150").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ "Q1:R2"), CopyToRange:=Range("Q4:AB4"), Unique:=False If Range("Z5").Value >= 1 Then Workbooks.Open Filename:= _ "\\GTD001TER01\Aplicaciones$\FACTURACION\USO DIARIO FACTURACION\Facturas de Gastos\BASE\FACTURAS HORTIFRUTI WALMART.xlsm" _ , Notify:=False 'COMIENZA LA COPIA Windows("combox.xlsm").Activate Range("T1").Copy Windows("FACTURAS HORTIFRUTI WALMART.xlsm").Activate Range("B3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("combox.xlsm").Activate Range("X5").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Windows("FACTURAS HORTIFRUTI WALMART.xlsm").Activate Range("H3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("combox.xlsm").Activate Range("Y5:AA5").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Windows("FACTURAS HORTIFRUTI WALMART.xlsm").Activate Range("J3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 'GUARDA EL ARCHIVO CON NOMBRE DIFERENTE. nombre = "FACTURAS HORTIFRUTI WALMART " & Day(Range("B3").Value) & "-" & Month(Range("B3").Value) & "-" & Year(Range("B3").Value) ActiveWorkbook.SaveAs Filename:= _ "\\GTD001TER01\Aplicaciones$\FACTURACION\USO DIARIO FACTURACION\Facturas de Gastos\" & nombre & "" _ , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False Sheets("Resumen").Select 'ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _ ' IgnorePrintAreas:=False ActiveWindow.Close Else 'FACTURAS DE SUPER Windows("combox.xlsm").Activate Range("Q2").Select ActiveCell.FormulaR1C1 = "SUPER" Range("R2").Select ActiveCell.FormulaR1C1 = "FACTURA" Range("D1:O150").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ "Q1:R2"), CopyToRange:=Range("Q4:AB4"), Unique:=False If Range("Z5").Value >= 1 Then Workbooks.Open Filename:= _ "\\GTD001TER01\Aplicaciones$\FACTURACION\USO DIARIO FACTURACION\Facturas de Gastos\BASE\FACTURAS HORTIFRUTI SUPER.xlsm" _ , Notify:=False 'COMIENZA LA COPIA Windows("combox.xlsm").Activate Range("T1").Copy Windows("FACTURAS HORTIFRUTI SUPER.xlsm").Activate Range("B3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("combox.xlsm").Activate Range("X5").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Windows("FACTURAS HORTIFRUTI SUPER.xlsm").Activate Range("H3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("combox.xlsm").Activate Range("Y5:AA5").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Windows("FACTURAS HORTIFRUTI SUPER.xlsm").Activate Range("J3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 'GUARDA EL ARCHIVO CON NOMBRE DIFERENTE. nombre = "FACTURAS HORTIFRUTI SUPER " & Day(Range("B3").Value) & "-" & Month(Range("B3").Value) & "-" & Year(Range("B3").Value) ActiveWorkbook.SaveAs Filename:= _ "\\GTD001TER01\Aplicaciones$\FACTURACION\USO DIARIO FACTURACION\Facturas de Gastos\" & nombre & "" _ , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False Sheets("Resumen").Select 'ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _ ' IgnorePrintAreas:=False ActiveWindow.Close Else 'FACTURAS DE MAXI Windows("combox.xlsm").Activate Range("Q2").Select ActiveCell.FormulaR1C1 = "MAXI" Range("R2").Select ActiveCell.FormulaR1C1 = "FACTURA" Range("D1:O150").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ "Q1:R2"), CopyToRange:=Range("Q4:AB4"), Unique:=False If Range("Z5").Value >= 1 Then Workbooks.Open Filename:= _ "\\GTD001TER01\Aplicaciones$\FACTURACION\USO DIARIO FACTURACION\Facturas de Gastos\BASE\FACTURAS HORTIFRUTI MAXI.xlsm" _ , Notify:=False 'COMIENZA LA COPIA Windows("combox.xlsm").Activate Range("T1").Copy Windows("FACTURAS HORTIFRUTI MAXI.xlsm").Activate Range("B3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("combox.xlsm").Activate Range("X5").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Windows("FACTURAS HORTIFRUTI MAXI.xlsm").Activate Range("H3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("combox.xlsm").Activate Range("Y5:AA5").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Windows("FACTURAS HORTIFRUTI MAXI.xlsm").Activate Range("J3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 'GUARDA EL ARCHIVO CON NOMBRE DIFERENTE. nombre = "FACTURAS HORTIFRUTI MAXI " & Day(Range("B3").Value) & "-" & Month(Range("B3").Value) & "-" & Year(Range("B3").Value) ActiveWorkbook.SaveAs Filename:= _ "\\GTD001TER01\Aplicaciones$\FACTURACION\USO DIARIO FACTURACION\Facturas de Gastos\" & nombre & "" _ , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False Sheets("Resumen").Select 'ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _ ' IgnorePrintAreas:=False ActiveWindow.Close Else 'FACTURAS DE DESPENSA Windows("combox.xlsm").Activate Range("Q2").Select ActiveCell.FormulaR1C1 = "DESPENSA" Range("R2").Select ActiveCell.FormulaR1C1 = "FACTURA" Range("D1:O150").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ "Q1:R2"), CopyToRange:=Range("Q4:AB4"), Unique:=False If Range("Z5").Value >= 1 Then Workbooks.Open Filename:= _ "\\GTD001TER01\Aplicaciones$\FACTURACION\USO DIARIO FACTURACION\Facturas de Gastos\BASE\FACTURAS HORTIFRUTI DESPENSA.xlsm" _ , Notify:=False 'COMIENZA LA COPIA Windows("combox.xlsm").Activate Range("T1").Copy Windows("FACTURAS HORTIFRUTI DESPENSA.xlsm").Activate Range("B3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("combox.xlsm").Activate Range("X5").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Windows("FACTURAS HORTIFRUTI DESPENSA.xlsm").Activate Range("H3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("combox.xlsm").Activate Range("Y5:AA5").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Windows("FACTURAS HORTIFRUTI DESPENSA.xlsm").Activate Range("J3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 'GUARDA EL ARCHIVO CON NOMBRE DIFERENTE. nombre = "FACTURAS HORTIFRUTI DESPENSA " & Day(Range("B3").Value) & "-" & Month(Range("B3").Value) & "-" & Year(Range("B3").Value) ActiveWorkbook.SaveAs Filename:= _ "\\GTD001TER01\Aplicaciones$\FACTURACION\USO DIARIO FACTURACION\Facturas de Gastos\" & nombre & "" _ , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False Sheets("Resumen").Select 'ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _ ' IgnorePrintAreas:=False ActiveWindow.Close End If End If End If End If End Sub

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.

Macro finaliza antes de tiempo, y no da mensaje

Autor del tema molder87
Fecha de inicio 10 May 2016

molder87

New member

10 May 2016

buen día.

agradezco la ayuda que me han brindado en ocasiones anteriores, y nuevamente vengo a solicitar su ayuda con un código que intento hacer funcionar y que no logro que funcione, les...

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

Macro

Respuestas: 3

Lunes a la(s) 16:43

Leopoldo Blancas

Resuelto

Macro para hacer una fórmula de Buscar

Respuestas: 6

Ayer a la(s) 14:11

Marielos Gil

Resuelto

Macro demasiado grande y pesada.

Respuestas: 8

4 Ago 2026

Leopoldo Blancas

Pregunta

Liberar memoria en macro

Respuestas: 2

8 Jul 2026

jeandro

Pregunta

Ejecución de macro 2 incidencias

Respuestas: 12

14 Jul 2026

jelsir79

Pregunta

Ayuda con Macro Excel

Respuestas: 2

1 Jul 2026

Leopoldo Blancas

Pregunta

No funciona macro de agregar unidades

Respuestas: 4

10 Jun 2026

Luisaco

Resuelto

Ayuda con macro para buscar y modificar datos de un listbox

Respuestas: 5

28 May 2026

katto

Pregunta

Ayuda con mi macro

Respuestas: 2

20 May 2026

Leopoldo Blancas

Pregunta

en excel 2021 la macro que contiene on error goto no me funciona.

Respuestas: 2

2 May 2026

JSD

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