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.
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
