Buscar un texto y devolver valor de otra columna

[Andres_tg]

Hola a todos,

Necesito ayuda con una macro para buscar un texto y que me devuelva un valor. Os cuento, en la hoja 1 tengo una tabla en las celdas de la columna B se selecciona mediante una lista el tipo de alimentación y en la columna C tiene que aparecer el valor que le corresponde al tipo de alimentación. En la hoja 2 tengo la tabla con los tipos de alimentación y el valor que me tiene que devolver es la Uadm en la hoja1.

Gracias por vuestra ayuda.

Buscar.xlsx

[Israel Cassales]

Hola

Me permites preguntar ¿Por qué con macro? Un BUSCARV sería suficiente, no.

 

[Andres_tg]

En 14/2/2023 at 15:12 , Israel Cassales dijo:

Hola

Me permites preguntar ¿Por qué con macro? Un BUSCARV sería suficiente, no.

 

Con buscarv sería suficiente, pero quiero que en la celda solo se vea el valor y no la formula

[Israel Cassales]

Pensarás que soy pesado, pero más bien soy curioso.

De manera sencilla podrías grabar la macro haciendo la formula, conviertes a valores terminas la grabación y debería servir si la agregas a un botón.

También podrías en el formato de la celda dejarla oculta y con la hoja protegida la fórmula no se ve.

Algo pintoresco... la creas con tu propio nombre y el usuario regular no sabrá el cómo ni el origen.

No sé, me gusta indagar y lamento si luego pregunto de más.

Saludines.

[DiegoLG]

En 14/2/2023 at 1:17 , Andres_tg dijo:

Necesito ayuda con una macro para buscar un texto y que me devuelva un valor. Os cuento, en la hoja 1 tengo una tabla en las celdas de la columna B se selecciona mediante una lista el tipo de alimentación y en la columna C tiene que aparecer el valor que le corresponde al tipo de alimentación. En la hoja 2 tengo la tabla con los tipos de alimentación y el valor que me tiene que devolver es la Uadm en la hoja1.

te comparto el código

Saludos.

Diego

Sub buscar()
UF = Hoja2.Range("A" & Rows.Count).End(xlUp).Row
Hoja1.Range("C2") = Application.VLookup(Hoja1.Range("B2"), Hoja2.Range("A1:B" & UF), 2, 0)
End Sub