Hola de nuevo, tengo un programa (sacado de consultas por foros de Internet) que me funciona perfectamente, se trata de cambiar el color de una forma,

(es un círculo) pero no consigo hacer lo mismo si tengo 10 o mas círculos, como puedo hacerlo ? 

Mando código para una forma pero como hacer para cambiar a mas formas ?

Gracias a todos

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160704
    If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub
    If IsNumeric(Target.Value) Then
        If Target.Value < 100 Then
            ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbRed
        ElseIf Target.Value >= 100 And Target.Value < 200 Then
            ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbYellow
        Else
            ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbGreen
        End If
    End If
End Sub

Te dejo un ejemplo para 3 círculos:

ActiveSheet.Shapes.Range(Array("Oval 1", "Oval 2", "Oval 3")).Fill.ForeColor.RGB = vbRed

Si solo tienes los 10 círculos en la hoja, esta forma te permite hacer lo mismo prescindiendo del nombre de la autoforma.

ActiveSheet.Shapes.SelectAll
Selection.ShapeRange.Fill.ForeColor.RGB = vbRed

 

Hola, gracias por tu ayuda esto funciona perfectamente pero, yo querría que cada una pudiera tener un color según el valor de unas celdas correspondientes (tipo "pasapalabra") puede ser ?

Gracias de nuevo

  

Si, pero sube un archivo y pon un ejemplo manual de como debería funcionar lo que quieres hacer.

Hola, intento simular el juego de "pasa palabra" llevado a un tema personalizado

me gustaría que una macro cambiara el color del circulo A, otra macro el del circulo B y así (según valor de otra celda)

o sea que cuando finalice el tema de la letra A, empiece el de la letra B y así todas

Te adjunto el archivo (en construcción) gracias

Pasa palabra 1.xlsm

Revisa el adjunto.

Si te interesa ponerle tiempo, comentas.

Pasa palabra 1.xlsm

Hola Antoni, maravilloso, esto es mejor de lo que yo esperaba, muy agradecido.

Un abrazo

Estate atento, durante este fin de semana le añadiré el tiempo de juego y la función Pasa palabra. 

Hace 17 horas, Antoni dijo:

Estate atento

Sí @Juan Pelfort , estate atento, porque me da que te vas a quedar así . Cuando Antoni está generoso...

Pues ya estoy aquí.

Seleccionar un temario de la lista y pulsar Comenzar.

Aparecerá una pregunta en la celda J14.

Responder en la celda J16 y pulsar Responder o pulsar Pasa Palabra.

Si quereis jugar con tiempo, llenar la celda L23. de lo contrario informar cero.

El rango de celdas L6:L11 controla los colores del Rosco.

La columna L puede ocultarse.

Pasa palabra full.xlsm

Hola Antoni, he estado de vacaciones y no he podido verlo hasta hoy, muchas gracias, ahora me pondré en ello, tenía una cuestión pendiente sobre el juego, te informaré.

Gracias de nuevo

 

Hola Antoni, esto está perfecto, eres muy generoso, es más de lo que esperaba.

Muchas gracias