Macro para reemplazar datos teniendo en cuenta codificación
Estoy usando esta macro para reemplazar
Worksheets("Resultado"). Range("A1:AI65000").Replace _
What:="Antioquia", Replacement:="05", _
SearchOrder:=xlByColumns, MatchCase:=True
Funciona perfecto! Pero el problema es que son 32 departamentos. La codificación la tengo en una hoja que se llama CONF, allí esta el listado de todos los departamentos y su respectivo código.
¿Mi pregunta es como hacer para que la macro busque en CONF el código?
Respuesta de Dante Amor
2
Utiliza lo siguiente.
Cambia "A2:A33", por las celdas de la hoja "CONF", donde tienes los nombres de los departamentos, los códigos deberá estar en la siguiente columna, ejemplo:
Sub Reemplazar_Codigo()
Dim c As Range
For Each c In Sheets("Conf").Range("A2:A33")
Sheets("Resultado").Range("A1:AI65000").Replace c, c.Offset(, 1), , xlByColumns, True
Next
End Sub
