Formato Condicional

Hola Maribel,

-Selecciona el rango que contiene las cantidades, digamos B2:B10.
-Ve al menu Formato>Formato Condicional
-En el segundo desplegable de la Condicion 1 elige "Igual o menor a"
-En la casilla q aparecera a continuacion pon 0
-Pulsa el boton Formato
-Ve a la pestaña Trama y elige el color de fonde que prefires.
-Pulsa Aceptar

en la celda [C2] pon la siguiente formula:

=SI(B2<=0;"Tienes que hacer reserva de este producto";"")

Saludos,
KL


"Maribel" wrote in message
news:

Esta es la pregunta:
Producto Cantidad
Aspirina 456
Alcohol -1
Sulfatiasol 0

Y Quiero con formato condicional todas las cantidades que son menores o
igual que cero me lo ponga el color rojo y además me inserte un comentario
que me diga que tengo que hacer reserva de este producto



Ing. Maribel Arana
Help Desk
Centro de Computo Docente U.A.G.R.M

Hola:
Pense que había alguna forma de hacerlo directo es decir las dos cosas a la
vez no por separado

"KL" escribió:

Hola Maribel,

-Selecciona el rango que contiene las cantidades, digamos B2:B10.
-Ve al menu Formato>Formato Condicional
-En el segundo desplegable de la Condicion 1 elige "Igual o menor a"
-En la casilla q aparecera a continuacion pon 0
-Pulsa el boton Formato
-Ve a la pestaña Trama y elige el color de fonde que prefires.
-Pulsa Aceptar

en la celda [C2] pon la siguiente formula:

=SI(B2<=0;"Tienes que hacer reserva de este producto";"")

Saludos,
KL


"Maribel" wrote in message
news:
> Esta es la pregunta:
> Producto Cantidad
> Aspirina 456
> Alcohol -1
> Sulfatiasol 0
>
> Y Quiero con formato condicional todas las cantidades que son menores o
> igual que cero me lo ponga el color rojo y además me inserte un comentario
> que me diga que tengo que hacer reserva de este producto
>
>
>
> Ing. Maribel Arana
> Help Desk
> Centro de Computo Docente U.A.G.R.M

Prueba con el siguiente código, el cual va en el módulo de la hoja (click derecho sobre su etiqueta > Ver código):

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Me.[A1:A10]) Is Nothing Then Exit Sub

With Target
If Not .Comment Is Nothing Then Target.Comment.Delete

If .Value < 1 Then
.Interior.ColorIndex = 3
With .AddComment
.Text Text:="Hacer reserva"
.Shape.TextFrame.AutoSize = True
End With
Else
.Interior.ColorIndex = xlColorIndexNone
End If
End With
End Sub

(Tendrás que ajustar el rango de celdas. Tal como va el código, es A1:A10)

Ten en cuenta que al ejecutarse este código se pierde la posibilidad de deshacer los cambios (desde Edición > Deshacer), así que quizás sea mejor la solución que dio KL.
Un saludo.


Fernando Arroyo
MS MVP - Excel

"Maribel" escribió en el mensaje news:

Hola:
Pense que había alguna forma de hacerlo directo es decir las dos cosas a la
vez no por separado

Hola Fernando:
Gracias por la respuesta era esto lo que necesitaba
Muchas Gracias


"Fernando Arroyo" escribió:

Prueba con el siguiente código, el cual va en el módulo de la hoja (click derecho sobre su etiqueta > Ver código):

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Me.[A1:A10]) Is Nothing Then Exit Sub

With Target
If Not .Comment Is Nothing Then Target.Comment.Delete

If .Value < 1 Then
.Interior.ColorIndex = 3
With .AddComment
.Text Text:="Hacer reserva"
.Shape.TextFrame.AutoSize = True
End With
Else
.Interior.ColorIndex = xlColorIndexNone
End If
End With
End Sub

(Tendrás que ajustar el rango de celdas. Tal como va el código, es A1:A10)

Ten en cuenta que al ejecutarse este código se pierde la posibilidad de deshacer los cambios (desde Edición > Deshacer), así que quizás sea mejor la solución que dio KL.
Un saludo.


Fernando Arroyo
MS MVP - Excel

"Maribel" escribió en el mensaje news:
> Hola:
> Pense que había alguna forma de hacerlo directo es decir las dos cosas a la
> vez no por separado
>

"Maribel" escribió:

Esta es la pregunta:
Producto Cantidad
Aspirina 456
Alcohol -1
Sulfatiasol 0

Y Quiero con formato condicional todas las cantidades que son menores o
igual que cero me lo ponga el color rojo y además me inserte un comentario
que me diga que tengo que hacer reserva de este producto



Ing. Maribel Arana
Help Desk
Centro de Computo Docente U.A.G.R.M