Dante Amor

Dante Amor

https://www.youtube.com/@CursosDeExcelyMacros
 5.752K puntos  Ciudad de México, México @aprendemos desde - visto
Preguntar

Respuestas en Programación

Respuesta en y en 1 temas más a

Combinar filas según el texto.

Podrías explicarlo con imágenes, poniendo de ejemplo en una imagen lo que tienes y en otra imagen lo que esperas de resultado
Respuesta en y en 2 temas más a

Estimado : vi tu post sobre "Macro para copiar datos de varios libros y pegarlos en un libro nuevo en la primera hoja"

Para la primera parte, unir en una hoja de varios libros, revisa la siguiente macro Macro para copiar datos de varios libros de unas celdas especificas y pegarlos en un libro nuevo en la primera hoja. Sub libros() 'Lee archivos del directorio y Copia...
Respuesta en y en 2 temas más a

Fecha automática en una celda especifica con macro

Para poner la fecha en las celdas de la columna B si ya existe información en la columna C, primero debes ejecutar la siguiente macro, solamente una vez. Pon la siguiente macro en un módulo y la ejecutas solamente una vez sobre tu hoja. Sub...
Respuesta en y en 2 temas más a

Tengo una duda sobre la macro creada para crear PDF

Puedes poner la macro que estás utilizando. ¿Qué mensaje de error aparece? ¿En qué línea de la macro se detiene? ¿Si te genera algunos pdf?
Respuesta en y en 1 temas más a

Como obtener la diferencia de 2 texbox con formato hrs

Quedaría así: T_Entrada = Format(Range("F5"), "hh:mm:ss am/pm") T_Actual = Format(Time, "hh:mm:ss am/pm") T_Consum = Format(TimeValue(T_Actual) - TimeValue(T_Entrada), "hh:mm:ss am/pm")
Respuesta en y en 3 temas más a

Problemas con función CDbl en excel VBA

Según tu imagen En el txtvalor3 tienes vacío o nulo. Como bien comentan, tienes que validar el contenido del txtvalor3, puede ser esta forma: If txtvalor3.Value = "" Then t3 = 0 Else t3 = txtvalor3.Value End If ActiveCell.Value = CDbl(t3) Si el valor...
Respuesta en y en 2 temas más a

Como Abrir Archivo .txt mediante un macro y delimitado por el símbolo "^"

Te anexo la macro. Ejecuta la macro Abrir_Txts. Cambia "algo1.txt" y "algo2.txt" por los nombres de tus 2 archivos Sub Abrir_Txts() ' Por Dante Amor ' Carga archivos de texto ' Application.ScreenUpdating = False Set h = Sheets("Hoja8") h.Cells.Clear...
Respuesta en y en 2 temas más a

Macro ordenar rangos dinámicos sin afectar totales

Te anexo la macro. Considera lo siguiente: Los datos deben empezar en la fila 2. Si empiezan en otra fila, cambia los 2 por el número de fila. Los encabezados deben estar en la fila 1. Si están en otra fila, cambia el 1 por el número de fila en esta...
Respuesta en y en 1 temas más a

La función BuscarV no me funciona

¿Y qué error te aparece? Puedes poner una imagen de tu tabla1. Y también pon una imagen para ver qué tienes en la celda B5
Respuesta en y en 3 temas más a

Macro en Excel que cree nuevas hojas de nombre relacionado al anterior

Te anexo la macro Sub Copiar_Hoja_Semana() 'Por Dante Amor prefijo = "wk" ' wmax = 0 For Each h In Sheets largo = Len(prefijo) If LCase(Left(h.Name, largo)) = LCase(prefijo) Then num = Val(Mid(h.Name, largo + 1)) If num > wmax Then wmax = num End If...