Jump to content
Te enseño 7 de los trucos que me permitieron trabajar 2 horas menos al día >>>

FORMATO CONDICIONAL COMPLICADO

MarcoP

Recommended Posts

MarcoP Newbie

MarcoP

Posted
Posted

Buenas noches.

Por favor requiero ayuda para dar formato condicional a una celda de entre 10 celdas, debe ser fondo negro y letra roja. 

(Las celdas tienen ya diferentes colores CON FORMATO CONDICIONAL que configuré con una macro, pero requiero señalar la celda con un color especial que resalte la ubicación. 

La celda a11 indica dónde estará ubicada la CELDA que deberá tener ese formato diferente.

Ejemplo:

a1

6

3

5

0

9

2

8

7

1

4

a11 3

Agradecería la ayuda que se me brinde.

Marco Porras.

PD: Publiqué en dos 

Héctor Miguel Collaborator

Héctor Miguel

Posted
Posted

a los formatos que ya tengas aplicados (por macro o manuales) agrega una condición más para que el contenido de "la celda" sea igual a lo que pongas en [A11]

MarcoP Newbie

MarcoP

Posted
  • Author
Posted

Buena Miguel. se agradece la sugerencia.

Sub CambiarColorFuenteCondicion()
Dim miRango As Range

Set miRango = Range("A1:XFD100")

'
For Each celdaActual In miRango
If celdaActual.Value = "0" Then celdaActual.Font.Color = RGB(255, 0, 0)
If celdaActual.Value = "1" Then celdaActual.Font.Color = RGB(255, 0, 0)
If celdaActual.Value = "2" Then celdaActual.Font.Color = RGB(255, 0, 0)
If celdaActual.Value = "3" Then celdaActual.Font.Color = RGB(0, 0, 0)
If celdaActual.Value = "4" Then celdaActual.Font.Color = RGB(255, 0, 0)
If celdaActual.Value = "5" Then celdaActual.Font.Color = RGB(255, 0, 0)
If celdaActual.Value = "6" Then celdaActual.Font.Color = RGB(0, 0, 0)
If celdaActual.Value = "7" Then celdaActual.Font.Color = RGB(255, 0, 0)
If celdaActual.Value = "8" Then celdaActual.Font.Color = RGB(255, 0, 0)
If celdaActual.Value = "9" Then celdaActual.Font.Color = RGB(0, 0, 0)

If XXXXXXXXXXXXX          Then xxx.Font.Color = RGB(0, 0, 0)

Next
End Sub

No manejo las condicionales con celdas en VB.

Si me dan un ejemplo yo puedo continuar.

saludos marco porras

 

 

 

Jose BN Collaborator

Jose BN

Posted
Posted
Hace 5 horas, MarcoP dijo:

Buena Miguel. se agradece la sugerencia.

Sub CambiarColorFuenteCondicion()
Dim miRango As Range

Set miRango = Range("A1:XFD100")

'
For Each celdaActual In miRango
If celdaActual.Value = "0" Then celdaActual.Font.Color = RGB(255, 0, 0)
If celdaActual.Value = "1" Then celdaActual.Font.Color = RGB(255, 0, 0)
If celdaActual.Value = "2" Then celdaActual.Font.Color = RGB(255, 0, 0)
If celdaActual.Value = "3" Then celdaActual.Font.Color = RGB(0, 0, 0)
If celdaActual.Value = "4" Then celdaActual.Font.Color = RGB(255, 0, 0)
If celdaActual.Value = "5" Then celdaActual.Font.Color = RGB(255, 0, 0)
If celdaActual.Value = "6" Then celdaActual.Font.Color = RGB(0, 0, 0)
If celdaActual.Value = "7" Then celdaActual.Font.Color = RGB(255, 0, 0)
If celdaActual.Value = "8" Then celdaActual.Font.Color = RGB(255, 0, 0)
If celdaActual.Value = "9" Then celdaActual.Font.Color = RGB(0, 0, 0)

If XXXXXXXXXXXXX          Then xxx.Font.Color = RGB(0, 0, 0)

Next
End Sub

No manejo las condicionales con celdas en VB.

Si me dan un ejemplo yo puedo continuar.

saludos marco porras

 

 

 

Marco revisa creo que esto te podría servir:

  

Sub formato()
Dim celda As Object
Dim rng As Range
'con INPUTBOX seleccionamos un rango de celdas
Set rng = Application.InputBox("en que rango quieres aplicar el formato??", Type:=8)

'recorremos cada celda del rango seleccionado
For Each celda In rng
valor = celda.Value
    'asignamos colores según el valor de la celda
    If valor = "LIBRA" Then
    celda.Interior.Color = 65535
    ElseIf valor = "PERMISO" Then
    celda.Interior.Color = 15773696
    ElseIf valor = "GUARDIA" Then
    celda.Interior.Color = 255
    ElseIf valor = "CONSULTA" Then
    celda.Interior.Color = 5296274
    End If
Next celda
End Sub
Jose BN Collaborator

Jose BN

Posted
Posted

Abusando un poco este un ejemplos obra Héctor compartió hace un tiempo, si notas creo que se adaptan a los criterios que buscas aplicar, solo ajustarlo a lo deseado:

Sub Aplicar_FC()

  Dim Color, Cond, n As Byte

  Color = Array(3, 6, 50)

  Cond = Array(">20", ">15", "<=15")

  Range("f2:f24").Select

  With Selection

    With .FormatConditions

      .Delete

      For n = 1 To 3

        .Add Type:=xlExpression, Formula1:="=$h$1-f2" & Cond(n)

        With .Parent.FormatConditions(n)

          .Font.Bold = True

          .Interior.ColorIndex = Color(n)

        End With

      Next

    End With

  End With

End Sub

 

Dr Hyde Newbie

Dr Hyde

Posted
Posted

prueba esta macro 

Sub colorear_fuente_condicionado()
Set miRango = Range("a1").CurrentRegion

With miRango
    filas = .Rows.Count
    For i = 1 To filas
        numero = .Cells(i, 1)
        Select Case numero
        Case 0, 1, 2, 4, 5, 7, 8
        .Cells(i, 1).Font.ColorIndex = 3
        End Select
    Next i
    .Cells(filas, 1).Interior.ColorIndex = 1
    .Cells(filas, 1).Font.ColorIndex = 3
End With
Set miRango = Nothing
End Sub

 

Archived

This topic is now archived and is closed to further replies.

Go to topic listing

  • 108 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • Sí
      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Mantenimiento de la comunidad
      Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR

  • Files

  • Download Statistics

    • Files
      184
    • Comments
      96
    • Reviews
      28
    More information about "Un juego solitario en Excel"
    Latest File
    Un juego solitario en Excel
    By pegones1

    4    0

  • Crear macros Excel

  • Posts

    • Abraham Valencia
      Macro copiar rango variable per copn celdas combinadas

      By Abraham Valencia · Posted

      Hola. Tu archivo no tiene macros. Sobre las celdas combinadas, ya que no puedes evitar su uso al no ser tus archivos, lo mejor es "des combinarlas" previo a cualquier cosa, incluso en tu misma macro (que no envías). 
    • MarianoCruz
      Macro copiar rango variable per copn celdas combinadas

      By MarianoCruz · Posted

      Hola buenas tardes tengo un archivo en excel que copia varias tablas y las importa a word de manera automatica. Este selecciona las tablas en base a las filas con datos de mi columna C. pueden ser  diferentes rango de tablas. (Pero siempre mi rango es de celdas continuas y con valores continuas) Funciona muy bien. El problema que ahora tengo es que muchos archivos con tablas  tienen las celdas combinadas ya sea horizontalmento o vertical. Aqui es donde empieza mi problema ya que son formatos de origen no puedo modificarlas. Quisiera ajustar mi macro en la parte de seleccion de rango de tablas y que pueda considerar la celdas combinadas y pegarlos en word sin problema. Ya que actualmente no me pone algunas tablas o rangos, o me repite las tablas y no considera las demas. Todo esto a que en algunas no hay valores o las celdas estan combinadas.   Muchas gracias Seleccion automatica de celdas combis.xlsx
    • Héctor Miguel
      FUNCIÓN "UNICOS" EN EXCEL 365

      By Héctor Miguel · Posted

      por si te sirve: la primera matriz (pivotarpor) al inicio los que no tienen profesor asignado (orden ascendente por omision) la segunda (2 matrices y solo unicos) en el orden de aparicion (no asignados al final) la tercera (2 matrices) omite los no asignados (tambien por orden de aparicion) unicos y suma (ayudaExcel).xlsx
    • muyayito
      Exportar a XML. Datos no normalizados

      By muyayito · Posted

      No se si este tema va aquí, si no es así, pido disculpas. Llevo varios días dando vueltas a un fallo que me sale al exportar una tabla a xml y que no consigo resolver. El fallo que me da es que no las asignaciones no son exportables y al comprobar la asignación me dice datos no normalizados.     Libro1.xlsx
    • crengifo
      Comparar los dos últimos datos de una columna dinámica

      By crengifo · Posted

      Buenas tardes estimado JSDJSD, muchas gracias por responder. En efecto esta parte quedo perfecta. Pero me falto indicar que la macro se ejecute dependiendo de la celda L1 ( Caliza o Mezcla). Entonces si dice Caliza aplica la macro que me enviaste, pero si dice Mezcla que haga lo siguiente: Busque el  ultimo dato de la columna K de la hoja Mezcla Adición del libro Base de datos Cementos producido 2024, con la condición de que la columna B debe ser igual a 4 y el dato lo coloque en la celda N1 de la hoja Cemento del libro Cemento. Te comento que el libro Prehomo y Base de datos Cementos producidos 2024 están en carpetas diferentes ya que estos los maneja otra área, como se enmendaría este caso por el comentarios que me enviaste de la ruta. Saludos y un fuerte abrazo   Cemento-2.xlsm

  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy

  I accept