Excel - REEMPLAZAR NOMBRE POR CÓDIGO EN OTRA COLUMNA

 
Vista:

REEMPLAZAR NOMBRE POR CÓDIGO EN OTRA COLUMNA

Publicado por Salva (1 intervención) el 14/09/2019 01:46:25
Hola, necesito vuestra ayuda.

Tengo un libro de excel con dos hojas. La hoja "BBDD" ]es la tabla principal de datos y la hoja "Usuarios" es la tabla donde se indica el nombre del usuario y el código que tiene asignado. Necesito reemplazar el Nombre del usuario de la hoja "BBDD" por el código asignado que refleja la tabla de la hoja "Usuarios", pero que lo haga en la columna "Código". Lo estoy intentando con esta macro. Pero, evidentemente me reemplaza el nombre por el código en la columna "Nombre", cuando lo que quiero es que lo haga en la ultima columna, respetando la separacion con barras de la primera.

Cells.Replace What:="Antonio", Replacement:="27", LookAt:=xlPart, _SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Muchas gracias. Adjunto archivo de ejemplo.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Hector Madriz
Val: 575
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

REEMPLAZAR NOMBRE POR CÓDIGO EN OTRA COLUMNA

Publicado por Hector Madriz (137 intervenciones) el 15/09/2019 16:46:56
Buen día, prueba esto:

1
2
3
4
5
6
7
8
9
10
11
12
13
Function BuscarCodigos(valor_buscado As Range, rango_origen As Range) As String
   Nombre = ""
   Nombres = Split(valor_buscado, "/")
   For cont = LBound(Nombres) To UBound(Nombres)
       For Each vCelda In rango_origen
           If UCase(vCelda) = UCase(Nombres(cont)) Then
              Nombre = Nombre & IIf(Nombre = "", "", "/") & vCelda.Offset(0, 1)
              Exit For
           End If
       Next
   Next
   BuscarCodigos = Nombre
End Function

Adjunto ejemplo:

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar