Error en Macro por cambio de Excel al 2013

El problema que se me presento es en una macro que funciona muy bien en el excel y sigue funcionando bien en el excel 2007 pero ahora que realice la actualizacion a excel 2013 la macro no funciona y me saca un error que es el Run Time 57121 y no se cual es el motivo al tratar de depurar la macro el error parece ser en el nombre que se le dio a las hojas y otra observacion es que el excel tiene diferente idioma el 2007 es en español y el 2013 es en ingles habria alguna diferencia?.

Alguien sabe porque me sale ese problema con la macro.

1 respuesta

Respuesta
1

Puedes poner la macro.

¿Dime exactamente qué mensaje de error te envía?

¿Cuándo presionas depurar en qué línea de la macro se detiene?

Hola Dante mira esta es la macro

Sub Auto_open()
'copiar el numero de pc y pegarlo en 'CC' para desplegar la informacion de la estacion donde se abre
Application.ScreenUpdating = False
Sheets("E Binder").Select
Sheets("CC").Visible = True
sComputer = Environ("computername")
sUserName = Environ("username")
Worksheets("CC").Range("B2").Value = sComputer
Worksheets("CC").Range("R1").Value = sUserName
'Filtro avanzado para buscar CC's que comparten PC
Sheets("CC").Range("B6:C3000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("CC"). _
Range("B1:B2"), CopyToRange:=Sheets("CC").Range("K1:L10"), Unique:=False
'Cambia el rango del nombre CC para validacion de pagina principal
lCount = WorksheetFunction.CountA(Sheets("CC").Range("K1:K100"))
ActiveWorkbook.Names("CC").RefersToR1C1 = "=CC!R2C12:R" & lCount & "C12"
    Sheets("E Binder").CommandButton1.Visible = False
'Cambia la celda que determina el CC que se usará y muestra mensaje
Sheets("E Binder").Range("F1").Value = Sheets("CC").Range("L2").Value
If Sheets("CC").Range("B3") > 1 Then
    Application.ScreenUpdating = True
    MsgBox "Elija el Centro de Costos que desea visualizar", vbOKOnly, ""
    Rows("1:1").EntireRow.Hidden = False
    Range("F1").Activate
ElseIf Sheets("CC").Range("B3") = 1 Then
    Rows("1:1").EntireRow.Hidden = True
    Application.ScreenUpdating = True
ElseIf Sheets("CC").Range("B3") = 0 Then
    lCount = WorksheetFunction.CountA(Sheets("CC").Range("C6:C1000"))
    ActiveWorkbook.Names("CC").RefersToR1C1 = "=CC!R7C3:R" & lCount + 6 & "C3"
    Application.ScreenUpdating = True
    MsgBox "Elija el Centro de Costos que desea visualizar", vbOKOnly, ""
    Sheets("CC").Rows("1:1").EntireRow.Hidden = False
    Range("F1").Activate
End If
Sheets("CC").Visible = xlVeryHidden
If Hoja4.Range("H2").Value <> "S" And _
Hoja4.Range("H2").Value <> "T" Then
    ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
    Exit Sub
End If
If Hoja4.Range("H2").Value = "S" Or _
Hoja4.Range("H2").Value = "T" Then
    adminMenu.Show
    Sheets("E Binder").CommandButton1.Visible = True
    Sheets("E Binder").CommandButton2.Visible = True
    Sheets("Documentos").CommandButton2.Visible = True
End If
End Sub
Sub regresar()
'regresa a la pagina de inicio.
On Error Resume Next
    ActiveSheet.Unprotect Password:="gtc"
    ActiveSheet.ShowAllData
    Sheets("E Binder").Select
    Sheets("Documentos").Visible = xlVeryHidden
'    If Sheets("CC").Range("H2").Value = "S" Or _
'    Sheets("CC").Range("H2").Value = "T" Then
'
'        adminMenu.Show
'    End If
End Sub

Y el problema se presenta en esta linea te adjunto la imagen, tambien lo despliga luego luego de abriendo el archivo.

espero me puedas ayudar porque eh visto algunas computadoras que lo abren sin problema con el mismo excel 2013 pero la mia es la que no lo puede abrir y no se porque.

Gracias

Saludos.

el error es el siguiente

 pero antes sale este error que sale luego luego cuando abres el archivo

H o l a :

¿El excel 2013 es de microsoft o estás en una mac?

¿Existe la hoja con el nombre "E Binder"?

Cambia en la macro esta instrucción:

Sheets("E Binder").Select

Por esta:

WorkSheets("E Binder").Select

Prueba y me comentas.

Otra cosa.

Si existe la hoja "E Binder", ¿puedes revisar si está visible?

Hola Dante si si esta visible la hoja E binder te envio una foto de como deberia de salir y al principio te deberia de enviar un cuadro de dialogo el cual te pudiera dar a elegir que quieres hacer en el E binder, pero no lo hace y en vez de eso saca el error 57121.

Voy a intentar cambiar a worksheets y estoy en una version de Windows, no es version de MAC.

Saludos

Hola Dante ya hice el cambio de Sheets a WorkSheets y no cambia nada sigue con el error el 57121

H o l a :

Entra a las opciones de excel, Centro de confianza, Configuración del Centro de confianza, Configuración de ActiveX y selecciona Habilitar todos los controles:

Otra alternativa:

Cambia a esto:

Sheets("E Binder"). Activate

Otra:

Comenta en la macro estas líneas:

sComputer = Environ("computername")
SUserName = Environ("username")

Escribe en la hoja "CC" en la celda B2 el nombre de tu computadora y en la celda R1 escribe tu nombre de usuario.

S a l u d o s

La Hoja CC no le puedo escribir el nombre en las celdas ya que después de que se abre la macro se habilita la hoja CC si la macro no se habilita no muestra la página CC

No pasa nada sigue igual, también cambie lo que me dijiste en la macro y no hay cambio, lo unic que no intente fue lo de la página CC porque no puedo abrir la página

Entonces habilita manualmente la hoja "CC", entra a VBA y selecciona la hoja "CC" y en propiedades cambia Visible a Xlsheetvisible

Ya que tienes visible, escribe en la hoja "CC" en la celda B2 el nombre de tu computadora y en la celda R1 escribe tu nombre de usuario.

Prueba con esta macro:

Sub Auto_open()
    'copiar el numero de pc y pegarlo en 'CC' para desplegar la informacion de la estacion donde se abre
    Application.ScreenUpdating = False
    Sheets("E Binder").Activate
    'Sheets("CC").Visible = True
    'sComputer = Environ("computername")
    'sUserName = Environ("username")
    'Worksheets("CC").Range("B2").Value = sComputer
    'Worksheets("CC").Range("R1").Value = sUserName
    'Filtro avanzado para buscar CC's que comparten PC
    Sheets("CC").Range("B6:C3000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("CC"). _
    Range("B1:B2"), CopyToRange:=Sheets("CC").Range("K1:L10"), Unique:=False
    'Cambia el rango del nombre CC para validacion de pagina principal
    lCount = WorksheetFunction.CountA(Sheets("CC").Range("K1:K100"))
    ActiveWorkbook.Names("CC").RefersToR1C1 = "=CC!R2C12:R" & lCount & "C12"
        Sheets("E Binder").CommandButton1.Visible = False
    'Cambia la celda que determina el CC que se usará y muestra mensaje
    Sheets("E Binder").Range("F1").Value = Sheets("CC").Range("L2").Value
    If Sheets("CC").Range("B3") > 1 Then
        Application.ScreenUpdating = True
        MsgBox "Elija el Centro de Costos que desea visualizar", vbOKOnly, ""
        Rows("1:1").EntireRow.Hidden = False
        Range("F1").Activate
    ElseIf Sheets("CC").Range("B3") = 1 Then
        Rows("1:1").EntireRow.Hidden = True
        Application.ScreenUpdating = True
    ElseIf Sheets("CC").Range("B3") = 0 Then
        lCount = WorksheetFunction.CountA(Sheets("CC").Range("C6:C1000"))
        ActiveWorkbook.Names("CC").RefersToR1C1 = "=CC!R7C3:R" & lCount + 6 & "C3"
        Application.ScreenUpdating = True
        MsgBox "Elija el Centro de Costos que desea visualizar", vbOKOnly, ""
        Sheets("CC").Rows("1:1").EntireRow.Hidden = False
        Range("F1").Activate
    End If
    'Sheets("CC").Visible = xlVeryHidden
    If Hoja4.Range("H2").Value <> "S" And _
    Hoja4.Range("H2").Value <> "T" Then
        ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
        Exit Sub
    End If
    If Hoja4.Range("H2").Value = "S" Or _
    Hoja4.Range("H2").Value = "T" Then
        adminMenu.Show
        Sheets("E Binder").CommandButton1.Visible = True
        Sheets("E Binder").CommandButton2.Visible = True
        Sheets("Documentos").CommandButton2.Visible = True
    End If
End Sub

S a l u d o s

Ya realice los cambios que me dijiste y aun así no funciona sigue saliendo el error 57121 pero en otras computadoras con el mismo excel si función debe ser algo en mi PC que no permite el buen funcionamiento

Envíame tu archivo original con la macro original para revisarlo.

Mi correo [email protected]

En el asunto del correo escribe tu nombre de usuario “Jovanny sosa” y el título de esta pregunta.

no se si se pueda enviar el archivo pesa 9 MB, dejame ver q tanto lo puedo comprmir

Ya te envíe el archivo lo pude comprmimir

H  o l a:

La hoja está dañada, no es tu máquina.

Pide que te den un nuevo archivo que si funcione en otras máquinas.

O copia todo lo que tienes en la hoja "E Binder" a una nueva hoja, después elimina la hoja "E Binder". Renombra la nueva hoja como "E Binder"

Pero, lo mejor es que te envíen un nuevo archivo.

S a l u d o s 

H o l a:

Recuerda valorar la respuesta.

G r a c i a s

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

¿Cómo separo dos números que se encuentran en una sola celda de excel?

En una celda de excel se encuentran dos cantidades separadas por un guion. Quisiera separar el primer número en una segunda celda y el segundo número en una tercer celda. Ejemplo: A 1 48,264 - 65,371 2 55,555 - 66,666 3 . . . Debería quedar así: A B...
2 respuestas

Al seleccionar celda extraer sus dígitos automáticamente

Necesito dos favores, la idea es que al seleccionar una celda numérica de 4 dígitos del rango "af1;aj42" esta automáticamente extraiga sus cifras a la columna "a1, b1, c1, d1" como se muestra en la imagen Y lo segundo como puedo quitarle el msgbox a...
2 respuestas

Se puede agregar voz a Excel

Tengo una pantalla de vuelo de vuelo donde anotó despegues y arribos, Quiero que cada vez que se produzca un despegue y se agregue hora o aterrice alguno y se ponga la hora, excel diga o se escuche atención Aterrizaje o Atención despegue.
3 respuestas

Gráfico Comparativo por Semanas, en Power Bi.

Espero se encuentren muy bien. Tengo una tabla en Power BI con fechas, códigos, costos y cantidades. La necesidad que tengo es de crear un gráfico o tabla donde pueda comparar y analizar el comportamiento de los costos y las cantidades de un código...
1 respuesta

En una lista para pedidos tengo varios formularios

En una lista para pedidos con varios formularios la vengo usando desde hace tiempo sin ningún problema pero hace días la abrí para hacer un pedido y al pisar en el cuadro donde apunta la flecha para que me abra un otro cuadro donde coloco ciertos...
2 respuestas

Código VBA para crear un botón y guardar en PDF

Tengo un archivo word con 7 capturas, una en cada página (1-7), cual seria el código para crear un botón en la barra de herramientas de acceso rápido para convertir en PDF cada página. El resultado seria 7 pdf.
2 respuestas

Como evitar que se duplique un dato en la base de datos

Trato que al ingresar los datos a la base de datos si en la columna "B" DNI es una cifra que ya esta en dicha base me lo indique en un Msgbox "El Dato ya existe" Esta es la macro que tengo en el botón Aceptar Private Sub Aceptar_Click()...
2 respuestas

Detectar si he marcado Celda dentro de un Rango de Excel.

Tengo un Rango en Hoja Excel: RgoDatos >> $B$3:$V$39 Quiero detectar si la celda que selecciono está dentro de ese Rango Si no está que por omisión me marque B3.
1 respuesta

Desproteger un rango de celdas en una hoja protegida

Tengo una aplicación donde en una hoja se ponen comentarios automáticos con una macro, pero como hay celdas donde hay fórmulas las tengo bloqueadas y ocultas para que no se borren por error al usarla, tengo puesto el Unprotect en la macro por que si...
8 respuestas

Dato fecha ya existe en tabla

Como están estimados maestros. En formulario, tengo botón archivar. Envío información a hoja "existencias" a tabla "tbl_existencias". En columna A un Código desde textbox1 En columna B fecha desde textbox "txtFecha2" En columna C total desde textbox2...
2 respuestas