none
Problemas con macro de excel en office 2013 RRS feed

  • Pregunta

  • Buen día, 

    Mi inconveniente es que tengo una macro que trata de insertar una fila en blanco en otra oja de excel  cuando la abro en excel 2010 funciona bien pero cuando instale la versión de office  2013 para hogar y pequeña empresa  intento abrir esta misma macro en excel 2013 me sale un error 1004 en tiempo de ejecución.


     Probe en otros equipos con diferentes office y el problema es en la versión 2013,la licencia del office es producto en caja.

    a continuación adjunto el código de la macro utilizada.

                                                                                                  

    ActiveWorkbook.RefreshAll


    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic

    Application.CutCopyMode = False


    End Sub
    Sub ERD_QA_Form()
    '
    ' ERD_QA_Form Macro
    '
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    '
        Sheets("Data_Base").Select
        Rows("6:6").Select
       Selection.Insert Shift:=xlDown

        Sheets("Enter_data").Select
        Range("C3").Select
        Selection.Copy
        Range("c24").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Sheets("Data_Base").Select
        Range("E6").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False

        Sheets("Enter_Data").Select
        Range("H2").Select
        Selection.Copy
        Sheets("Data_Base").Select
        Range("B6").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False

        Sheets("Enter_Data").Select
        Range("C20").Select
        Selection.Copy
        Range("c25").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Sheets("Data_Base").Select
        Range("H6").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False

        Sheets("Enter_Data").Select
        Range("C17").Select
        Selection.Copy
        Sheets("Data_Base").Select
        Range("Ai6").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False

        Sheets("Enter_Data").Select
        Range("C6").Select
        Selection.Copy
        Sheets("Data_Base").Select
        Range("I6").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False

        Sheets("Enter_Data").Select
        Range("C18").Select
        Selection.Copy
        Sheets("Data_Base").Select
        Range("Ag6").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False

        Sheets("Enter_Data").Select
        Range("C32").Select
        Selection.Copy
        Sheets("Data_Base").Select
        Range("Al6").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False

        Range("F7:G7").Select
        Selection.Copy
        Range("F6").Select
        ActiveSheet.Paste
        Range("J7:K7").Select
        Selection.Copy
        Range("J6").Select
        ActiveSheet.Paste
        Range("Ab7").Select
        Selection.Copy
        Range("Ab6").Select
        ActiveSheet.Paste
        Range("AC7:Af7").Select
        Selection.Copy
        Range("AC7").Select
        ActiveSheet.Paste
        

        Range("Ah7").Select
        Selection.Copy
        Range("Ah6").Select
        ActiveSheet.Paste

    Range("Aj7").Select
        Selection.Copy
        Range("Aj6").Select
        ActiveSheet.Paste

        Range("Ak7").Select
        Selection.Copy
        Range("Ak6").Select
        ActiveSheet.Paste

        Range("Am7").Select
        Selection.Copy
        Range("Am6").Select
        ActiveSheet.Paste

        Range("An7").Select
        Selection.Copy
        Range("An6").Select
        ActiveSheet.Paste

        Range("Ao7").Select
        Selection.Copy
        Range("Ao6").Select
        ActiveSheet.Paste

        Range("Ad7").Select
        Selection.Copy
        Range("Ad6").Select
        ActiveSheet.Paste

        Range("Ae7").Select
        Selection.Copy
        Range("Ae6").Select
        ActiveSheet.Paste

        Range("Af7").Select
        Selection.Copy
        Range("Af6").Select
        ActiveSheet.Paste

        Sheets("Enter_Data").Select
        Range("F9:F16").Select
        Selection.Copy
        Sheets("Data_Base").Select
        Range("T6").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=True
        Sheets("Enter_data").Select
        Range("C4:C5").Select
        Selection.Copy
        Sheets("Data_Base").Select
        Range("C6").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=True

        Range("S6").Select
        ActiveCell.FormulaR1C1 = "1"
        Range("Ac6").Select
        ActiveCell.FormulaR1C1 = "100"


        Sheets("Enter_data").Select
        Range("C3,C5:C6,C9:C15,C17,C18,C20,c21,F9:F16").Select
        Selection.ClearContents


    ' Refresh a Todas las Tablas Dinamicas


    ActiveWorkbook.RefreshAll

    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic

    Application.CutCopyMode = False

    End Sub
    Sub Update_pivot_table()
    '
    ' Update_pivot_table Macro
    '

    '
        Sheets("Ranking").Select
        ActiveSheet.PivotTables("Tabla dinámica2").PivotCache.refresh
        ActiveSheet.PivotTables("Tabla dinámica4").PivotCache.refresh
        ActiveSheet.PivotTables("Tabla dinámica5").PivotCache.refresh
        ActiveSheet.PivotTables("Tabla dinámica6").PivotCache.refresh
        ActiveSheet.PivotTables("Tabla dinámica7").PivotCache.refresh
        ActiveSheet.PivotTables("Tabla dinámica8").PivotCache.refresh
        ActiveSheet.PivotTables("Tabla dinámica9").PivotCache.refresh

        Sheets("Transition_Ranking").Select
        ActiveSheet.PivotTables("Tabla dinámica10").PivotCache.refresh

        Sheets("Low Scores").Select
        ActiveSheet.PivotTables("Tabla dinámica12").PivotCache.refresh

    End Sub

    NOTA: cuando le doy click a la opcion depurar me lanza a la siguiente linea de codigo de  la macro                    Selection.Insert Shift:=xlDown    cuando pongo esta linea como comentario el error deja de aparecer pero oviamente la macro se ejecuta de manera incorrecta.                                                                                                                   Agradeciendo su apoyo.

    martes, 3 de septiembre de 2013 16:28