Dante Amor

H o l a: El error es porque tu variable "archivo" no es un objeto. Te anexo la macro actualizada, en la macro te puse unos comentarios para diferenciar una variable de un objeto. Es importante que en la siguiente instrucción, pongas el parámetro...

Solamente como breviario: El evento initalize se utiliza cuando el userform se inicia por primera vez. El evento Activate se utiliza para cada vez que se muestra el userform, por ejemplo, abres el userform1. Show, en ese momento se activan los...

No entiendo por qué vuelves a cargar el listbox cada que le das click a un registro. Si previamente ya cargaste el listbox, ya no es necesario que lo cargues nuevamente en el evento click, entonces esto ya no es necesario: Set b = Sheets("vales") uf...

H o la: Cualquiera de estas instrucciones es correcta: ActiveWorkbook.Sheets.Select ThisWorkbook.Sheets.Select Sheets.Select Pero si tienes hojas ocultas te va a enviar el error: "Se ha producido el error '1004' en tiempo de ejecución: Error en el...

Te anexo el código actualizado para cargar desde la fila 11 y hasta la ultima fila con datos de la columna "I" Private Sub UserForm_Activate() 'Act.Por.Dante Amor With ListBox2 .ColumnCount = 2 .ColumnWidths = "50 pt; 50pt" .Clear Set h2 =...

H o la: Bueno, justamente con esa macro no te ayudé, no es la forma en la que yo programo. Pero con gusto la reviso, envíame tu archivo y me explicas con un ejemplo qué quieres copiar, me explicas con el ejemplo utilizando colores y comentarios....

H o la: Me parece que el error es porque no tienes en tu excel la versión para guardar archivos como PDF. Revisa que tengas actualizada la versión de excel. Desde excel, intenta guardar un hoja como pdf. Si no te aparece la opción "Guardar como PDF",...

Te anexo el código para cargar del 1 al 5 en cada combo Private Sub CommandButton1_Click() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Pondera") If IsNumeric(TextBox1) Then rut = Val(TextBox1) Else rut = TextBox1 Set b =...

H o la : Te anexo el código, para cargar los meses y los días de cada mes. Private Sub ComboBox1_Change() 'Por.Dante Amor ComboBox3.Clear If ComboBox1.ListIndex = -1 Or ComboBox1 = "" Then Exit Sub mes = ComboBox1.ListIndex + 1 ultdia =...

H o l a: En un correo nuevo me envías tus archivos y me explicas con ejemplos y con colores lo que necesitas. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Hugo Mandujano Alcala” y el título de esta pregunta.