Macro Genera dos columnas de todo un libro

publicado el 28 de febrero6 años

El usuario Antoni, me creo una macro el año pasado que funcionaba para generar las dos columnas (código y precio) de todo el libro.

intento configurar para este nuevo libro, y no logro que funcione.

Aclaro que funciono con los tres libros anteriores a este ultimo.

El libro original tiene 17 hojas, adjunto una muestra de 5 Hojas.

Espero su ayuda!

Gracias

Lista100.xls

publicado el 28 de febrero6 años

Autor

Lo solucione con el siguiente código:

Sub MacroPH_CodPre()
Application.ScreenUpdating = False
Hoja18.Cells.ClearContents
Hoja18.Range("A1") = "Código"
Hoja18.Range("B1") = "Precio"

Proceso Sheets("Hoja1"), "A", 1, 1
Proceso Sheets("Hoja1"), "D", 1, 1
Proceso Sheets("Hoja1"), "G", 1, 1
Proceso Sheets("Hoja1"), "J", 1, 1

Proceso Sheets("Hoja2"), "A", 1, 1
Proceso Sheets("Hoja2"), "D", 1, 1
Proceso Sheets("Hoja2"), "G", 1, 1
Proceso Sheets("Hoja2"), "J", 1, 1

Proceso Sheets("Hoja3"), "A", 1, 1
Proceso Sheets("Hoja3"), "D", 1, 1
Proceso Sheets("Hoja3"), "G", 1, 1
Proceso Sheets("Hoja3"), "J", 1, 1

Proceso Sheets("Hoja4"), "A", 1, 1
Proceso Sheets("Hoja4"), "D", 1, 1
Proceso Sheets("Hoja4"), "G", 1, 1
Proceso Sheets("Hoja4"), "J", 1, 1

Proceso Sheets("Hoja5"), "A", 1, 1
Proceso Sheets("Hoja5"), "D", 1, 1
Proceso Sheets("Hoja5"), "G", 1, 1
Proceso Sheets("Hoja5"), "J", 1, 1

Proceso Sheets("Hoja6"), "A", 1, 1
Proceso Sheets("Hoja6"), "D", 1, 1
Proceso Sheets("Hoja6"), "G", 1, 1
Proceso Sheets("Hoja6"), "J", 1, 1

Proceso Sheets("Hoja7"), "A", 1, 1
Proceso Sheets("Hoja7"), "D", 1, 1
Proceso Sheets("Hoja7"), "G", 1, 1
Proceso Sheets("Hoja7"), "J", 1, 1

Proceso Sheets("Hoja8"), "A", 1, 1
Proceso Sheets("Hoja8"), "D", 1, 1
Proceso Sheets("Hoja8"), "G", 1, 1
Proceso Sheets("Hoja8"), "J", 1, 1

Proceso Sheets("Hoja9"), "A", 1, 1
Proceso Sheets("Hoja9"), "D", 1, 1
Proceso Sheets("Hoja9"), "G", 1, 1
Proceso Sheets("Hoja9"), "J", 1, 1

Proceso Sheets("Hoja10"), "A", 1, 1
Proceso Sheets("Hoja10"), "D", 1, 1
Proceso Sheets("Hoja10"), "G", 1, 1
Proceso Sheets("Hoja10"), "J", 1, 1

Proceso Sheets("Hoja11"), "A", 1, 1
Proceso Sheets("Hoja11"), "D", 1, 1
Proceso Sheets("Hoja11"), "G", 1, 1
Proceso Sheets("Hoja11"), "J", 1, 1

Proceso Sheets("Hoja12"), "A", 1, 1
Proceso Sheets("Hoja12"), "D", 1, 1
Proceso Sheets("Hoja12"), "G", 1, 1
Proceso Sheets("Hoja12"), "J", 1, 1

Proceso Sheets("Hoja13"), "A", 1, 1
Proceso Sheets("Hoja13"), "D", 1, 1
Proceso Sheets("Hoja13"), "G", 1, 1
Proceso Sheets("Hoja13"), "J", 1, 1

Proceso Sheets("Hoja14"), "A", 1, 1
Proceso Sheets("Hoja14"), "D", 1, 1
Proceso Sheets("Hoja14"), "G", 1, 1
Proceso Sheets("Hoja14"), "J", 1, 1

