Dante Amor

Te anexo el código Private Sub CBDuracion_Change() Call Calcular_Final End Sub Private Sub ComboBox_Hora_Inicio_Change() Call Calcular_Final End Sub ' Sub Calcular_Final() 'CB_Hora_Final = "" If ComboBox_Hora_Inicio <> "" Then If CBDuracion <> "" And...

Ya tengo tu archivo, lo reviso y pongo la respuesta. Sal u dos

Después de que hayas terminado de actualizar el libro, pon estas líneas: carpeta = "C:\trabajo\" archivo = "pedidos.xlsx" Workbooks(NombreArchivo).SaveAs _ Filename:=carpeta & archivo, _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False...

Te anexo las macros actualizadas. En las macros puse unos comentarios explicando el funcionamiento. Sub GenerarPDF() ' Act Por Dante Amor ' GenerarPDF Macro ' Genera un PDF de la factura creada. ' ' Dim NombreCliente As String Dim MontoTotal As...

Entiendo que el formato en España para las cantidades es 123.456,00 Es decir, utilizan el punto como separador de millares y la coma para serparar decimales. Si es así, y suponiendo que tienes en la columna A las celdas1 y la colunma B las celdas2...

Asigna la siguiente macro a tu botón Sub Alternar_Color() For i = 1 To 10 If wcolor = 6 Then wcolor = xlNone Else wcolor = 6 Rows(i).Interior.ColorIndex = wcolor Next End Sub La macro empieza en la fila 1 con amarillo, luego blanco o sin color, luego...

Ayudaría si pones tu macro para saber en dónde están los rangos origen 1, 2 y 3. Te anexo un ejemplo con comentarios para ayudarte y puedas adaptarlo a tu macro. Sub Copiar_Rangos() ' Por Dante Amor ' Application.ScreenUpdating = False Set l1 =...

Si el combo lo tienes en un userform: Private Sub UserForm_Activate() 'Por.Dante Amor For Each h In Sheets If h.Range("J1") <> 0 Then ComboBox1.AddItem h.Name h.Select End If Next End Sub Dices que te seleccione la hoja, pero si varias hojas tiene J1...

Por lo que comentas. Suponiendo que en la "Hoja4", columna A tienes tus ID que quieres meter en el arreglo, PERO, solamente quieres meter en el arreglo los ID que empiezan con las letras "AM" Según la imagen en el arreglo, solamente cargaríamos los...

Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'si modificas la celda A1 If Not Intersect(Target, Range("A1")) Is Nothing Then If Target.Count > 1 Then Exit Sub ' Set h2 = Sheets("Hoja2")...