Attribute VB_Name = "Módulo1"
Sub proceso()
Attribute proceso.VB_ProcData.VB_Invoke_Func = "q\n14"
'
' Macro3 Macro
'
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False
    ActiveSheet.DisplayPageBreaks = False
    ActiveSheet.Select
    Range("Tabla1[[#Headers],[ns1:QuestionText]]").Select
    ActiveSheet.ListObjects("Tabla1").Range.AutoFilter Field:=6, Criteria1:= _
        "NOMBRE:"
    Columns("A:A").Select
    Selection.Copy
    ActiveSheet.Next.Select
    Range("a1").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.End(xlUp).Select
    ActiveSheet.Previous.Select
    Columns("K:K").Select
    Selection.Copy
    ActiveSheet.Next.Select
    Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("C1").Select
    ActiveSheet.Previous.Select
    Application.CutCopyMode = False
    Range("Tabla1[[#Headers],[ns1:QuestionText]]").Select
    ActiveSheet.ListObjects("Tabla1").Range.AutoFilter Field:=6, Criteria1:= _
        "CARGO:"
    Selection.End(xlToRight).Select
    Columns("K:K").Select
    Selection.Copy
    ActiveSheet.Next.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D1").Select
    ActiveSheet.Previous.Select
    Application.CutCopyMode = False
    Range("Tabla1[[#Headers],[ns1:QuestionText]]").Select
    ActiveSheet.ListObjects("Tabla1").Range.AutoFilter Field:=6, Criteria1:= _
        "ÁREA:"
    Columns("K:K").Select
    Selection.Copy
    ActiveSheet.Next.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("E1").Select
    ActiveSheet.Previous.Select
    Application.CutCopyMode = False
    Range("Tabla1[[#Headers],[ns1:QuestionText]]").Select
    ActiveSheet.ListObjects("Tabla1").Range.AutoFilter Field:=6, Criteria1:= _
        "CÉDULA / DNI:"
    Columns("K:K").Select
    Selection.Copy
    ActiveSheet.Next.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("F1").Select
    ActiveSheet.Previous.Select
    Application.CutCopyMode = False
    Range("Tabla1[[#Headers],[ns1:QuestionText]]").Select
    ActiveSheet.ListObjects("Tabla1").Range.AutoFilter Field:=6, Criteria1:= _
        "Seleccione su pais:"
    Columns("K:K").Select
    Selection.Copy
    ActiveSheet.Next.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("G1").Select
    ActiveSheet.Previous.Select
    Application.CutCopyMode = False
    Range("Tabla1[[#Headers],[ns1:QuestionText]]").Select
    ActiveSheet.ListObjects("Tabla1").Range.AutoFilter Field:=6, Criteria1:= _
        "Fecha de inducción,  jornada o reunión"
    Range("Tabla1[[#Headers],[ns1:Answer]]").Select
    ActiveSheet.ListObjects("Tabla1").Range.AutoFilter Field:=10, Criteria1:= _
        "Día"
    Columns("K:K").Select
    Selection.Copy
    ActiveSheet.Next.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H1").Select
    ActiveSheet.Previous.Select
    Application.CutCopyMode = False
    Range("Tabla1[[#Headers],[ns1:Answer]]").Select
    ActiveSheet.ListObjects("Tabla1").Range.AutoFilter Field:=10, Criteria1:= _
        "Mes"
    Columns("K:K").Select
    Selection.Copy
    ActiveSheet.Next.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("I1").Select
    ActiveSheet.Previous.Select
    Range("Tabla1[[#Headers],[ns1:Answer]]").Select
    ActiveSheet.ListObjects("Tabla1").Range.AutoFilter Field:=10, Criteria1:= _
        "Año"
    Columns("K:K").Select
    Selection.Copy
    ActiveSheet.Next.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("J2").Select
    Application.CutCopyMode = False
    Columns("G:G").Select
    Selection.TextToColumns Destination:=Range("G1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
    Columns("H:H").Select
    Selection.TextToColumns Destination:=Range("H1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
    Columns("I:I").Select
    Selection.TextToColumns Destination:=Range("I1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
    Range("J2").Select
    Application.Calculation = xlCalculationAutomatic
    
    ActiveCell.FormulaR1C1 = "=+RC[-3]&""/""&RC[-2]&""/""&RC[-1]"
    
    For k = 1 To 10000
    If Cells(k, 9) <> "" Then
    Range("j2").Select
    Selection.Copy
    Cells(k, 10).Select
    ActiveSheet.Paste
    Else
    Application.CutCopyMode = False
    Exit For
    End If
    Next
    Columns("J:J").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Columns("G:I").Select
    Range("I1").Activate
    Selection.Delete Shift:=xlToLeft
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "Nombre"
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "Cargo"
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "Area"
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "Cédula"
    Range("F1").Select
    ActiveCell.FormulaR1C1 = "Pais"
    Range("G1").Select
    ActiveCell.FormulaR1C1 = "Fecha"
    Range("A1").Select
    ActiveSheet.Previous.Select
    Range("Tabla1[[#Headers],[ns1:QuestionText]]").Select
    Selection.AutoFilter
    Selection.AutoFilter
    Range("Tabla1[[#Headers],[ns1:QuestionText]]").Select
    ActiveSheet.ListObjects("Tabla1").Range.AutoFilter Field:=6, Criteria1:= _
        Array("ÁREA:", "CARGO:", "CÉDULA / DNI:", "Fecha de inducción,  jornada o reunión" _
        , "NOMBRE:", "Seleccione su pais:"), Operator:=xlFilterValues
    
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    ActiveSheet.DisplayPageBreaks = False
    MsgBox ("primer proceso listo, ahora eliminar filas")

'
End Sub
Sub formulas()
Attribute formulas.VB_ProcData.VB_Invoke_Func = "a\n14"
'
' Macro4 Macro
'

'
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    ActiveSheet.DisplayPageBreaks = False
    
    Range("Tabla1[[#Headers],[ns1:QuestionText]]").Select
    Selection.AutoFilter
    Columns("B:E").Select
    Selection.Delete Shift:=xlToLeft
    Selection.End(xlUp).Select
    Range("Tabla1[[#Headers],[ns1:VoterID2]]").Select
    Selection.End(xlToRight).Select
    Columns("H:J").Select
    Range("Tabla1[[#Headers],[ns1:SectionNumber]]").Activate
    Selection.Delete Shift:=xlToLeft
    Columns("C:E").Select
    Selection.Delete Shift:=xlToLeft
    Columns("B:B").Select
    Selection.Insert Shift:=xlToRight
    Selection.Insert Shift:=xlToRight
    Selection.Insert Shift:=xlToRight
    Selection.Insert Shift:=xlToRight
    Selection.Insert Shift:=xlToRight
    Selection.Insert Shift:=xlToRight
    Range("Tabla1[[#Headers],[Columna6]]").Select
    
    
    Range("b2").Select
    ActiveCell.FormulaR1C1 = "=+VLOOKUP(RC[-1],Hoja2!C[-1]:C[5],2,FALSE)"
    Range("C2").Select
    ActiveCell.FormulaR1C1 = "=+VLOOKUP(RC[-2],Hoja2!C[-2]:C[4],3,FALSE)"
    Range("D2").Select
    ActiveCell.FormulaR1C1 = "=+VLOOKUP(RC[-3],Hoja2!C[-3]:C[3],4,FALSE)"
    Range("E2").Select
    ActiveCell.FormulaR1C1 = "=+VLOOKUP(RC[-4],Hoja2!C[-4]:C[2],5,FALSE)"
    Range("F2").Select
    ActiveCell.FormulaR1C1 = "=+VLOOKUP(RC[-5],Hoja2!C[-5]:C[1],6,FALSE)"
    Range("G2").Select
    ActiveCell.FormulaR1C1 = "=+VLOOKUP(RC[-6],Hoja2!C[-6]:C,7,FALSE)"
    Range("G2").Select
    ActiveSheet.Next.Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range("B1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    ActiveSheet.Previous.Select
    Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("B2:g2").Select
    For i = 2 To 10000
    If Cells(i, 1) <> "" Then
    Range("b2:g2").Select
    Selection.Copy
    Cells(i, 2).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Else
    Application.CutCopyMode = False
    Exit For
    End If
    Next
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "ID"
    Range("H1").Select
    ActiveCell.FormulaR1C1 = "Pregunta"
    Range("I1").Select
    ActiveCell.FormulaR1C1 = "Respuesta"
    Cells.Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Selection.Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Columns("E:E").Select
    Selection.Cut
    Columns("C:C").Select
    Selection.Insert Shift:=xlToRight
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("Tabla1[[#Headers],[ID]]").Select
    
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    ActiveSheet.DisplayPageBreaks = False
    MsgBox ("informe terminado")
End Sub