Maku

Ahora sí, aquí lo dejo por si a alguien le viene bien. Private Sub Worksheet_Change(ByVal Target As Range) Dim celda As Range Dim imgNombre As String Dim imgOriginal As Shape Dim imgCopia As Shape Dim nombreImagenCelda As String ' Solo actuar si el cambio es en una celda individual If Target.CountLarge > 1 Then Exit Sub Set celda = Target nombreImagenCelda = "Imagen_" & celda.Address(False, False) ' Eliminar imagen existente en esa celda (si existe con ese nombre) On Error Resume Next Me.Shapes(nombreImagenCelda).Delete On Error GoTo 0 ' Determinar qué imagen usar según el valor Select Case celda.Value Case 1: imgNombre = "PruebaEuropa" Case 2: imgNombre = "PruebaAsia" Case 3: imgNombre = "PruebaÁfrica" Case 4: imgNombre = "PruebaAmérica" Case 5: imgNombre = "PruebaOceanía" Case 6: imgNombre = "PruebaMarrón" Case Else: Exit Sub ' No hacer nada si el valor no es válido End Select ' Buscar la imagen original On Error Resume Next Set imgOriginal = Me.Shapes(imgNombre) On Error GoTo 0 If imgOriginal Is Nothing Then MsgBox "No se encontró la imagen '" & imgNombre & "'.", vbExclamation Exit Sub End If ' Copiar la imagen y colocarla sobre la celda imgOriginal.Copy Me.Paste Set imgCopia = Me.Shapes(Me.Shapes.Count) With imgCopia .Top = celda.Top .Left = celda.Left .Height = celda.Height .Width = celda.Width .LockAspectRatio = msoFalse .Name = nombreImagenCelda End With End Sub

Creo que he encontrado la solución dando nombre a las imágenes y haciendo una macro con la que me pone encima esa imagen, dependiendo del número. No, no me funciona porque no me cambia las imágenes al cambiar el número

He comprobado que al eliminar ese listado de nombres, con sus correspondientes fórmulas (aunque INDICE y COINCIDIR no creo que son volátiles), el archivo vuelve a la normalidad. No pierde apenas peso en Kb pero si gana ligereza. Me pregunto si hay otro modo de hacerlo o simplemente me tengo que dar por vencida. La idea es que dependiendo del número que consigo en la celda me cambia a una imagen u otra. El recuadro tapa la celda con el número. ¿Alguna idea?

Puede deberse a la cantidad (una por cuadrado) de nombres que tengo creados, con su correspondiente fórmula, en el administrador? (Esta no es la Hoja 1)

Buenas noches, tengo un problema con un libro de excel, va lento en la Hoja 1 He bajado el tamaño de todas las fotos y he conseguido un peso de 926 Kb, la tercera parte de cualquier otro de los que suelo hacer. Sigo sin encontrar la forma de que funcione normalmente. Las macros de los filtros van muy lentas, pero solo las de esa Hoja 1, el resto me funciona con normalidad. Es verdad que la Hoja 1 contiene más macros de las habituales (25 en lugar de 20), pero son muy sencillas. Sin embargo, si elimino el resto de las hojas, y dejo solo la Hoja 1, funcionan bien los filtros de las macros y la velocidad general de cambio de celda y demás. ¿Me podéis dar una idea de qué mirar o por donde atacarle? No puedo subir el archivo porque no me da el tamaño.

Vale, vale, he visto la luz! Tengo formato condicional que el otro día no vi. Lo miré y no lo vi. Ni te molestes Abraham Valencia. Mil gracias a los dos

Este Listado de condiciones.xlsx

He reducido el archivo dejando solo un continente, espero que sirva. No creo que tengo ningún condicional, las coloreé 'a mano' TODO TARJETAS.xlsx

Acabo de encontrar otro archivo en el que filtré del mismo modo: =FILTRAR(Tabla1[[Nº Tarjeta]:[Condición B]];ESNUMERO(HALLAR(I2;Tabla1[Condición A]))+ESNUMERO(HALLAR(I2;Tabla1[Condición B]))) y en este si me arrastra a las casillas el fondo. ¿Cual puede ser la diferencia?

Buenas tardes, tengo este archivo en el que extraigo los datos de la tabla de la izquierda por medio de un filtro: =FILTRAR(Tabla1[[Personaje]:[Condición]];ESNUMERO(HALLAR(G2;Tabla1[Condición]))) ¿Es posible hacer que las celdas me hereden el color de fondo original?

Siempre es bueno otra opción, y si me la ha hecho llegar... seguro que mejor. La guardo para estudiar 😉 Gracias!

No hay nada como preguntar después de dos horas... para dar con la solución: =FILTRAR(Tabla1[[Nº Tarjeta]:[Condición B]];ESNUMERO(HALLAR(H2;Tabla1[Condición A]))+ESNUMERO(HALLAR(H2;Tabla1[Condición B])))

No me dejaba adjuntarlo en el post anterior

Buenas tardes, necesito filtrar las filas que contienen determinada palabra (H2), tanto las que las que la contienen en la columna 'Condición A' como las que la contienen en la columna 'Condición B' Si lo hago de forma independiente me funciona el filtrado, pero si quiero que revise en las dos columnas... no lo consigo. ¿Me pueden ayudar? Consulta.xlsx

Solucionado! Libro2.xlsm