Dante Amor

Para abrir en excel: l2.SaveAs ruta & carpeta & "\" & arch & n & ".txt", FileFormat:=xlUnicodeText, CreateBackup:=False 'FileFormat:=xlOpenXMLWorkbook l2.Close savechanges:=False Workbooks.OpenText _ Filename:=ruta & carpeta & "\" & arch & n &...

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

Puedes obtener la fecha máxima utilizando una tabla dinámica. Revisa el siguiente enlace para ver si te sirve la opción. Generar tabla de dos columnas con los valores únicos otra tabla Sal u dos

Envíame tu archivo con unos ejemplos para hacer pruebas

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

Algunas recomendaciones: - No es necesario un select case para revisar el listindex, con un if es suficiente. - No es necesario hacer visible la hoja "formato", puede estar oculta y la puedes copiar - Tampoco es necesario ocultar, después cargar y...

¿Ya tienes una macro y dentro de esa macro tienes la función BuscarV? Puedes poner la macro para ver lo que hace. También dime qué columnas quieres traer de la hoja2 y en cuáles columnas de la hoja1 se deben poner.

Puedes poner una imagen para ver tus datos y con qué encabezados quieres hacer el filtro avanzado. O envíame tu archivo y me explicas con un ejemplo lo que necesitas filtrar Mi correo [email protected] En el asunto del correo escribe tu nombre de...

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

Revisa el siguiente enlace https://www.rondebruin.nl/win/s1/outlook/bmail2.htm Realiza una prueba para enviar el rango de celdas En esta parte: Set rng = Selection.SpecialCells(xlCellTypeVisible) 'You can also use a fixed range if you want 'Set rng =...