UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se puede subir archivos al foro, favor de hacerlo en servidor externo (Dropbox, Drive...) y dejan link. "Sin archivo no hay respuestas"

Favor de leer "Todos los temas" Click aquí.

No estás conectado. Conéctate o registrate

Ir a la página : Precedente  1, 2

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 2 de 2.]

26 Re: 2 formatos condicionales... el 07/11/18, 01:10 am

Igtelo

avatar
Hola Rayman.

De acuerdo a tu ejemplo lo que realmente necesitas es:
En columna H se encuentre el valor mínimo, al encontrarlo se pinten de verde esa celda y la de la derecha.

Te explico la macro línea por línea para que sea claro, la hice con bucles que es mucho más fácil de entender que usando el método Find.

https://www.dropbox.com/s/dmchp34gmj2e48e/Igtelo-Rayman-Color%20seg%C3%BAn%20m%C3%ADnimo.xlsm?dl=0

Saludos
Ignacio Téllez

27 Re: 2 formatos condicionales... el 07/11/18, 04:02 am

Rayman


hola Igtelo,
He probado tu ultima macro y seria correcta, aunque he de decirte que se da un caso en que no funciona, te explico:

si en H hay 2 celdas con el mismo valor y en I hay 2 diferentes, tiene que colorear el de mayor valor... en el ejemplo se ve mas claro

https://mega.nz/#!y1gnzYpb!3CPe9VrEgsz0DSBZbMCnujY2mXaIpazeDtJbN0EmYgY

28 Re: 2 formatos condicionales... el 07/11/18, 11:19 am

Igtelo

avatar
Que tal Rayman.

Pues sólo agrega otro bucle...
Código:
Sub color()
Dim w, x As Currency, celda As Range 'Tipo de variable, currency es para cálculos monetarios

[H5:I23].Interior.color = xlNone    'Borra color en el rango
w = WorksheetFunction.Min([H5:H23])  'Obtiene el mínimo

For Each celda In [H5:H23]  'Bucle para cada celda del rango
 If celda = w Then          'Si el valor de la celda es igual al mínimo, entonces
celda.Resize(, 2).Interior.color = vbGreen 'Selecciona la celda y la de la derecha y aplica color verde
End If                'Cierre del condicional
Next                  'El next indica que repita para cada celda

x = WorksheetFunction.Max([I5:I23])  'Máximo en columna I
For Each celda In [I5:I23]           'Bucle...
 If celda.Interior.color = vbGreen And celda <> x Then  'Si la celda tiene color verde y es distinto del máximo
  celda.Offset(, -1).Resize(, 2).Interior.color = xlNone Borra el color verde en columnas H e I
End If
Next

End Sub
  

Saludos
Ignacio Téllez

29 Re: 2 formatos condicionales... el 07/11/18, 12:19 pm

Rayman


Hola Igtelo,
Siento darte tantas molestias...pero yo no entiendo que pasa ahora...lo he pasado a mi hoja real, y ahora ya no funciona, y la unica diferencia que veo es que en la columna H los valores bienen de un calculo, en vez de ponerlo a mano como hemos estado haciendo en las pruebas.


https://mega.nz/#!v84DTQ4D!9-67FoFrZ2GWcQE3xaOyA3zHXFXVF6HZveRlxrVW70s

30 Re: 2 formatos condicionales... el 07/11/18, 12:37 pm

Igtelo

avatar
Jejeje...

No te preocupes, no importa que sea de fórmulas o valores directos, lo que pasa es que el segundo bucle borra todo, jajaja. Por la noche lo veo: La regué, tiene que ser otra condición.

Nos vemos...
Ignacio Téllez

31 Re: 2 formatos condicionales... el 08/11/18, 12:54 am

Igtelo

avatar
Rayman.

Ya vi con detenimiento el archivo y resulta que estamos queriendo inventar la rueda, jejeje.
No se necesita ni formato condicional ni macro, el autofiltro se encarga de ello:

1.- Activa el autofiltro para el rango
2.- Filtra en columna H por el valor más bajo, te presentará uno o más datos, si es sólo uno, sombreas en columna H e I aplicas el color y listo.
3.- Si son 2 o más datos, en columna I activa el filtro y seleccionas el valor más alto, sombreas y aplicas color.
4.- Desactiva el filtro y ya te queda tu tabla con el color.

Así de sencillo.

Saludos
Ignacio Téllez

32 Re: 2 formatos condicionales... el 08/11/18, 05:06 am

Rayman


hola Igtelo,

En verdad tambien pensé en los filtros...pero como no voy usar grandes cantidades de datos los descarte, y como veras solo ultilizo los que se ven en pantalla, y ademas necesito verlos todos juntos...y con los filtros según creo solo me apareceria un valor (fila).
Luego he intentando hacer lo que me dices y no encuentro la forma de hacerlo.
En cualquier caso, te agradezco tu tiempo e interés mostrado para poder ayudarme con el tema.

un saludo

33 Re: 2 formatos condicionales... el 08/11/18, 11:20 pm

Igtelo

avatar
Ok Rayman.

Es tu decisión, te sugiero que no te limites. Doy por cerrado el tema

Saludos
Ignacio Téllez

Contenido patrocinado


Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 2 de 2.]

Ir a la página : Precedente  1, 2

Permisos de este foro:
No puedes responder a temas en este foro.