UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se puede subir archivos al foro, favor de hacerlo en servidor externo (Dropbox, Drive...) y dejan link. "Sin archivo no hay respuestas"

Favor de leer "Todos los temas" Click aquí.

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

maxi.cifuentes


Hola:

Necesito pintar un grafico de dispersion dependiendo del pais que sea.  Encontre la macro que pego aqui abajo pero solo sirve si quisiera pintar 2 paises y yo necesito modificarla para que me pinte mas colores (un color por cada pais) que en total son 8 paises.

Sub colores()


On Error GoTo noselecciona

    ActiveChart.SeriesCollection(1).Select
    Selection.Format.Fill.ForeColor.RGB = RGB(50, 50, 50)

    
    para = 0
    fila = 2
    Do While para = 0
    If Cells(fila, 3) = 1 Then ActiveChart.SeriesCollection(1).Points(fila - 1).Format.Fill.ForeColor.RGB = RGB(250, 50, 0)
    If Cells(fila, 1) = "" Then para = 1
    fila = fila + 1
    Loop

noselecciona:
If Err Then MsgBox ("Ha de seleccionar el gráfico")


End Sub

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.