excel se me bloquea al ejecutar esta macro

Solo consultas sobre Bases de Datos y Tablas Dinámicas Excel.
Reglas del Foro 1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!

excel se me bloquea al ejecutar esta macro

Notapor molineta » 29 Nov 2017 12:07

JESUS FERNANDEZ

Hace 30 segundo(s)
ESTOY UN POCO DESESPERADO esta macro me funciona, pero despues de ejecutarla la hoja se me queda como bloqueada, para desbloquearla tengo que salir y entrar manualmente de la pestaña activa varias veces, os dejo el codigo por si alguien me puede dar alguna pista de que esta sucediendo, o que hago mal. Solo soy un aficionado jaja gracias por adelantado:

Sub GuardarNominaPFD()
'selecionamos hoja
Sheets("NOMINA").Select
'El nombre del archivo es lo que tenga escrito la celda R11+ R12+ R13 y R14 de la hoja activa
'esto traducido al cristiano es: regimen+año+mes+nombre
'OJO NINGUNA DE ESTAS CELDAS PUEDE SER UNA FECHApor eso convertimos H11 en texto en la celda K8
nombre = Range("R11") & "" & Range("R12") & "" & Range("R13") & "" & Range("R14").Value 'Nombre para el archivo
'selecionamos el rango a imprimir en el pdf
Range("B2:L65").Select
'guardamos PDF en ruta correspondiente
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\JESUS\Google Drive\DIRECCION\GESTION\NOMINAS\2017\" & nombre, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True 'Si quieres que el archivo se abra luego de creado, cambia False por True al final
Range("A1").Select 'celda final selecionada

'**************************ENVIA PDF DE LA NOMINA AL MAIL DEL MUSICO
Dim Email As CDO.Message
Set Email = New CDO.Message
Email.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com"
Email.Configuration.Fields(cdoSendUsingMethod) = 2
With Email.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = CLng(465)
.Item("http://schemas.microsoft.com/cdo/" & "configuration/smtpauthenticate") = Abs(1)
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "clienteskalifornia@gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Ka14La16"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
End With
With Email
.To = Trim([R17].Value)
.From = Trim([R18].Value)
.Subject = Trim([R19].Value)
.TextBody = Trim([R20].Value)
If [R17].Value <> vbNullString Then
.AddAttachment (Trim([R21].Value))
End If
.Configuration.Fields.Update
On Error Resume Next
.Send
End With
If Err.Number = 0 Then
MsgBox "El mail se envió con éxito", vbInformation, "Informe"
Else
MsgBox "Se produjo el siguiente error: " & Err.Description, vbCritical, "Error nro " & Err.Number
End If
Sheets("PROTOCOLO").Select 'seleccionamos hoja de origen
End Sub
molineta
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 22
Registrado: 29 Mar 2013 19:57

Re: excel se me bloquea al ejecutar esta macro

Notapor eavjperu » 29 Nov 2017 23:30

Primero que nada: Sugiero cambiar la contraseña de correo pues ahora todos la tenemos.

Saludos

Abraham Valencia
Avatar de Usuario
eavjperu
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 60
Registrado: 07 Nov 2017 11:59
Ubicación: Perú

Re: excel se me bloquea al ejecutar esta macro

Notapor molineta » 30 Nov 2017 03:01

Gracias por avisar Abraham, ya esta cambiada un saludo-:)
molineta
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 22
Registrado: 29 Mar 2013 19:57


Volver a Bases de Datos y Tablas Dinámicas

¿Quién está conectado?

Usuarios navegando por este Foro: Majestic-12 [Bot] y 2 invitados