Hola, necesito compatibilizar mi macro del excel 2003 a 2007

Hola, necesito compatibilizar mi macro de excel 2003 a 2007 ya que al utilizarla en excel 2007 se ve muy lento el excel, de ante mano muchas gracias que estén muy bien, esta es mi 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("producción").Cells(filas(i), col1)
Cells(filas(i), col3).Copy Sheets("producción").Cells(filas(i), col3)
Cells(filas(i), col5).Copy Sheets("producción").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("producción").Cells(filas(i), col1)
Cells(filas(i), col3).Copy Sheets("producción").Cells(filas(i), col3)
Cells(filas(i), col5).Copy Sheets("producción").Cells(filas(i), col5)
col1 = col1 + 4
col3 = col3 + 4
col5 = col5 + 4
Next
Next
End Sub

0

Añade tu respuesta

Haz clic para o