James Bond

Por fórmula es así

Checa esta macro Sub contar_repetidos() Dim funcion As WorksheetFunction Set funcion = WorksheetFunction Range("a:a").Replace what:=" ", replacement:="" Set datos = Range("a1").CurrentRegion With datos r = .Rows.Count: c = .Columns.Count For i = 1 To...

Una forma seria esta, en la imagen ves un antes y un después, por fórmula no hay manera es a fuerza macro, te paso la macro solo cambia el rango a2 por el rango que manejes y esta es la macro Sub insertar_filas() Set datos = Range("a2").CurrentRegion...

Este el es resultado de la macro, de la hoja laboratorio copie los 1, los 3 y los 5 a la hoja datos, con esta macro Sub COPIAR() Dim FUNCION As WorksheetFunction Set FUNCION = WorksheetFunction Set h2 = Worksheets("DATOS") Set h1 =...

¿Algo así?, como puedes ver en la imagen en B1 aparece el valor que es menor a C y menor a DE, ¿es lo que buscas? , esta es la formula =SI(Y(A1<C1,A1>D1),A1,"")

Este es el resultado de la macro, como ves hace valores únicos y deja los valores máximos correspondientes y aqui esta la macro es bastante sencilla Sub copiar_UM() Set datos = Range("b2").CurrentRegion With datos r = .Rows.Count: c = .Columns.Count...

Supongo que lo que quieres borrar es lo que esta en la imagen, la macro que ves en la imagen es dinámica sin importar cuantos datos tengas o quites o agregues esta siempre borrara los totales y la macro es esta Sub borrar()...

Tienes un numero entero para pasarlo a porcentaje necesitas que la macro haga una división entre 100 para que se capture 0.4 en la celda O57 y de esta manera la fórmula en la hoja de haga el calculo correcto.

Según entiendo, (corrígeme si me equivoco), buscas algo como esto, como puedes ver en el ejemplo de la imagen en el combo 1 salen los nombres y en el combobox2 los proyectos que tiene asignados, la macro es bastante simple. esta es la macro Private...

Prueba con este código Sub buscar_y_anadir() fechah = Range("a1"): fechaa = Range("b1") cuenta = WorksheetFunction.CountA(Range("g:g")) Set datos = Range("g11").Resize(cuenta, 1) With datos For i = 1 To cuenta valida = fechah = .Cells(i, 1) Or fechaa...