Proceso Sheets("Hoja15"), "A", 1, 1
Proceso Sheets("Hoja15"), "D", 1, 1
Proceso Sheets("Hoja15"), "G", 1, 1
Proceso Sheets("Hoja15"), "J", 1, 1

Proceso Sheets("Hoja16"), "A", 1, 1
Proceso Sheets("Hoja16"), "D", 1, 1
Proceso Sheets("Hoja16"), "G", 1, 1
Proceso Sheets("Hoja16"), "J", 1, 1

Proceso Sheets("Hoja17"), "A", 1, 1
Proceso Sheets("Hoja17"), "A", 1, 1
Proceso Sheets("Hoja17"), "A", 1, 1
Proceso Sheets("Hoja17"), "A", 1, 1






End Sub

Private Sub Proceso(Hoja As Worksheet, Columna As String, Fila As Long, Precios As Integer)
Dim FilaPrecios As Long, x As Long, y As Integer
With Hoja
   For x = Fila To .Range(Columna & Rows.Count).End(xlUp).Row
      For y = 1 To Precios
         If Not .Cells(x, Columna).Offset(, y) = "" And _
            Not .Cells(x, Columna) = "" Then
            FilaPrecios = Hoja18.Range("A" & Rows.Count).End(xlUp).Row + 1
            Hoja18.Range("A" & FilaPrecios) = .Cells(x, Columna)
            Hoja18.Range("B" & FilaPrecios) = .Cells(x, Columna).Offset(, y)
         End If
      Next
   Next
End With
Hoja18.Select
End Sub

Editado el el 28 de febrero6 años por exekyel2010

publicado el 28 de febrero6 años

Hace 1 hora, exekyel2010 dijo:

Sub MacroPH_CodPre() Application.ScreenUpdating = False Hoja18.Cells.ClearContents Hoja18.Range("A1") = "Código" Hoja18.Range("B1") = "Precio" Proceso Sheets("Hoja1"), "A", 1, 1 Proceso Sheets("Hoja1"), "D", 1, 1 Proceso Sheets("Hoja1"), "G", 1, 1 Proceso Sheets("Hoja1"), "J", 1, 1 Proceso Sheets("Hoja2"), "A", 1, 1 Proceso Sheets("Hoja2"), "D", 1, 1 Proceso Sheets("Hoja2"), "G", 1, 1 Proceso Sheets("Hoja2"), "J", 1, 1 Proceso Sheets("Hoja3"), "A", 1, 1 Proceso Sheets("Hoja3"), "D", 1, 1 Proceso Sheets("Hoja3"), "G", 1, 1 Proceso Sheets("Hoja3"), "J", 1, 1 Proceso Sheets("Hoja4"), "A", 1, 1 Proceso Sheets("Hoja4"), "D", 1, 1 Proceso Sheets("Hoja4"), "G", 1, 1 Proceso Sheets("Hoja4"), "J", 1, 1 Proceso Sheets("Hoja5"), "A", 1, 1 Proceso Sheets("Hoja5"), "D", 1, 1 Proceso Sheets("Hoja5"), "G", 1, 1 Proceso Sheets("Hoja5"), "J", 1, 1 Proceso Sheets("Hoja6"), "A", 1, 1 Proceso Sheets("Hoja6"), "D", 1, 1 Proceso Sheets("Hoja6"), "G", 1, 1 Proceso Sheets("Hoja6"), "J", 1, 1 Proceso Sheets("Hoja7"), "A", 1, 1 Proceso Sheets("Hoja7"), "D", 1, 1 Proceso Sheets("Hoja7"), "G", 1, 1 Proceso Sheets("Hoja7"), "J", 1, 1 Proceso Sheets("Hoja8"), "A", 1, 1 Proceso Sheets("Hoja8"), "D", 1, 1 Proceso Sheets("Hoja8"), "G", 1, 1 Proceso Sheets("Hoja8"), "J", 1, 1 Proceso Sheets("Hoja9"), "A", 1, 1 Proceso Sheets("Hoja9"), "D", 1, 1 Proceso Sheets("Hoja9"), "G", 1, 1 Proceso Sheets("Hoja9"), "J", 1, 1 Proceso Sheets("Hoja10"), "A", 1, 1 Proceso Sheets("Hoja10"), "D", 1, 1 Proceso Sheets("Hoja10"), "G", 1, 1 Proceso Sheets("Hoja10"), "J", 1, 1 Proceso Sheets("Hoja11"), "A", 1, 1 Proceso Sheets("Hoja11"), "D", 1, 1 Proceso Sheets("Hoja11"), "G", 1, 1 Proceso Sheets("Hoja11"), "J", 1, 1 Proceso Sheets("Hoja12"), "A", 1, 1 Proceso Sheets("Hoja12"), "D", 1, 1 Proceso Sheets("Hoja12"), "G", 1, 1 Proceso Sheets("Hoja12"), "J", 1, 1 Proceso Sheets("Hoja13"), "A", 1, 1 Proceso Sheets("Hoja13"), "D", 1, 1 Proceso Sheets("Hoja13"), "G", 1, 1 Proceso Sheets("Hoja13"), "J", 1, 1 Proceso Sheets("Hoja14"), "A", 1, 1 Proceso Sheets("Hoja14"), "D", 1, 1 Proceso Sheets("Hoja14"), "G", 1, 1 Proceso Sheets("Hoja14"), "J", 1, 1 Proceso Sheets("Hoja15"), "A", 1, 1 Proceso Sheets("Hoja15"), "D", 1, 1 Proceso Sheets("Hoja15"), "G", 1, 1 Proceso Sheets("Hoja15"), "J", 1, 1 Proceso Sheets("Hoja16"), "A", 1, 1 Proceso Sheets("Hoja16"), "D", 1, 1 Proceso Sheets("Hoja16"), "G", 1, 1 Proceso Sheets("Hoja16"), "J", 1, 1 Proceso Sheets("Hoja17"), "A", 1, 1 Proceso Sheets("Hoja17"), "A", 1, 1 Proceso Sheets("Hoja17"), "A", 1, 1 Proceso Sheets("Hoja17"), "A", 1, 1 End Sub

