Ayuda con mapa

[Gerardo Arevalo]

Buenas tardes a todos.

Espero me pueden dar una mano, ya que no eh podido resolver esto tengo un mapa de Mexico, que dependiendo de su valor de venta es como se colorea el mapa, pero me marca error en la forma Shape.

Hice el ejemplo con 3 formas y si me funciona el codigo, pero ya con el mapa no..

Anexo archivo.

Gracias

Mapa de Mexico - copia.rar

[Antoni]

Lo he intentado de todas las maneras, pero no lo he conseguido, lo siento.

[Gerardo Arevalo]

Amigo no te preocupes, creeme yo antes de preguntar lo intente tambien de mil formas y no funciona, lo hare todo desde cero para ver si asi funciona.

Gracias, che...

Saludos.

[Quetzal Chapa]

Buenas tardes Gerardo.

Intenta el siguiente codigo:

Sub Repintar()

' Utilizando los valores del rango Zonavalores

' Y la escala de colores definida en el rango Escalacoleres

' Colorear el mapa en la hoja Mexico

'

    Dim Zona            As String

    Dim intColourLookup As Integer

    Dim rngZona        As Range

    Dim rngColor        As Range

    Dim Hoja            As Worksheet


    Set rngZona = Range(ThisWorkbook.Names("Zonasvalores").RefersTo)

    Set rngColor = Range(ThisWorkbook.Names("Escalacolores").RefersTo)



    Set Hoja = Worksheets("Mexico")

    With Hoja

        For i = 1 To rngZona.Rows.Count

            Zona = rngZona.Cells(i, 1).Text

            valor = rngZona.Cells(i, 2).Value

                With .Shapes(Zona)

                    .Fill.Solid

                    .Fill.ForeColor.RGB = rngColor.Cells(valor, 1).Offset(0, 1).Interior.Color

                End With


        Next

    End With

End Sub

[/CODE]

Por alguna razon al definir la hoja en una variable si funciona.

por cierto, el estado de colima no esta correctamente identificado viene como "Freeform 25" o algo asi.

Comenta.

Saludos....

Mapa de Mexico - copia.zip

[Gerardo Arevalo]

Quetzal Chapa, wow sos un capo a quedado excelente, muchas gracias! No tengo como agradecerte genio. Que raro que solo definiendo la variable se lograra que funcionara.

Mil gracias amigo.

TEMA FINALIZADO

[Quetzal Chapa]

que tal, tambien se me hace raro, haciendo pruebas asigne la hoja a una variable para poderla agregar a un "watch" y ahi fue donde funciono. no tengo idea de porque, pero al menos ya esta corriendo.

saludos....

[Armando Montes]

Tal vez te interese:

DATOS SOBRE MAPA.xlsm - Google Drive

[Gerardo Arevalo]

Suena interesante le hechare un vistazo para ver como lo puedo adaptar a mi codigo, gracias...!!

[Gerardo Arevalo]

Esta muy interesante el codigo que me envio Antonio, pero no logro adaptarlo a mi macro... Si copio el boton del archivo original a mi archivo y aunque le modifique los datos dentro del mismo, me sigue mostrando los datos del anterior, como podria solucionar esto??

SAludos gracias!!