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

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

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

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

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 un ejemplo de código en MS Access. Private Sub IdPregunta_DblClick(Cancel As Integer) DoCmd.OpenForm "Det subform", acNormal, , "[IdPregunta]=" & [IdPregunta], acFormEdit, acWindowNormal End Sub Debes elegir sobre que control haces el doblo...

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

Te dejó una macro que puede servir para tu propósito. Sub Colores() On Error GoTo Err_Colores Dim nCel As Double Dim sDato As String nCel = 2 While Not Trim(Range("J" & nCel).Value) = "" sDato = Range("J" & nCel).Value If UCase(Left(sDato, 1)) = "J"...