Semaforo

Hola Johann:

Fijate esto:
Seleccioná las celdas donde querés que funcione el "Semaforo". Ir al menu
Formato y ahi elegir Formato Condicional. Allí en la Condición 1 completas:
Valor de Celda, entre, 0, 10. Luego clickeas en Formato y en Tramas eliges
el color verde. Luego pones Agregar >> para agregar otra condición y en la
Condición 2 completas Valor de Celda, entre, 10, 20. Luego clickeas en
Formato y en Tramas eliges el color Amarillo. Mismo proceso para la tercera
condición.
Espero te haya servido.
Saludos!


"Johann Romero" escribió en el mensaje
news:

Como puedo hacer un semaforo, o como puedo hacer cambiar de color una

celda

o un objeto, ya sea un circulo o un cuadrado, cualquier objeto que cambie

de

color

Teniendo 3 rangos

0-10 verde
10-20 amarillo
20-30 rojo

por asi decirlo que tenga 3 rangos, y que el objeto cambie de color de
acuerdo al resultado que salga en una celda determinada por ejemplo A1 12,
deberia el objeto pintarse de color Amarillo.

gracias

tengo esta macro:



Sub semaforo(x As Integer)
ActiveSheet.Shapes("Oval 12").Select
If x = 1 Then

Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 11

ElseIf x = 2 Then
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13

ElseIf x = 3 Then
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10

End If
End Sub



OVAL 12, es el nombre del Circulo que hedibujado en el Excel y que con esta
macro cambia de color, de acuerdo al resultado que me sale en la celda F77,
si en esta sale 1, 2 o3, ejecuta el color de la macro que es Verde, Amarillo
o Rojo, ahora lo que quiero es que esta macro la pueda conectar con esta
celda, para que cuando abra el archivo en Excel se ejecute automaticamente,
y aparezca el color de acuerdo al numero de la celda F77

Como puedo hacer esto?

Gracias.


"Insumos" escribió en el mensaje
news:%

Hola Johann:

Fijate esto:
Seleccioná las celdas donde querés que funcione el "Semaforo". Ir al menu
Formato y ahi elegir Formato Condicional. Allí en la Condición 1
completas:
Valor de Celda, entre, 0, 10. Luego clickeas en Formato y en Tramas eliges
el color verde. Luego pones Agregar >> para agregar otra condición y en la
Condición 2 completas Valor de Celda, entre, 10, 20. Luego clickeas en
Formato y en Tramas eliges el color Amarillo. Mismo proceso para la
tercera
condición.
Espero te haya servido.
Saludos!


"Johann Romero" escribió en el mensaje
news:

Como puedo hacer un semaforo, o como puedo hacer cambiar de color una

celda

o un objeto, ya sea un circulo o un cuadrado, cualquier objeto que cambie

de

color

Teniendo 3 rangos

0-10 verde
10-20 amarillo
20-30 rojo

por asi decirlo que tenga 3 rangos, y que el objeto cambie de color de
acuerdo al resultado que salga en una celda determinada por ejemplo A1 > 12,
deberia el objeto pintarse de color Amarillo.

gracias

Hola Johann

Prueba poner esto en un módulo:

Sub Auto_Open

Application.Run "semaforo"

End Sub

y en el código de la macro semaforo agregá antes de If x = 1 Then:

x = WorkSheets("NOMBRE DE TU HOJA").Range("F77").Value

Espero te sirva.
Saludos

"Johann Romero" escribió en el mensaje
news:#

tengo esta macro:



Sub semaforo(x As Integer)
ActiveSheet.Shapes("Oval 12").Select
If x = 1 Then

Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 11

ElseIf x = 2 Then
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13

ElseIf x = 3 Then
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10

End If
End Sub



OVAL 12, es el nombre del Circulo que hedibujado en el Excel y que con

esta

macro cambia de color, de acuerdo al resultado que me sale en la celda

F77,

si en esta sale 1, 2 o3, ejecuta el color de la macro que es Verde,

Amarillo

o Rojo, ahora lo que quiero es que esta macro la pueda conectar con esta
celda, para que cuando abra el archivo en Excel se ejecute

automaticamente,

y aparezca el color de acuerdo al numero de la celda F77

Como puedo hacer esto?

Gracias.


"Insumos" escribió en el mensaje
news:%
> Hola Johann:
>
> Fijate esto:
> Seleccioná las celdas donde querés que funcione el "Semaforo". Ir al

menu

> Formato y ahi elegir Formato Condicional. Allí en la Condición 1
> completas:
> Valor de Celda, entre, 0, 10. Luego clickeas en Formato y en Tramas

eliges

> el color verde. Luego pones Agregar >> para agregar otra condición y en

la

