Estimados:

Tengo un formulario por proyecto (pestaña) del cual tengo que sacar la mayoría de los campos. Estos campos se ordenan en una sola linea de datos en el Excel en forma horizontal por formulario (estos son muchos 564).

Me dice: "procedimiento demasiado largo" , pero no sé que hacer para resolverlo, ya que tienen que estar los registros hacia el lado.

Parte del codigo:

[Public Sub Grabar_datos()

Application.ScreenUpdating = False

Sheets("Resumen").Select

Range("A1").Select

Do While Not IsEmpty(ActiveCell)

ActiveCell.Offset(1, 0).Select

Loop

For i = 1 To 6

If Len(i) = 1 Then i = "0" & i

ActiveCell = Sheets("PROYECTO_" & i & "").Range("P5") 'bip

ActiveCell.Offset(0, 1) = Sheets("PROYECTO_" & i & "").Range("AP5") 'bip secundario

ActiveCell.Offset(0, 2) = Sheets("PROYECTO_" & i & "").Range("P3") 'FechaReunion

ActiveCell.Offset(0, 3) = Sheets("PROYECTO_" & i & "").Range("P4") 'NumeroProy

ActiveCell.Offset(0, 4) = Sheets("PROYECTO_" & i & "").Range("P6") 'Nombre Proy

ActiveCell.Offset(0, 5) = Sheets("PROYECTO_" & i & "").Range("P7") 'Región

ActiveCell.Offset(0, 6) = Sheets("PROYECTO_" & i & "").Range("P8") 'Etapa Mideplan

ActiveCell.Offset(0, 7) = Sheets("PROYECTO_" & i & "").Range("P28") 'Safiobra

...

ActiveCell.Offset(0, 562) = Sheets("PROYECTO_" & i & "").Range("AP121") 'Total_VigNov

ActiveCell.Offset(0, 563) = Sheets("PROYECTO_" & i & "").Range("AS121") 'Total_VigDic

'bajamos una fila

ActiveCell.Offset(1, 0).Select

Next

Application.ScreenUpdating = True

End Sub]

¿que puedo hacer?

Saludos

Ejemplo.zip

Lo primero, adjuntar un archivo ejemplo........normas del foro....

Después, si es posible, alguien te echará una mano.......

Un saludo,

Tese

Gracias Tese...se me había olvidado adjuntar el archivo, saludos :encouragement:

Solo hay que partir el procedimiento en trozos mas pequeños.

Copia de Ejemplo.rar

Gracias :encouragement: Macro,

estoy probando y ajustando los trozos al original....creo que funcionaran.

Cualquier cosa...la publico!.

Gracias otra vez