... y para que no se vea ese "horror" , puedes probar con:

Sub MacroPH_CodPre()

Application.ScreenUpdating = False

Hoja18.Cells.ClearContents
Hoja18.Range("A1") = "Código"
Hoja18.Range("B1") = "Precio"

For Each hoja In Worksheets
    Proceso Sheets(hoja.Name), "A", 1, 1
    Proceso Sheets(hoja.Name), "D", 1, 1
    Proceso Sheets(hoja.Name), "G", 1, 1
    Proceso Sheets(hoja.Name), "J", 1, 1
Next

Application.ScreenUpdating = True

End Sub

Saludos

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas

Domina Excel, de Cero a Experto

¿Atascado? Deja de buscar soluciones puntuales. Aprende a dominar Excel para siempre con nuestro curso online. Más de 115 lecciones y soporte directo.

Ver el Curso Completo

193 Archivos
99 Comentarios
30 Revisiones
Última descarga

Agenda Calendario Vintage
- 2

Fechas Móviles

Saludos adjunto el archivo con cinco ejemplos distintos con los respectivos resultados esperados para el mes de octubre de 2025 y 2026:
Primer Viernes de Octubre 03/10/2025 - 02/10/2026
Segundo Jueves de Octubre 09/10/2025 - 08/10/2026
Tercer Miércoles de Octubre 15/10/2025 - 14/10/2026
Tercer Martes de Octubre 21/10/2025 - 20/10/2026
Cuarto Lunes de Octubre 27/10/2025 - 26/10/2026
En cuanto a la forma de calcular estas son las formulas utilizadas en el video para el tercer Viernes de Agosto de 2021:
Primero se calcula el primer día del mes:
FECHANUMERO("01/"&S7&R7)

Luego se calcula que día de la semana cae el primer día del mes:
DIASEM(B5;2)
Luego se resta el numero del día que corresponde al Viernes (5) menos el numero del día que corresponde primer día del mes (Domingo (7))
X7-7

Si el resultado anterior es ≥ 0 entonces se resta los días hábiles existentes entre el primer día del mes y el día anterior a la fecha buscada en caso contrario se suma el total de días hábiles en el mes
SI(S14>=0;Y7+S14;Z7+S14)

