Macro para un mapa
Hola!
Tengo Excel 2007 español, y soy novato en Visual Basic. De todas formas me he atrevido a hacer una macro que necesito para mi trabajo, que consiste en crear un mapa conectado con base de datos. He probado MapPoint, pero no me sirve, porque lo que necesito es un mapa más básico. He encontrado este tutorial que hace justo lo que necesito: Un mapa por regiones que se coloreen con tonalidades según el valor que le corresponda, y lo estoy siguiendo paso a paso aunque parece que es con una versión anterior de Excel que además es en inglés todo me iba funcionando. Sólo he notado una diferencia, y es al principio, donde en el video pone nombre a los cuadros Reg1 . Etc. Yo no puedo llamarlos igual porque al darle a Enter me traslada a la celda REG1 y no se graba el nombre, así que he tenido que llamarlos _Reg1 . Etc. Y ha funcionado (pasé la fase en la que el cuadro de prueba cambia de color y lo demás), pero al llegar a la parte en que se ejecuta con f8 repetidamente para los demás cuadros, (más o menos por la mitad del vídeo), en la línea: Range("actReg"). Value = Range("Sheet1!A" & i).Value me sale el error:
Se ha producido el error '1004' en tiempo de ejecución: Error en el método 'Range' de objeto '_Global'
¿Cómo puedo solucionar eso para poder seguir con las instrucciones del vídeo?
Gracias
Tengo Excel 2007 español, y soy novato en Visual Basic. De todas formas me he atrevido a hacer una macro que necesito para mi trabajo, que consiste en crear un mapa conectado con base de datos. He probado MapPoint, pero no me sirve, porque lo que necesito es un mapa más básico. He encontrado este tutorial que hace justo lo que necesito: Un mapa por regiones que se coloreen con tonalidades según el valor que le corresponda, y lo estoy siguiendo paso a paso aunque parece que es con una versión anterior de Excel que además es en inglés todo me iba funcionando. Sólo he notado una diferencia, y es al principio, donde en el video pone nombre a los cuadros Reg1 . Etc. Yo no puedo llamarlos igual porque al darle a Enter me traslada a la celda REG1 y no se graba el nombre, así que he tenido que llamarlos _Reg1 . Etc. Y ha funcionado (pasé la fase en la que el cuadro de prueba cambia de color y lo demás), pero al llegar a la parte en que se ejecuta con f8 repetidamente para los demás cuadros, (más o menos por la mitad del vídeo), en la línea: Range("actReg"). Value = Range("Sheet1!A" & i).Value me sale el error:
Se ha producido el error '1004' en tiempo de ejecución: Error en el método 'Range' de objeto '_Global'
¿Cómo puedo solucionar eso para poder seguir con las instrucciones del vídeo?
Gracias
3 Respuestas
Respuesta de cristianccb
1
Creo que se lo que te pasa (lo probé de hecho)... como el video está preparado en inglés tienes Range("actReg"). Value = Range("Sheet1!A" & i).Value
Cambialo por Range("actReg"). Value = Range("Hoja1!A" & i).Value
donde hoja1 es el nombre de tu hoja, quizás le tengaas otro nombre
Ten cuidado en que todas las variables y rangos estén correctamente escritos.
Revisa también que la función vlookup es buscarv
Muy buena idea la del mapa.
Cambialo por Range("actReg"). Value = Range("Hoja1!A" & i).Value
donde hoja1 es el nombre de tu hoja, quizás le tengaas otro nombre
Ten cuidado en que todas las variables y rangos estén correctamente escritos.
Revisa también que la función vlookup es buscarv
Muy buena idea la del mapa.
Antes que nada, perdón por la tardanza, pero la página ha dejado de mandarme correos cuando hay respuestas nuevas, (tendré que mirar porqué) y no me he dado cuenta de que me habías contestado hasta hace poco.
Tenías razón. El truco estaba una vez más en el idioma.
Gracias por tu interés y te cierro las dos.
Un saludo
Manuel
Tenías razón. El truco estaba una vez más en el idioma.
Gracias por tu interés y te cierro las dos.
Un saludo
Manuel
Respuesta de Jonathan Wilson
1
El error tal vez es porque pones:
("actReg").Value = Range("Sheet1!A" & i).Value
cuando el actReg lo has llamado distinto.
Verifica bien los nombres y celdas. Debe de salir. Si no puedes, mandame el archivo va
[email protected]
("actReg").Value = Range("Sheet1!A" & i).Value
cuando el actReg lo has llamado distinto.
Verifica bien los nombres y celdas. Debe de salir. Si no puedes, mandame el archivo va
[email protected]
Antes que nada, perdón por la tardanza, pero la página ha dejado de mandarme correos cuando hay respuestas nuevas, (tendré que mirar porqué) y no me he dado cuenta de que me habías contestado hasta hace poco.
Sí, probé con el tema de los nombres, pero no era eso. El truco estaba una vez más en el idioma: Donde pone Sheet1, había que poner Hoja1.
Gracias por tu interés y te cierro las dos.
Un saludo
Manuel
Sí, probé con el tema de los nombres, pero no era eso. El truco estaba una vez más en el idioma: Donde pone Sheet1, había que poner Hoja1.
Gracias por tu interés y te cierro las dos.
Un saludo
Manuel
Respuesta
1
Siento no poder responderte a esa pregunta, pues de macro no se mucho. No puedo ayudarte a eso. Ya miraré más acerca de macros, pero por el momento..
Un saludo y si tienes alguna otra consulta de excel te ayudaré encantado!
Un saludo y si tienes alguna otra consulta de excel te ayudaré encantado!