José Saúl Méndez Alonso

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...

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

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 =...

Te recomiendo colocar una etiqueta al lado de cada caja de texto y añadir el siguiente código en el evento Change de cada una, también te puede ser útil para validad que ninguna caja se quede vacía. Private Sub TextBox1_Change() If (TextBox1.Text) =...

Te dejo un código que puede servirte para rellenar la columna con la fórmula y detenerse cuando encuentre una celda vacía. Sub Rellenar() On Error GoTo Err_Rellenar Dim nCel As Integer nCel = 2 While Not Trim(Range("O" & nCel).Value) = "" Range("P" &...

Te dejo esté código espero te sea de utilidad. Sub CreaHojas(ByVal sNombre As String) On Error GoTo Err_CreaHojas Sheets.Add After:=ActiveSheet Sheets(Sheets.Count).Select ActiveSheet.Name = sNombre 'La asignación de datos la harías en las celdas de...