> Condición 2 completas Valor de Celda, entre, 10, 20. Luego clickeas en
> Formato y en Tramas eliges el color Amarillo. Mismo proceso para la
> tercera
> condición.
> Espero te haya servido.
> Saludos!
>
>
> "Johann Romero" escribió en el mensaje
> news:
>> Como puedo hacer un semaforo, o como puedo hacer cambiar de color una
> celda
>> o un objeto, ya sea un circulo o un cuadrado, cualquier objeto que

cambie

> de
>> color
>>
>> Teniendo 3 rangos
>>
>> 0-10 verde
>> 10-20 amarillo
>> 20-30 rojo
>>
>> por asi decirlo que tenga 3 rangos, y que el objeto cambie de color de
>> acuerdo al resultado que salga en una celda determinada por ejemplo A1
> 12,
>> deberia el objeto pintarse de color Amarillo.
>>
>> gracias
>>
>>
>
>

On 25 abr, 20:31, "Insumos" wrote:

Hola Johann

Prueba poner esto en un módulo:

Sub Auto_Open

Application.Run "semaforo"

End Sub

y en el código de la macro semaforo agregá antes de If x = 1 Then:

x = WorkSheets("NOMBRE DE TU HOJA").Range("F77").Value

Espero te sirva.
Saludos

"Johann Romero" escribió en el mensajenews:#



> tengo esta macro:

> Sub semaforo(x As Integer)
> ActiveSheet.Shapes("Oval 12").Select
> If x = 1 Then

> Selection.ShapeRange.Fill.Visible = msoTrue
> Selection.ShapeRange.Fill.Solid
> Selection.ShapeRange.Fill.ForeColor.SchemeColor = 11

> ElseIf x = 2 Then
> Selection.ShapeRange.Fill.Visible = msoTrue
> Selection.ShapeRange.Fill.Solid
> Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13

> ElseIf x = 3 Then
> Selection.ShapeRange.Fill.Visible = msoTrue
> Selection.ShapeRange.Fill.Solid
> Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10

> End If
> End Sub

> OVAL 12, es el nombre del Circulo que hedibujado en el Excel y que con
esta
> macro cambia de color, de acuerdo al resultado que me sale en la celda
F77,
> si en esta sale 1, 2 o3, ejecuta el color de la macro que es Verde,
Amarillo
> o Rojo, ahora lo que quiero es que esta macro la pueda conectar con esta
> celda, para que cuando abra el archivo en Excel se ejecute
automaticamente,
> y aparezca el color de acuerdo al numero de la celda F77

> Como puedo hacer esto?

> Gracias.

> "Insumos" escribió en el mensaje
>news:%
> > Hola Johann:

> > Fijate esto:
> > Seleccioná las celdas donde querés que funcione el "Semaforo". Ir al
menu
> > Formato y ahi elegir Formato Condicional. Allí en la Condición 1
> > completas:
> > Valor de Celda, entre, 0, 10. Luego clickeas en Formato y en Tramas
eliges
> > el color verde. Luego pones Agregar >> para agregar otra condición y en
la
> > Condición 2 completas Valor de Celda, entre, 10, 20. Luego clickeas en
> > Formato y en Tramas eliges el color Amarillo. Mismo proceso para la
> > tercera
> > condición.
> > Espero te haya servido.
> > Saludos!

> > "Johann Romero" escribió en el mensaje
> >news:
> >> Como puedo hacer un semaforo, o como puedo hacer cambiar de color una
> > celda
> >> o un objeto, ya sea un circulo o un cuadrado, cualquier objeto que
cambie
> > de
> >> color

> >> Teniendo 3 rangos

> >> 0-10 verde
> >> 10-20 amarillo
> >> 20-30 rojo

> >> por asi decirlo que tenga 3 rangos, y que el objeto cambie de color de
> >> acuerdo al resultado que salga en una celda determinada por ejemplo A1
> > > 12,
> >> deberia el objeto pintarse de color Amarillo.

> >> gracias- Ocultar texto de la cita -

- Mostrar texto de la cita -

Al primer post (el de poner el formato condicional a la celda) yo
agrego lo sigte:
Como la celda es cuadrada o rectangular y el semáforo es circular,
Lo que puedes hacer es, sobre la celda con el formato, inserta 5
shapes:
4 rectangulos
1 circulo
Pon el circulo en el medio, dale "traer adelante", y en el formato,
dale transparencia al 100%.
Los rectangulos, pon cada uno de ellos en los 4 lados: sobre el
circulo, por debajo, y por ambos lados,
dale "llevar atras". luego que formas un cuadrado con un circulo en el
centro, dale "agrupar objetos".
Con esto logras una máscara para la celda con formato condicional, te
ahorras las macros..y te queda un buen semáforo.