Encontrar valor de una celda buscándolo en el texto que contiene otra celda
Tengo la siguiente problemática:
Necesito encontrar un numero que varia de 1 a 5 dígitos, en una celda "Descripción" que posee texto y números.
Intente con HALLAR, y ENCONTRAR pero no he logrado un resultado positivo.
Tengo una hoja que contiene la información con los siguientes encabezados:
ID de incidente ID de la interacción Área Hora de cierre Estado Código de cierre Título Subárea Tipo de problema Descripción
Necesito realizar la consulta desde otra hoja para que busque el valor en la columna "Descripción" y si este existe entonces obtener el valor de "ID de incidente" y de "Hora Cierre".
Un ejemplo de la información que lleva la hoja:
IM429944 SD920949 Terminal 01-07-2015 Closed Resuelto al momento de visita POS NO FUNCIONA CORRECTAMENTE Terminal no funciona Desconfiguración de terminal "detalle del requerimiento: corresponsal indica que su terminal al intentar abrir le arroja ""error codigo de barras, conectando, tarjeta no num""técnico fue a comercio 15/06/2015 actualizo equipo pero problema persiste y cliente no puede ingresar a terminal pos: 9859 modelo:verifone vx 510 teléfono:09-661XXXXXX fono : 22561XXXXX dirección: la vara 02XXX comuna: san bernardo region:13 hora de atención: 9:00 a 13:00 continuado de lunes a domingo nombre: toledo ubiXXX
El dato que busco desde la otra hoja es el número de POS, pero este no siempre esta en el mismo formato "pos: 9859"
1 Respuesta
Aquí van:
Hoja1
Hoja 2
Y aquí una muestra de referencia de como se ve el texto en donde debo buscar el n° de pos.
H o l a:
No existe una fórmula que te busque dentro de un rango de celdas, Hallar y Encontrar buscan, pero solamente dentro de una celda.
Te anexo la macro para buscar el número de posición:
Sub EncontrarValor()
'Por.Dante Amor
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
'
For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row
Set b = h2.Columns("J").Find(h1.Cells(i, "A"), lookat:=xlPart)
If Not b Is Nothing Then
h1.Cells(i, "K") = h2.Cells(b.Row, "A")
h1.Cells(i, "L") = h2.Cells(b.Row, "D")
End If
Next
End SubEn la hoja1 en las columnas K y L te pondrá los resultados.
