Problemas con macro de excel en office 2013

• Pregunta

• 

  

  0

  Inicie sesión para votar

  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

  Responder

  |

  Citar