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