' </> ----------------------------------------------------------------------------- </>
' </> ---&--- </> Copia - Estadisticas Consumo CPU
' </> ----------------------------------------------------------------------------- </>
' </> ---&--- </> Abre los ficheros de datos
Workbooks.Open Filename:="Libro1.xls"
' </> ---&--- </> Pone las mascaras de los campos
Windows("Libro1.xls").Activate
' </> ---&--- </> Busca la primera FECHA
c_Fecha = Range("A1").Cells ' --- Primera Fecha de datos
c_Hasta = ""
' Cuenta el numero de lineas
For a = 1 To 2 ^ 36
c_Actual = Range("A" + Mid$(Str$(a), 2)).Cells
If c_Actual = "" Then n_Lin = a: c_Hasta = "O" + Mid$(Str(a - 1), 2): Exit For
Next
If c_Hasta = "" Then
MsgBox "Se sobrepaso el limite de las filas de la hoja", _
vbCritical + vbOKOnly, _
"Estadisticas Orpas"
Exit Sub
End If
' --- Selecciona el area de datos
Range("A1:" + c_Hasta).Select
Selection.Copy
' </> --------------------------------------------- </>
' </> ---&--- Copia el Bloque - 6 ---&--- </>
' </> --------------------------------------------- </>
Windows("Libro2.xls").Activate
Sheets("Hoja1").Select
' --- Busca la celda donde debe copiar
c_Celda = ""
For a = 1 To 2 ^ 36
c_Actual = Range("A" + Mid$(Str$(a), 2)).Cells
If c_Actual = c_Fecha Then c_Celda = "A" + Mid$(Str(a), 2): n_Pos = a: Exit For
If c_Actual = c_Vacio Then c_Celda = "A" + Mid$(Str(a), 2): n_Pos = a: Exit For
Next
If c_Celda = "" Or n_Pos + n_Lin > 2 ^ 36 Then
MsgBox "Se sobrepaso el limite de las filas de la hoja", _
vbCritical + vbOKOnly, "Estadisticas Orpas"
Exit Sub
End If
' --- Pegar datos
Range(c_Celda).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("Libro1.xls").Activate
ActiveWindow.Close Savechanges:=False