Visual Basic - Error de automatizacion -2147417848 VBA Excel. .Show

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 2
Ha disminuido su posición en 7 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Error de automatizacion -2147417848 VBA Excel. .Show

Publicado por Héctor (1 intervención) el 05/03/2020 16:01:19
Hola buen dia.

Tengo un programa de elecciones escolares.
No he podido solucionar lo del Error de automatización, que ocurre cada vez que llamo a un formulario, y cuando ocurre excel se bloquea y se reinicia

1
2
3
4
5
6
Sub Inicar_ventana_ingreso()
 
        Load Ingreso
        Ingreso.Show
 
End Sub

Lo he probado sin el Load Ingreso, mismo error

Probe controlando el ERROR

1
2
3
4
5
6
7
8
9
10
Sub Inicar_ventana_ingreso()
    On Error Resume Next
        Load Ingreso
        Ingreso.Show
 
    If Err Then
       MsgBox (Err & vbNewLine & " Descripcion: " & Err.Description & vbNewLine & " 3. PRESIONA ACEPTAR  ")
    End If
 
End Sub

Mismo ERROR, luego de el MSGBOX excel se bloquea y se reinicia

Comparto Archivo Original
En hoja 1 esta el boton para acdeder al sistema
Clave 11111
Adjunto: https://drive.google.com/file/d/1Q0sjEHzGXSZB8FCudCDL9ZFx0HkWyEZJ/view?usp=sharing


Error-de-automatizacion-2
Error-de-automatizacion
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 1.229
Bronce
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Error de automatizacion -2147417848 VBA Excel. .Show

Publicado por Antoni Masana (444 intervenciones) el 05/03/2020 20:24:50
Esto debería funcionar:

1
2
3
Sub Inicar_ventana_ingreso()
    Ingreso.Show
End Sub

De todas formas a mi no me da error y funciona perfectamente. Tengo la versión 2010 de Office.

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Error de automatizacion -2147417848 VBA Excel. .Show

Publicado por rafaelp (2 intervenciones) el 20/09/2020 08:35:09
Saludos.

En este codigo presenta el mismo mensaje de error.

Yo en cambio No se nada de programacion, aun asi les pido su auxilia para resolver este caso

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub gomail_Click()
 
Dim MiCorreo As CDO.Message
Dim Apto As String
Dim Nvcno As String
Dim NRcbo As String
Dim Frecibo As String
Dim Cells As Range
Dim RutaNombre As String
Dim Msg As String
 
 
Apto = Range("J9")
Nvcno = Range("F10")
NRcbo = Range("M9")
Frecibo = Range("M11")
RutaNombre = "C:\Users\usuario\Desktop\Sistema D.D. Narayola\Recibos de Pago\Recibo de Pago N " & Nrecibo & " " & "Apto " & Apto & Nvecino & " " & Frecibo & " " & ".pdf"
 
 
For Each Cells In ThisWorkbook.Sheets("Rcbo.pago").Range("F38:F44")
Set MiCorreo = CreateObject("CDO.Message")

La macro es un poco mas larga, sin embargo es el problema esta cuando escribo las ultimas dos lineas que les muestro aqui

Uso Windows 7 y Ofice 2013


Muchas gracias por adelantado
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar