Cambiar valores en un mapa

[Javier Alcain]

Estimados

Necesito plasmar de forma grafica, en un mapa político, resultados de facturación que extraigo de una tabla Dinamica.

Estuve viendo algunos post, pero las soluciones que encontré fueron mas bien dirigidas a crear macros que cambien el color de un área delimitada, ligandola a un valor.

pero no logre encontrar nada relacionada a asignar valores distintos a distintos espacios delimitados (como si cada provincia fuese una celda y yo pudiera hacer un "=A10")

Intente hacer una macro grabando el procedo de copiado y pegado en la imagen utilizando un cuadro de texto, de manera de poder automatizar el proceso para no tener que hacerlo manualmente cada vez que actualice la pivot table, pero al tener escasos conocimientos de Visual Basic, no logre hacer y siempre termino dándome un resultado no satisfactorio.

Adjunto un archivo donde se puede ver lo que quiero lograr, y un trozo de la programación en Basic de lo que quise hacer y no anduvo

https://dl.dropboxusercontent.com/u/41708223/SCA.zip

Sub Ejemplo()

'

' Ejemplo Macro

'


'

    Range("H12:H35").Select

    Selection.Copy

    Range("F40").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    ActiveWindow.SmallScroll Down:=-9

    Range("F40").Select

    Application.CutCopyMode = False

    Selection.Copy

    ActiveSheet.Paste

    ActiveWindow.SmallScroll Down:=15

    Range("F41").Select

    Application.CutCopyMode = False

    ActiveCell.FormulaR1C1 = ""

    ActiveSheet.Paste

    Range("F42").Select

    ActiveWindow.SmallScroll Down:=-12

    ActiveCell.FormulaR1C1 = ""

    Range("F40").Select

    ActiveWindow.SmallScroll Down:=-15

    ActiveSheet.Paste

    ActiveWindow.SmallScroll Down:=27[/CODE]

saludos

y gracias de ante mano

[Antoni]

Hola

Te cuento como está el tema.

He creado dos macros, una para cada mapa.

En el adjunto verás dos "botones", cada uno de ellos ejecuta la macro correspondiente a su mapa.

Para que esto funcione, he tenido que relacionar cada textbox con su ciudad correspondiente, ¿ como ?, renombrando todos los textbox con el nombre de su ciudad (Sin blancos entre medio) seguido de un 1 o un 2 según estemos hablando el primer o del segundo mapa.

Solo está adaptado el primer mapa, el otro debes ir textbox a textbox cambiándole el nombre.

Selecciona el textbox y pon el nombre nuevo en la ventana superior izquierda de la barra de fórmulas. No te olvides de dar Intro después de cambiar el nombre al textbox porqué si no, no lo actualiza.

También he tenido que desagrupar todos los objetos de la hoja ya que me daban problema tal como estaban.

Adjunto en: https://dl.dropboxusercontent.com/u/241435/Copia de SCA.zip

Saludos