REEMPLAZAR NOMBRE POR CÓDIGO EN OTRA COLUMNA

Solo consultas sobre macros y código VBA Excel.
Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Responder
SOLBETE
Miembro Frecuente
Miembro Frecuente
Mensajes: 6
Registrado: 01 Nov 2010 12:03

REEMPLAZAR NOMBRE POR CÓDIGO EN OTRA COLUMNA

Mensaje por SOLBETE » 13 Sep 2019 14:38

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.
No tienes los permisos requeridos para ver los archivos adjuntos a este mensaje.



Avatar de Usuario
Antoni
Miembro Frecuente
Miembro Frecuente
Mensajes: 6214
Registrado: 22 Dic 2009 04:58
Ubicación: GALICIA (ESPAÑA)

Re: REEMPLAZAR NOMBRE POR CÓDIGO EN OTRA COLUMNA

Mensaje por Antoni » 14 Sep 2019 05:58

Abre el adjunto y pulsa sobre la flecha azul.
No tienes los permisos requeridos para ver los archivos adjuntos a este mensaje.



Avatar de Usuario
Antoni
Miembro Frecuente
Miembro Frecuente
Mensajes: 6214
Registrado: 22 Dic 2009 04:58
Ubicación: GALICIA (ESPAÑA)

Re: REEMPLAZAR NOMBRE POR CÓDIGO EN OTRA COLUMNA

Mensaje por Antoni » 14 Sep 2019 06:03

Antoni escribió:
14 Sep 2019 05:58
Abre el adjunto y pulsa sobre la flecha azul.
Le he hecho una pequeña corrección a la macro:

Código: Seleccionar todo

Sub AsignarUsuario()
Application.ScreenUpdating = False
For x = 2 To Range("A" & Rows.Count).End(xlUp).Row
   Range("D" & x) = ""
   nombres = Split(Range("A" & x), "/")
   For n = 0 To UBound(nombres)
      Set usuario = Sheets("Usuarios").Columns("A").Find(nombres(n), , , xlWhole)
      If Not usuario Is Nothing Then
         Range("D" & x) = Range("D" & x) & "/" & usuario.Offset(, 1)
      Else
         Range("D" & x) = Range("D" & x) & "/" & "??"
      End If
   Next
   Range("D" & x) = Mid(Range("D" & x), 2)
Next
End Sub



Leopoldo Blancas
Miembro Frecuente
Miembro Frecuente
Mensajes: 620
Registrado: 11 Ene 2019 00:48

Re: REEMPLAZAR NOMBRE POR CÓDIGO EN OTRA COLUMNA

Mensaje por Leopoldo Blancas » 14 Sep 2019 12:19

Hola a ambos,

Para no dejar a mi archivo sin viajar por el cable, aire y espacio...
AsignarCodigoUsuario_LBV.xlsm
Saludos
No tienes los permisos requeridos para ver los archivos adjuntos a este mensaje.



SOLBETE
Miembro Frecuente
Miembro Frecuente
Mensajes: 6
Registrado: 01 Nov 2010 12:03

Re: REEMPLAZAR NOMBRE POR CÓDIGO EN OTRA COLUMNA

Mensaje por SOLBETE » 14 Sep 2019 13:27

Mil gracias Antoni y Leopoldo. Las dos opciones me sirven. Ya las he adaptado a mis tablas. Sois unos genios y aprendo con vosotros. Saludos



Responder