jrgces

Por ejemplo, para A1 la fórmula podría ser: =extrae(a1;max(si((extrae(sustituir(a1;",";" ");fila(indirecto("1:"&largo(a1)));1)=" ")*(fila(indirecto("1:"&largo(a1)))0;fila(indirecto("1:"&largo(a1)))))+1;min(si((extrae(sustituir(a1;",";"...

Para que la fórmula me fuese más fácil de escribir y editar le he aplicado el nombre Datos al rango donde se encuentran los textos. La fórmula entonces es:...

Para la fila C: =INDICE($A$2:$A$8;COINCIDIR(K.ESIMO.MAYOR($A$2:$A$8+$B$2:$B$8;FILA()-1);$A$2:$A$8+$B$2:$B$8;0)) y para la fila D: =INDICE($B$2:$B$8;COINCIDIR(K.ESIMO.MAYOR($A$2:$A$8+$B$2:$B$8;FILA()-1);$A$2:$A$8+$B$2:$B$8;0)) Teniendo en cuenta que...

=indirecto("INICIO!$I"&fila()*16-5)

Prueba con =INDICE($B$1:$B$6,COINCIDIR(K.ESIMO.MENOR(SI($A$1:$A$6=C1,ABS(D1-$B$1:$B$6)),1),SI($A$1:$A$6=C1,ABS(D1-$B$1:$B$6)),0)) (Matricial) La fórmula es para la fila 1. Para las demás filas debería bastar con copiarla y pegarla hacia abajo.

Prueba poniendo como fórmula para el formato condicional: =COLUMNA()<=COINCIDIR("P";$A$1:$G$1;0)

No creo que haga falta una macro, prueba poniendo la siguiente fórmula: =SI.ERROR(INDICE(1:1;;K.ESIMO.MENOR(SI($A1:$CV1<>0;COLUMNA($A1:$CV1));COLUMNA()));"") En la columna A de cualquier fila vacía. Si la copias hacia la derecha y hacia abajo...

Por ejemplo, para pegar los registros únicos de la columna A de Hoja1 en la columna DE de la misma hoja el código podría ser: Sub prueba() With Worksheets("Hoja1") .[D:D].Delete .Range("A1:A" & .[A1].End(xlDown).Row).AdvancedFilter...

Puedes crear un rango con nombre oculto usando, por ejemplo: ThisWorkbook.Names.Add Name:="Contador", RefersTo:="1", Visible:=False Para incrementar el contador la instrucción sería: ThisWorkbook.Names("Contador").Value =...

Prueba con: =SI(O(B1>0;C1>0);0;A1)