Hola amigos, Buenos dias, (tardes o noches, segun sea el caso particular de cada quien)
Mi Situacion es la siguiente:
Estoy realizando un libro de excel con Cuatro hojas de calculo.. Llamadas "Mapa", "Datos del Mapa", "Filtrado" y "Datos"
En la hoja "Datos", se introduce cierta informacion desde otra aplicacion por medio de un "Copiar y pegar".
En la Hoja "Filtrado", por medio de macros y auto-filtros se reduce y ordena la informacion contenida en "Datos"
En la hoja "Datos del Mapa" se convinan los datos de la hoja "Filtrado" con informacion contenida en "Datos del mapa"
Un ejemplo de la informacion contenida en "Datos del mapa" es
Cordenadas | X | Y | Nombre | Caracteristica 1 | Caracteristica 2 | ... | Caracteristica N |
10:16 | 10 | 16 | XXXXX | AAAAAAAAAAAA | BBBBBBBBBBBBB| ... | NNNNNNNNNNN |
11:20 | 11 | 20 | XXXXX | AAAAAAAAAAAA | BBBBBBBBBBBBB| ... | NNNNNNNNNNN |
15:06 | 15 | 06 | XXXXX | AAAAAAAAAAAA | BBBBBBBBBBBBB| ... | NNNNNNNNNNN |
01:45 | 01 | 45 | XXXXX | AAAAAAAAAAAA | BBBBBBBBBBBBB| ... | NNNNNNNNNNN |
En "Mapa" es una representacion "grafica" de las cordenadas |X,Y| (o eso es lo que intento hacer)... donde "X" representa la fila y "Y" la columna dentro de el mapa... (Segun el Plano Cartesiano estan invertidos X y Y, lo se, pero la informacion viene en ese formato).
Problema
Realizar un macro que Tome la informacion "Cordenadas| Nombre | Caracteristica 1 | Caracteristica 2 | ... | Caracteristica N"· (Que se encuentra en "Datos del Mapa"), se desplace a la cordenada (X,Y) en "Mapa" e introduzca la informacion correspondiente
Nota: El rango de cordenadas del mapa es (1:1) - (99:99), pero de las 9,801 celdas, solo 5,334 pueden contener informacion
La solucion que se me ocurrio fue
Sub Actualizar_Mapa()
Application.ScreenUpdating = False ' Para agilizar y ocultar el procedimiento del usuario
For Contador = 0 To 5333 step 1 ' Cantidad maxima de cordenadas 5334 - 1
'Obtener las cordenadas
Columna = Worksheets("Datos del Mapa").Range("B:G").Cells(Contador, 0).Value
Fila = Worksheets("Datos del Mapa").Range("B:G").Cells(Contador, 1).Value
'Introducir los valores a la celda(Fila,Columna) del "Mapa"
Worksheets("Mapa").Range("B2:CV100").Cell(Fila,Col umna).Value = "Datos" ' <--- solo ejemplo, aqui va una funcion personalizada
Next Contador
End Sub
Pero tengo un error y no entiendo cual es... apelo a su buena voluntad y vastos conocimientos para solucionar este problemita (para ustedes seria un vasito de agua, para mi el oceano atlantico, je,je)
