Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
A better way to browse. Learn more.
A full-screen app on your home screen with push notifications, badges and more.
Este tema está ahora archivado y está cerrado a más respuestas.
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