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

Aunque bien mirado... no sé si sería suficiente con igualar el color del texto al fondo. ¿Hay más opciones?

Buenas tardes, pretendo ocultar las celdas AF8:AF10, o que el texto resulte del mismo color que el fondo, en el mes de febrero de los años no bisiestos. He intentado esto... pero me da error. ¿Me podéis orientar? Sub VerificarAnioBisiesto() Dim año As Integer ' Asignar el valor de la celda B2 a la variable año año = Range("B2").Value ' Comprobar si el año es bisiesto If (año Mod 4 = 0 And año Mod 100 <> 0) Or (año Mod 400 = 0) Then ' Hacer visibles CELDAS Range("AF8:AF10").EntireColumn.Hidden = False Else ' Si no es bisiesto, ocultar CELDAS Range("AF8:AF10").Fuente.Color = RGB(255, 255, 255) End If End Sub Libro1.xlsm

¡Mil gracias! Funciona de maravilla

He hecho un archivo pequeño, en el que me ocurre lo mismo, a ver si me deja subirlo Envío.xlsx

No! Curiosamente me extrae los datos de ene y feb pero a partir de ahí (mar, abr, may...) me devuelve resultado 0,00 o #N/D ¿Donde puede estar el fallo? He mirado en cada mes y vienen nombrados así.

Ya está! Si después de horas... no hay como preguntar. Simplemente haciendo un BUSCARV, del valor que aparece en la tabla dinámica, en el rango de los datos =BUSCARV('Resumen Anual'!$X$5;'Previsión y Seguimiento'!P7:T19;2)

Buenas tardes, necesito ayuda porque no sé como resolver esto. Mi intención es que la segmentación de datos (de las gráficas) por mes de la pestaña Gráfico me traiga los datos, de objetivo y reales, de la pestaña Previsión y Seguimiento a las celdas AA (8-10-15-17) de la pestaña Gráfico. ¿Es posible hacerlo de algún modo? Aún reduciendo el archivo al máximo no me permite subirlo ni enviarlo por Drive, por eso he intentado explicarme con la imagen. Gracias por vuestro tiempo

No, no había probado la opción más sencilla... Gracias!

Buenas tardes, he encontrado un tema que habla sobre esto pero al descomprimir el archivo .zip de una respuesta me da error. El tema está cerrado, así que abro este. Pretendo tener la opción de lista desplegable, en una celda, solo si el contenido de otra celda está entre un rango concreto, que en caso contrario pueda escribir libremente. ¿Es posible? Libro1.xlsx

Solucionado cuando he optado por sumar los días de lectura a la fecha de comienzo Gracias Duda3.xlsm