Buscar celda que contiene un dato
Hola, necesito algo parecido. Tengo las celdas S6 a AD6. Necesito que me busque en ese rango, el valor que introduzco en A1, y me devuelva la columna en el que está. Si está en T6, me devuelva T. Gracias
Respuesta de Luis Mondelo
1
Te mando mi solución. Ejecuta esta macro y todo listo
Sub ejemplo()
'por luismondelo
valor = Range("a1").Value
Set busca = ActiveSheet.Range("s6:ad6").Find(valor, LookIn:=xlValues, lookat:=xlWhole)
If Not busca Is Nothing Then
ubica = busca.Address(False, False)
ubica2 = Left(ubica, 1)
MsgBox "El dato está en la columna " & ubica2
End If
End Subrecuerda finalizar
Muchas gracias, ¿no es posible hacerlo mediante una fórmula en vez de con una macro?
Claro que es posible: Después de tener anotado el valor buscado en la celda A1, escribe esta fórmula en la celda B1:
=SI(NO(ESERROR(BUSCARH(A1;S6:AD6;1;FALSO)));"está en la columna "&EXTRAE(DIRECCION(6;COINCIDIR(A1;S6:AD6;0)+18);2;1);"")
recuerda finalizar
