José Saúl Méndez Alonso

Una opción sería que el seguimiento de folios lo hagas desde un archivo externo, ejemplo un TXT (encriptado). Otra opción es que el folio lo guardes en el Registro de Windows.

Te dejo esté código para que envíes tus correos con los datos adjuntos. Te recomiendo que pongas en una columna la ruta completa de cada archivo adjunto que deseas enviar. Sub EnviaCorreo() '---------------------------------------------------- 'No...

Agrega la siguiente línea a tu código para pegar las imágenes contenidas en la hoja L2. Sheets(n). Pictures. Paste.Select y para que solamente pegues las hojas visibles, usa la siguiente condición . If l1.Sheets(h(i)).Visible Then Tu código puede...

Para agregar el control, debes hacer clic derecho en la la barra de controles "ToolBox", luego en la opción "Controles adicionales", En el cuadro de dialogo, busca la referencia del OCX "Microsoft Rich TextBox Control 6.0 (SP6)", selecciona la...

Creo que debes declarar tus variables como en el ejemplo, además no veo que tengas declarada la variable "sconexion" Dim conn As New System.Data.Odbc.OdbcConnection Revisalo y valora la respuesta

Te envío una parte de un curso que manejamos de Excel. Espero te sea de utilidad. Introducción a formularios

Ese error se muestra porque están intentando hacer una operación con un objeto recordset, por ejemplo: Sí intentas cerrarlo sin antes haber abierto dicho objeto. Te recomiendo que uses el manejo de errores. Te dejo un ejemplo de código de VB6 con MS...

Usa la función BUSCARV() en las celdas donde deseas mostrar el resultado. Ejemplo G3=BUSCARV($F3,$A$1:$C$8,2,FALSO) Ejemplo H3=BUSCARV($F3,$A$1:$C$8,3,FALSO)

Te dejo esté código para que incluyas la firma en tus correos. De la macro que ya tienes, te recomiendo separarla en dos, en una deja todo lo que armas y exportas a PDF y usa la que te paso para el envío de los correos. Sub EnviaCorreoFirma() On...

Te dejo un código que sirve para enviar correos desde Excel mediante macros. Sub EnviaCorreo() On Error GoTo Err_EnviaCorreo Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") Set OutMail =...