Formato a celdas dentro de Rango

Podría ayudarme a encontrar el error. Lo que pretendo hacer es que si la celda tiene contenido se ponga de color Azul pero si no tiene contenido que sea de color Rojo. Este seria mi código:

Sub Celda()

Selection.Interior.Color = RGB(15, 255, 253)

celda.FormulaR1C1 = ""
With celda
Selection.Interior.Color = RGB(252, 16, 16)
End With

End Sub

1 respuesta

Respuesta
2

Tienes el nombre de la macro como "celda"

También estás utilizando el objeto "celda" pero no lo estableciste.

Entonces, si lo quieres con un objeto, podría ser así:

Sub PoneColor1()
    Set Celda = ActiveCell
    With Celda
        If .Value = "" Then
            .Interior.Color = RGB(252, 16, 16)
        Else
            .Interior.Color = RGB(15, 255, 253)
        End If
    End With
End Sub

Si no quieres utilizar un objeto, y simplemente quieres verificar la celda activa:

Sub PoneColor()
    With ActiveCell
        If .Value = "" Then
            .Interior.Color = RGB(252, 16, 16)
        Else
            .Interior.Color = RGB(15, 255, 253)
        End If
    End With
End Sub

Si no quieres utilizar el Else, ni tampoco el with

Sub PoneColor2()
    ActiveCell.Interior.Color = RGB(15, 255, 253)
    If ActiveCell.Value = "" Then ActiveCell.Interior.Color = RGB(252, 16, 16)
End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Detectar si hay caracteres raros o acentos en texto excel

Tengo una base de datos que me da error cuando intento encontrar un texto en un campo, independientemente de si está acentuado o no y me da la sensación de que hay algún carácter raro en algún texto. ¿Hay alguna fórmula que me encuentre todos los...
2 respuestas

Error en código para columna de una consulta

Un gusto saludarlos. Quería solicitar su ayuda, porque necesito crear una columna calculada dentro de una consulta access y para eso uso el siguiente código. Saldofinal: IIf(([Nivel]=1 Or [Nivel]=5), ([Sumadesaldoinicial]+[Sumadebe]-[Sumahaber]),...
3 respuestas

Access: doble clic en listbox (multiselect) para la apertura de un formulario con el registro seleccionado

Nuevamente necesito de su ayuda. Como dice el texto de arriba, tengo un listbox (multiselect) que utilizó para elegir registros filtrados para imprimir. El problema es que son varios campos y hay uno que es algo extenso, por lo que he intentado que...
2 respuestas

Tengo un subformulario en el que en un textbox aparece el campo mes en número y me gustaría se mostrase como texto

Como decía en el enunciado tengo un formulario con un subformulario en el que se muestran los datos de la selección del formulario pero cuando en periodicidad marco mensual aparecen los datos correctamente pero no consigo que se muestre el textBox...
2 respuestas

¿Cómo se quita mensaje de OLE?

A menudo excel se bloquea en todos los libros abiertos, luego al desbloquearse unos 3- 5 minutos después aparece el mensaje: "Microsoft Excel esta esperando que otra aplicación complete una acción OLE." ¿Cómo evitar todo esto y que no vuelva a suceder?
1 respuesta

Como crear una condición en un textbox

Debo crear una condición en esta Macro en el TextBox8 ( se ingresa una fecha) ya que en muchas ocasiones no debo ingresar dicha fecha, y si eso sucede no me permite seguir, como lograr para que esto no suceda Private Sub CommandButton2_Click() Dim...
2 respuestas

Ejecutar macro si en la celda B1 hay datos

Esta es la macro que utilizo siempre, pero tengo la dificultad que a veces me olvido de colocar el numero de curso (Ejp. 1era_1era o 2da_2da ...)en la celda B1, todo este proceso se ejecuta en la hoja Activa "Curso", lo que busco que la macro se...
2 respuestas

¿Qué hay de mal en este macro?

Quiero hacer un macro para hacer un filtro de una base de datos poniendo como condición un periodo de tiempo, teniendo una celda como fecha de inicio y otra celda como fecha de terminación. Te mando imagen de mi libro y código. Muchas gracias Sub...
1 respuesta

Need a good construction contractor for a home renovation project?

Interested in the uk area. Building a home will be a great investment and dream of their life for most of the people. It is really important to choose the best building contractor for this work. Choosing the right, trustworthy professional contractor...
7 respuestas

Saber el último precio de cierre de cada uno de los valores que compone una cartera de acciones y reflejarlos en un textBox.

Estoy construyendo un formulario para que se vuelque los datos de aquellos la situación de una cartera compuesta por acciones. Es un formulario único pero al clikear en un botón comando se abre un formulario continuo. La situación en la que estoy...
1 respuesta