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: 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: Para eliminar todos los saltos de hoja: ActiveSheet. ResetAllPageBreaks Para insertar un salto de hoja: ActiveSheet. HPageBreaks.Add Cells(i, "A") Set ActiveSheet.HPageBreaks(n).Location = Cells(i, "A") Donde i puede ser un contador para...

H o l a: Podrías explicarlo con ejemplos, de preferencia si puedes poner imágenes de lo que tienes y de lo que esperas como resultado. O envíame tu archivo y me explicas paso a paso qué es lo que quieres lograr, utiliza en la hoja ejemplos y me...

H o l a: La segunda macro, digamos que "no funciona", es decir, en la celda vacía no te pone la palabra "test" por lo siguiente. Lo que te voy a mostrar es algo que llamamos "prueba de escritorio", lo que se hace es reemplazar los valores y escribir...

H o l a: El error es porque la longitud de caracteres que tienes en el textbox1 es mayor a 4, entonces si en el texbox1 tienes, por ejemplo: "22344", la longitud es 5 Luego en la fórmula tienes: String(4 - Len(TextBox1), "0") String(4 - 5, "0")...

H o l a: Cambia esta línea: FechaPago = Year(txtFechaPago) Por estas: If txtFechaPago <> "" Then If IsDate(txtFechaPago) Then FechaPago = Year(txtFechaPago) Else FechaPago = "" End If End If':) S a l u d o s . D a n t e A m o r ':) Si es lo que...

H o l a: Lo que pasa es que en tu código tienes esta instrucción: On Error GoTo nohay Si buscas en la primera hoja y no encuentra, entonces ocurre un error, y se va al final de la macro. Conservando tu macro, podría quedar así: Private Sub...

H o l a: Para enviar la imagen en el cuerpo del correo, una opción es con HTML: Sub env() Set objOutlook = CreateObject("Outlook.Application") Set objNamespace = objOutlook.GetNamespace("MAPI") Set objItem = objOutlook.CreateItem(olMailItem)...

H o l a: Yo lo vería desde otro punto de vista, y creo que más práctico. Primero crea un archivo con las macros (módulos y eventos de hoja) que necesites. En ese archivo solamente tendrás una hoja. Ese archivo será nuestro archivo tipo o nuestro...