Dante Amor

H o l a: Te anexo la macro Sub Imprimir_Factura() 'Por.Dante Amor Set h1 = Sheets("FACTURA") Set h2 = Sheets("HISTORICOFACTURAS") Set h3 = Sheets("MODULOFACTURACION") celdas = Array("F6", "F8", "B8", "F36", "F40", "F41") h2.Rows(2).Insert For c =...

H ol a: Te anexo la macro Sub Insertar_Filas() 'Por.Dante Amor Application.ScreenUpdating = False For i = Range("H" & Rows.Count).End(xlUp).Row To 1 Step -1 num = Cells(i, "H") If num <> "" And IsNumeric(num) Then Rows(i).Copy Rows(i + 1 & ":" & i +...

H o l a: Te anexo la macro Sub Copiar_Hoja() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("TRIM") Set h2 = Sheets("APU-") valor = h2.Visible h2.Visible = -1 ' col = "A" 'columna código fil = 2 'fila donde empiezan los nombres '...

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

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

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

Te anexo la macro Sub Sumar() 'Por.Dante Amor u = Range("F" & Rows.Count).End(xlUp).Row If u < 6 Then u = 6 Range("F" & u + 1) = WorksheetFunction.Sum(Range("F6:F" & u)) End Sub 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

H ol a: Te anexo la macro para la primera parte, copiar la hoja potencial y ordenar por total. Sub Copiar_Potencial() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("POTENCIAL") Sheets.Add After:=Sheets(Sheets.Count) Set h2 =...