Dante Amor

H o l a: Te anexo el código actualizado Dim h1 'Por.Dante Amor Private Sub ComboBox1_Change() cargar 2 End Sub Private Sub ComboBox2_Change() cargar 3 End Sub Private Sub ComboBox3_Change() cargar 4 End Sub Private Sub ComboBox4_Change() cargar 5 End...

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: Pon lo siguiente en el botón, prueba y me comentas. Private Sub CommandButton1_Click() 'Por.Dante Amor TextBox2 = "" If IsDate(TextBox1) Then fec = CDate(TextBox1) If Day(fec) < 15 Then dia = Day(DateSerial(Year(fec), Month(fec), 1) - 1)...

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: Son varias peticiones en una sola pregunta, si estás de acuerdo, te apoyo con cada petición peo deberás crear una pregunta por cada petición. Envíame tu archivo con el formulario para realizar la primera petición: " El Combobox 1, debe...

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