Dante Amor

H o l a: Te anexo la macro para los combobox, incluye la función para cargar en una función cualquier cambio a los 7 combos; también incluye la verificación si tienes número o texto en los combos Dim h1 'Por.Dante Amor Private Sub ComboBox1_Change()...

H o l a: Prueba con la siguiente macro Sub GuardarPdf() 'Act.Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Ruta = ThisWorkbook.Path & "\" nombre = InputBox("Ingrese Nombre", "Ingreso") If Len(nombre) = 0 Then...

H o l a: ¿En dónde tienes el textbox? ¿Es de un userform? ¿Lo tienes en la hoja como un control de formulario? ¿O lo tienes en la hoja como un control active x?

H o l a: Tienes pendiente valorar esta respuesta: Textbox que te calcule ultimo día del mes anterior Envíame tu archivo y me explicas con ejemplos lo que necesitas. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario...

H o l a: Aquí unos enlaces de la macro para enviar por gmail: Macro Excel VBA enviar Hoja vía E-Mail Macro en access o Excel para Enviar Correos con Archivos a Varias Personas desde Gmail Macro para enviar por gmail una hoja de excel La macro es la...

H o l a: Con gusto te ayudo a crear la macro. Envíame tu archivo y me explicas con un ejemplo qué líneas quieres comer y de cuál hoja a cuál hoja. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Matxalen Ibañez” y el...

H o l a: Prueba con la siguiente macro Private Sub CommandButton3_Click() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False ' Set l1 = ThisWorkbook nombre = Sheets(2).[A62] If nombre = "" Then MsgBox "La celda A62...

H o l a: Te anexo la macro actualizada Sub rest() ActiveWorkbook.Worksheets("LISTADO").Sort.SortFields.Clear ActiveWorkbook.Worksheets("LISTADO").Sort.SortFields.Add Key:=Range("B2:B530" _ ), SortOn:=xlSortOnValues, Order:=xlAscending,...

H o l a: ¿Qué tienes en la celda C17? Pon un ejemplo de lo que tienes en la celda C17 Cambia en la macro esta línea h3.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:="C:\Documents and Settings\Administrador\Escritorio\Recibos de Pago\Empleados...

H o l a: Te anexo la macro, solamente queda un detalle, en el asunto estoy poniendo el texto: Dirigido a: y Pago a: Dime si es correcto o pon un ejemplo de lo que debe estar en el asunto, ya que el destinatario lo estoy tomando de la columna F. Sub...