Por ultimo al resultado anterior se le suma la fecha inicial y se obtiene la fecha y correspondiente al día buscado;
SI(S14>=0;Y7+S14;Z7+S14)+T7
Feriados Moviles (B).xlsx

Por jues, · publicado hace 1 hora 1 hr
Fechas Móviles

...la tabla no queda bien...
Adjunto archivo.
Feriados Moviles (B).xlsx

Por Victor7, · publicado el martes a las 19:453 días
Fechas Móviles

Lo siento, pero voy a repetirme sobre lo que dije en mi anterior intervención: "Sería interesante que explicaras con detalle qué es lo que falla de tu archivo, por qué, y qué es lo que buscas obtener".
A ver si así avanzamos: Supongamos que tienes esta tabla:
Inicial
Final
Inicial
Final
Ajuste
Dia Habil
Habiles
Habiles
Año
2025
2026
01/10/2025
31/10/2025
01/10/2026
31/10/2026
5
5
23
23

01/10/2025
31/10/2025
01/10/2026
31/10/2026
3
4
23
23

01/10/2025
31/10/2025
01/10/2026
31/10/2026
2
7
23
23

01/10/2025
31/10/2025
01/10/2026
31/10/2026
7
3
23
23

¿Qué 4 fechas concretas deberían aparecer en cada una de las 2 últimas columnas?
¿Cómo se llega a ellas? ¿Qué cálculos son necesarios?

Por Victor7, · publicado el martes a las 19:393 días
Fechas Móviles

Saludos Sr @Victor7
Con este cuadro lo que pretendo es poder obtener cualquier fecha móvil existente en el calendario festivo y que la misma se actualice de manera automática en las Celdas AB y AC sin la necesidad de hacer ajustes posteriores de allí que tome las formulas que se muestran en el tutorial y las fui anidando de forma tal que pudiera obtener el mismo resultado del ejemplo por lo cual es conveniente indicar que de acuerdo al ejemplo del tutorial:
Celda X: Aquí se introduce manualmente el número del día de la semana donde se ubica la fecha móvil buscada
Celda Y: Aquí se introduce manualmente la cantidad de días hábiles existentes antes de la fecha móvil buscada
Celdas Z y AA: Muestra la cantidad de días hábiles existentes en el mes de la fecha móvil
Celdas AB y AC: Arrojan la fecha móvil exacta conforme al año y los datos introducidos en las Celdas X y Y
Haciendo un análisis de los datos infiero que el problema radica en que el ejemplo del tutorial está configurado para arrojar resultados correctos solamente para la semana que contenga el tercer viernes de un mes determinado de allí que al buscar otra fecha móvil los datos que se introducen en las Celdas X y Y no sean no sean los que realmente deberían para que se puedan alcanzar las fechas exactas en las Celdas AB y AC, sin embargo hay fechas que aun introduciendo datos correctos en las Celdas X y Y o aproximándolos lo más posible no es posible obtener resultados correctos.

Por jues, · publicado el martes a las 15:013 días
Fechas Móviles

Hola,
Sería interesante que explicaras con detalle qué es lo que falla de tu archivo, por qué, y qué es lo que buscas obtener.
Hasta la columna W todo parece entendible, pero habría que ver cómo los datos X:Y introducidos a voluntad (supongo), afectan al comportamiento (o no) de los siguientes cálculos. Igual que las columnas AB:AC, qué resultados pretenden plasmar.
Saludos,

Por Victor7, · publicado el martes a las 06:553 días

No hay usuarios registrado para ver esta página.

Conéctate a Ayuda Excel

Macro Genera dos columnas de todo un libro

Featured Replies

Archivado

Archivos

Agenda Calendario Vintage

Cómo conservar la función AHORA()

Agenda v01

Gráficos de aranceles con colores difusos

Cómo crear hipervínculos inteligentes con fórmulas

Estadísticas de descargas

Mensajes

Fechas Móviles

Fechas Móviles

Fechas Móviles

Fechas Móviles

Fechas Móviles

Visualizado recientemente 0

Account

Navigation

Buscar

Configure browser push notifications

Chrome (Android)

Chrome (Desktop)

Safari (iOS 16.4+)

Safari (macOS)

Edge (Android)

Edge (Desktop)

Firefox (Android)

Firefox (Desktop)