James Bond

Este es un ejemplo de como funciona la macro y esta es la macro Sub ejecuta() maximos totalizar End Sub Sub maximos() Set funcion = WorksheetFunction Set datos = Range("a1").CurrentRegion With datos f = .Rows.Count: c = .Columns.Count .Sort _...

Prueba con esta macro Sub buscar() With Range("a1") filas = .CurrentRegion.Rows.Count For i = 1 To filas If i = 1 Then Set busca = .CurrentRegion.Find("bajado") If i > 1 Then Set busca = .CurrentRegion.FindNext(busca) Range(busca.Address).Offset(0,...

No me queda claro como son tus tablas así que te paso este ejemplo a lo creo es lo que buscas las imágenes son de un antes y un después de ejecutar la macro que se encuentra abajo de estas imágenes. Sub cortar_datos() Set incidencias =...

es esto lo que buscas? Si es así esta es la macro solo cambia el a2 por la celda donde comiencen tus datos. Dim unicos As New Collection Set datos = Range("a2").CurrentRegion With datos f = .Rows.Count: c = .Columns.Count x = 1 For i = 1 To f...

En la línea que te marca error, la macro se detendrá y te la mostrara en amarillo, sobre esa línea escribe on error resume next y abajo de esa misma línea on error goto 0, la primera ignorara el error y continuara con la macro, la segunda pone el...

Arma la tabla y lo fórmula así

Prueba esta fórmula =+SI(D4<=255,D4/0.85,SI(Y(D4>255,D4<=381),D4/0.88,SI(D4>381,D4/0.9,0)))

Prueba esta fórmula =cociente(267,100) que solo te pondrá el 2, si quieres calcular aparte el residuo la fórmula es=residuo(267,100)

¿Algo así? esta es la macro Sub poner_fechayhora() Dim unicos As New Collection Set datos = Range("b2").CurrentRegion Set funcion = WorksheetFunction With datos f = .Rows.Count: c = .Columns.Count .Columns(c + 1) = "=1+" & .Cells(0, c +...

Esta es la macro que buscas Sub poner_signos() Set datos = Range("a1").CurrentRegion With datos For i = 2 To .Rows.Count .Cells(i, 1) = "*" & .Cells(i, 1) & "*" Next i .EntireColumn.AutoFit End With End