Maku

Gracias! Lo miro con tiempo y os cuento

Así lo he hecho, he aceptado la segunda columna de anotación y he añadido una macro: Private Sub Worksheet_Calculate() Dim f As Long Dim disparar As Boolean ' Si ya se disparó una vez, salimos If Me.Range("XX2").Value <> "" Then Exit Sub ' Comprobamos si alguna W llegó a 2 For f = 2 To 6 If Me.Cells(f, "W").Value = 2 Then disparar = True Exit For End If Next f ' Si ninguna llegó a 2, no hacemos nada If disparar = False Then Exit Sub ' Guardamos TODO el rango como base For f = 2 To 6 Me.Cells(f, "XX").Value = Me.Cells(f, "W").Value ' Fórmula en Y restando su base Me.Cells(f, "Y").FormulaLocal = _ "=CONTAR.SI.CONJUNTO(Datos!B:B;$V$1;Datos!D:D;$V" & f & ")" & _ "-CONTAR.SI.CONJUNTO(Datos!B:B;$V$1;Datos!E:E;$V" & f & ")" & _ "-XX" & f Next f End Sub No es la opción más bonita porque sigue contando los objetos en la columna W, pero la función me resulta suficiente para poder llevar la cuenta. Tendré que hacer una pequeña macro para cada jugadora, son 14, pero espero no tener problemas

Igual puedo conseguir lo que necesito con dos columnas de anotación? Pero seguiría necesitando una macro que hiciera el efecto: Cuando en la primera columna una de las casillas llegue a 2, el recuento continúa en la segunda. 🤔

Buenas noches, tengo un problema que no consigo solventar tras tres días dándole vueltas. Tengo esta hoja de registro de un juego: -En la hoja Tablas Jugadoras necesito que unas casillas me hagan el recuento de los objetos encontrados por la jugadora, restando los perdidos. Puedo hacerlo con una fórmula, el problema es que quiero que cuando la jugadora haga una pareja (llegue a dos un objeto) estos datos se reseteen, marque un 1 en la celda verde de encima y vuelva a contabilizar desde cero para la segunda pareja (Son necesarias dos) También necesito que me aparezca un 1 en la casilla que está encima de esos recuentos si la jugadora ha conseguido una pareja y VERDADERO si la jugadora ha conseguido las dos. Lo he intentado con la hoja ResetObjetos, pero me encuentro siempre con el mismo problema:cuando una jugadora consigue su primera pareja todo va bien: - resetea anotando lo elminado en la hoja ResetObjetos - me marca 1 en la casilla verde Lo malo es que en cuanto otra jugadora consigue una pareja me marca como verdadero las casillas verdes de las dos jugadoras. He simplificado al máximo el archivo, he eliminado datos, macros, dibujos... espero que lo que queda sea suficiente Gracias por su tiempo! Envío.xlsm

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)