Dante Amor

H o l a: Te anexo el código para insertar fechas. Con este código no es necesario seleccionar la fila, en automático la macro busca la fila que le corresponde según el cliente, anexa la fecha o las fechas y ordena los datos por fechas. ' Private Sub...

H o l a: Tienes pendiente valorar una respuesta: ¿Qué macro hacer para que guarde las unidades vendidas de cada proyecto? También en esta pregunta: Guardar datos que no están en una hoja de excel pero que se encuentran en otra. La respuesta fue...

H o l a: 1. Te anexo el código para poner la carpeta en el istbox. Private Sub cmbLista_Change() 'Por.Dante Amor 'Buscar empresa ' If cmbLista = "" Then Exit Sub ListBox1.Clear Set h = Sheets("Archivo 2015") Set b = h.Columns("A").Find(cmbLista,...

Te anexo la macro actualizada. Te va a presentar en pantalla la lista de impresoras que tienes, deberás seleccionar una impresora. En la impresora que elijas se realizará la impresión. Después se guardará el rango de celdas en PDF, se borrará la...

H o l a: En la celda C1 pon el número 1 Ahora en la celda C2 pon la siguiente fórmula: =SI(C1=1,4,SI(C1=4,5,SI(C1=5,8,1))) Copia o arrastra la fórmula hasta la C100. Para la serie de la columna D, en D1 pon el número 1, en D2, pon la siguiente...

Reemplaza esas líneas, por estas: ruta = ThisWorkbook.Path & "\" arch = h3.[E6] & " - " & Format(Date, "dd" & """ de """ & "mmmm" & """ de """ & "yyyy") h3.ExportAsFixedFormat xlTypePDF, _ ruta & arch & ".pdf", xlQualityStandard, True, False, , ,...

H o l a: Te anexo la macro para generar el pdf Sub GenerarPdf() 'Por.Dante Amor Set h1 = Sheets("Registro") Set h2 = Sheets("diseño para Pdf") Set h3 = Sheets("salida a pdf") ' h3.Cells.ClearContents h3.DrawingObjects.Delete ' n = 0 j = 1...

H o l a: Cambia esto: If Intersect(Target, Range("j7:j934,v7:v934,ah7:ah934,at7:at934,bf7:bf934,br7:br934,cd7:cd934,CP7:CP934,DB7:DB934,DN7:DN934,DZ7:DZ934,EL7:EL934,EX7:EX934,FJ7:FJ934")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub If...

Así quedaría: Private Sub TextBox1_Change() TextBox3 = Round(Val(TextBox1) * Val(TextBox4), 2) TextBox3 = Format(TextBox3, "$ #,000.00") TextBox2 = "" If Val(TextBox4) <> 0 Then TextBox2 = Val(TextBox1) / Val(TextBox4) End If End Sub ' Private Sub...

H o l a: Sub macro() 'Por.Dante Amor ' con el apóstrofo se indica que lo que sigue en la línea es un comentario, es decir, no es código de la macro 'En programación se utilizan variables, y existen varios tipos de variables. ' Set h1 =...