James Bond

Puedes hacerlo así, solo quedaría decir como te muestre la información en un msgbox o en una celda. tiempo_inicial1=time proceso1.... tiempo_final1=time tiempo1=tiempo_final1-tiempo_inicial1 tiempo1=second(tiempo) ' tiempo_inicial2=time proceso2...

¿Esto es lo que buscas? Puse las fórmulas separadas porque en una sola te queda una fórmula demasiado larga y complicada, solo coloca las siguientes fórmulas en este orden, puedes ocultar las líneas de la G a la O para que solo tengas el resultado...

En el ejemplo si la celda l7 es igual a la celda m7 entonces la celda n7 es igual a la celda l7 =+SI(L7=M7,L7,0)

Prueba con la macro abajo de la imagen con el resultado final Sub MACRO() Dim NUMEROS As New Collection Dim TEXTOS As New Collection Set datos = Range("A1").CurrentRegion With datos For I = 1 To .Rows.Count Valor = .Cells(I, 1) If IsNumeric(Valor) =...

Escribes el texto y luego oprimes el botón marcado 1 en la imagen, luego ajusta el ancho de la columna (2) y la altura de la fila (3) usando el ratón hasta que quede la cantidad de párrafos que quieras, centras co en botón en naranja.

Este es un ejemplo de la macro separa las partidas y hace las sumas de la segunda columna y esta es la macro, solo cambia el a1 segun donde comiencen tus datos Sub subtotales() Dim unicos As New Collection Set datos = Range("a1").CurrentRegion With...

Lo naranja es lo que ya tenias en tu archivo, lo que esta abajo de lo naranja son los archivos copiados de los libros ejemplo. y esta es la macro es funcional con tu información, pruébalas y comentas Sub copiar_archivos() Application.DisplayAlerts =...

Te muestro la pantalla con el resultado final y abajo de esta se encuentra la macro esta es la macro Sub copiar() Set datos = Range("i1").CurrentRegion Dim numeros As New Collection Dim textos As New Collection With datos For i = 1 To .Cells.Count...

Pega la imagen aquí, solo elige la opción del menu al lado de la cadena

Prueba esta macro y comentas Sub copiar_archivos() Set HA = ActiveWorkbook.Worksheets("layout") Set datos = HA.Range("A4").CurrentRegion X = Application.GetOpenFilename _ ("Excel Files (*.xlsx), *.xlsx", 2, "Abrir archivos", , True) If IsArray(X)...