Hola, Necesito una macro que repita un ciclo varias veces

Hola Cheysson, no se si me puedes ayudar, este es mi programa

Sub COPIAR_MES_A_MES()
Sheets("Macro").Select
filas =
Array(8, 10, 11, 13, 14, 16, 17, 20, 21, 23, 24, 26, 27, 29, 30, 32, 33, 35)
For i =
LBound(filas) To UBound(filas)
col = Range("L1").Column
For j = 1 To 6
Cells(filas(i), col).Copy
Sheets("Hoja1").Cells(filas(i), col)
col = col + 4
Next
col =
Range("AI1").Column
For j = 1 To 6
Cells(filas(i), col).Copy
Sheets("Hoja1").Cells(filas(i), col)
col = col + 4
Next
Next
End Sub

Y lo que necesito agregar es que copie de a dos columnas ej (K-L, O-P, ST, ......) y ademas que repita todo el ciclo, ya que este copia de L hasta AF y necesito agregarle que copie ademas un mismo ciclo pero que empiece desde AL hasta bf y otro de Bk hasta CF

Serian 6 repeticiones en total la ultima columna es EF, Te lo agradecería mucho que estés muy bien, de ante mano mucha gracias.

1

1 Respuesta

13.525 pts. Instructor experto Excel y macros

Pasame el archivo a [email protected] a ver si te comprendo mejor

ya lo pude agregarle eso pero tengo otro problema, no se como cambiarlo a pegado especial solo valores este es la macro

Sub COPIAR_MES_A_MES_SEC()


Sheets("Macro").Select


filas = Array(19, 22, 25, 28, 31, 34, 37, 40, 43, 46, 50, 53, 57, 60, 62, 66, 71, 75, 81, 88, 92, 103, 123, 133, 135, 142, 145, 147, 158, 161, 164, 177, 185, 190, 194, 200, 207, 211, 214)

For i = LBound(filas) To UBound(filas)
col1 = Range("K1").Column
col3 = Range("BK1").Column
col5 = Range("DK1").Column
For j = 1 To 6
Cells(filas(i), col1).Copy Sheets("Resumen").Cells(filas(i), col1)
Cells(filas(i), col3).Copy Sheets("Resumen").Cells(filas(i), col3)
Cells(filas(i), col5).Copy Sheets("Resumen").Cells(filas(i), col5)
col1 = col1 + 4
col3 = col3 + 4
col5 = col5 + 4
Next
col1 = Range("AK1").Column
col3 = Range("CK1").Column
col5 = Range("EK1").Column
For j = 1 To 6
Cells(filas(i), col1).Copy Sheets("Resumen").Cells(filas(i), col1)
Cells(filas(i), col3).Copy Sheets("Resumen").Cells(filas(i), col3)
Cells(filas(i), col5).Copy Sheets("Resumen").Cells(filas(i), col5)
col1 = col1 + 4
col3 = col3 + 4
col5 = col5 + 4
Next
Next
End Sub

Ahi esta explicado en el mail, espero que me puedas ayudar. saludos, que estés muy bien

Es un error de sintaxis

Sub COPIAR_MES_A_MES_SEC()
Sheets("Macro").Select
filas = Array(19, 22, 25, 28, 31, 34, 37, 40, 43, 46, 50, 53, 57, 60, 62, 66, 71, 75, 81, 88, 92, 103, 123, 133, 135, 142, 145, 147, 158, 161, 164, 177, 185, 190, 194, 200, 207, 211, 214)
For i = LBound(filas) To UBound(filas)
col1 = Range("K1").Column
col3 = Range("BK1").Column
col5 = Range("DK1").Column
For j = 1 To 6
Sheets("Resumen").CELLS(filas(i), col1) = CELLS(filas(i), col1)
Sheets("Resumen").CELLS(filas(i), col3) = CELLS(filas(i), col3)
Sheets("Resumen").CELLS(filas(i), col5) = CELLS(filas(i), col5)
col1 = col1 + 4
col3 = col3 + 4
col5 = col5 + 4
Next
col1 = Range("AK1").Column
col3 = Range("CK1").Column
col5 = Range("EK1").Column
For j = 1 To 6
Sheets("Resumen").CELLS(filas(i), col1) = CELLS(filas(i), col1)
Sheets("Resumen").CELLS(filas(i), col3) = CELLS(filas(i), col3)
Sheets("Resumen").CELLS(filas(i), col5) = CELLS(filas(i), col5)
col1 = col1 + 4
col3 = col3 + 4
col5 = col5 + 4
Next
Next
End Sub

Recuerda finalizar la pregunta y puntuar!

si la macro funciona, pero lo que necesito es que se use con pegado especial solo valores, muchas gracias y disculpa las molestias

El código que te envie corregido te lo pega como valores, yo mismo lo he probado y verificado varias veces.

¿No será que usaste el viejo codigo?

Favor finalizar la poregunta y puntuar

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas