Attribute VB_Name = "M—dulo1"
Sub Macro()

ThisWorkbook.Activate

Dim i As Integer, j As Long, aux As Long, k As Long
Dim tinicio As Long, tfin As Long, t As Long
Dim tinicioExt As Long, tfinExt As Long, tExt As Long


j = 2
k = 2

'Num muestra
For i = 2 To 11
    'Interna
    Worksheets("Resultado").Range("A" & i).Value = "Prueba " & i - 1
    Worksheets("Internas").Range("A" & j).End(xlDown).Copy
    Worksheets("Resultado").Range("B" & i).PasteSpecial xlPasteAll
    j = Worksheets("Internas").Range("A" & j).End(xlDown).Row + 2
    
    'Externa
    Worksheets("Externas").Range("A" & k).End(xlDown).Copy
    Worksheets("Resultado").Range("O" & i).PasteSpecial xlPasteAll
    k = Worksheets("Externas").Range("A" & k).End(xlDown).Row + 2
Next

'Tiempo
j = 3
k = 3
For i = 2 To 11
    'Interna
    tinicio = Worksheets("Internas").Range("B" & j).Value
    j = Worksheets("Internas").Range("B" & j).End(xlDown).Row
    tfin = Worksheets("Internas").Range("B" & j).Value
    t = tfin - tinicio
    Worksheets("Resultado").Range("C" & i).Value = t
    Worksheets("Resultado").Range("D" & i).Value = (t / 1000)
    Worksheets("Resultado").Range("E" & i).Value = Worksheets("Resultado").Range("B" & i).Value / (t / 1000)

    If i < 11 Then
        j = Worksheets("Internas").Range("B" & j).End(xlDown).Row + 1
    End If
    
    'Externa
    tinicioExt = Worksheets("Externas").Range("B" & k).Value
    k = Worksheets("Externas").Range("B" & k).End(xlDown).Row
    tfinExt = Worksheets("Externas").Range("B" & k).Value
    tExt = tfinExt - tinicioExt
    Worksheets("Resultado").Range("P" & i).Value = tExt
    Worksheets("Resultado").Range("Q" & i).Value = (tExt / 1000)
    Worksheets("Resultado").Range("R" & i).Value = Worksheets("Resultado").Range("O" & i).Value / (tExt / 1000)
    If i < 11 Then
        k = Worksheets("Externas").Range("B" & k).End(xlDown).Row + 1
    End If
Next


j = 3
k = 3
For i = 2 To 11
' Suma medidas
   For aux = j To Worksheets("Internas").Range("C" & j).End(xlDown).Row
    Worksheets("Internas").Range("I" & aux).Value = Worksheets("Internas").Range("C" & aux).Value + Worksheets("Internas").Range("D" & aux).Value
    Worksheets("Internas").Range("J" & aux).Value = Worksheets("Internas").Range("E" & aux).Value + Worksheets("Internas").Range("F" & aux).Value
    Worksheets("Internas").Range("K" & aux).Value = Worksheets("Internas").Range("G" & aux).Value + Worksheets("Internas").Range("H" & aux).Value
    Next

'Media y Desviaciones Interna
    Worksheets("Resultado").Range("F" & i).Value = Application.WorksheetFunction.Average(Worksheets("Internas").Range("I" & j & ":" & Worksheets("Internas").Range("i" & j).End(xlDown).Address))
    Worksheets("Resultado").Range("G" & i).Value = Application.WorksheetFunction.StDev(Worksheets("Internas").Range("I" & j & ":" & Worksheets("Internas").Range("i" & j).End(xlDown).Address))
    'Consumo
    Worksheets("Resultado").Range("H" & i).Value = Worksheets("Resultado").Range("F" & i).Value * Worksheets("Resultado").Range("D" & i).Value


    Worksheets("Resultado").Range("I" & i).Value = Application.WorksheetFunction.Average(Worksheets("Internas").Range("J" & j & ":" & Worksheets("Internas").Range("J" & j).End(xlDown).Address))
    Worksheets("Resultado").Range("J" & i).Value = Application.WorksheetFunction.StDev(Worksheets("Internas").Range("J" & j & ":" & Worksheets("Internas").Range("J" & j).End(xlDown).Address))
    'Consumo
    Worksheets("Resultado").Range("K" & i).Value = Worksheets("Resultado").Range("I" & i).Value * Worksheets("Resultado").Range("D" & i).Value

    Worksheets("Resultado").Range("L" & i).Value = Application.WorksheetFunction.Average(Worksheets("Internas").Range("K" & j & ":" & Worksheets("Internas").Range("K" & j).End(xlDown).Address))
    Worksheets("Resultado").Range("M" & i).Value = Application.WorksheetFunction.StDev(Worksheets("Internas").Range("K" & j & ":" & Worksheets("Internas").Range("K" & j).End(xlDown).Address))
    'Consumo
    Worksheets("Resultado").Range("N" & i).Value = Worksheets("Resultado").Range("L" & i).Value * Worksheets("Resultado").Range("D" & i).Value


    If i < 11 Then
    j = Worksheets("Internas").Range("C" & j).End(xlDown).Row + 2
    End If
    
    'Media y Desviaciones Externa
    
    Worksheets("Resultado").Range("S" & i).Value = Application.WorksheetFunction.Average(Worksheets("Externas").Range("C" & k & ":" & Worksheets("Externas").Range("C" & k).End(xlDown).Address))
    Worksheets("Resultado").Range("T" & i).Value = Application.WorksheetFunction.StDev(Worksheets("Externas").Range("C" & k & ":" & Worksheets("Externas").Range("C" & k).End(xlDown).Address))
     'Consumo
    Worksheets("Resultado").Range("U" & i).Value = Worksheets("Resultado").Range("S" & i).Value * Worksheets("Resultado").Range("Q" & i).Value

    Worksheets("Resultado").Range("V" & i).Value = Application.WorksheetFunction.Average(Worksheets("Externas").Range("D" & k & ":" & Worksheets("Externas").Range("D" & k).End(xlDown).Address))
    Worksheets("Resultado").Range("W" & i).Value = Application.WorksheetFunction.StDev(Worksheets("Externas").Range("D" & k & ":" & Worksheets("Externas").Range("D" & k).End(xlDown).Address))
     'Consumo
    Worksheets("Resultado").Range("X" & i).Value = Worksheets("Resultado").Range("V" & i).Value * Worksheets("Resultado").Range("Q" & i).Value


    If i < 21 Then
    k = Worksheets("Externas").Range("C" & k).End(xlDown).Row + 2
    End If



Next


End Sub