Como buscar coincidencia de datos en 2 hojas excel
Dentro de una macro que desarrollo, estoy utilizando el función find:
Set b = h2.Columns(“B”).Find(fecha, lookat:=xlWhole, LookIn:=xlValues)
Con el objetivo que me indique la fila en la que se encuentra el valor coincidente con “Fecha” dentro de la columna “B”. Si también, en la búsqueda de dicha fila quiero incluir la condición de que en la columna “E” se encuentre el valor coincidente con “Dato”, ¿Cómo lo debo hacer?
He probado así de esta manera:
Set b = h2.Columns(“B”).Find(fecha, lookat:=xlWhole, LookIn:=xlValues) & h2.Columns(“E”).Find(dato, lookat:=xlWhole, LookIn:=xlValues)
Pero no funciona y no se como hacerlo.
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Tienes que realizar un ciclo, por ejemplo:
Set r = h2.Columns("B")
Set b = r.Find(fecha, lookat:=xlWhole, lookin:=xlvalues)
If Not b Is Nothing Then
celda = b.Address
Do
'detalle
If h2.cells(b.row, "E")= dato then
'aquí debes poner el código en caso de que lo encuentre
'
Exit Do 'Se pone exit do, porque ya encontró el dato, entonces ya
'no debe seguir con el ciclo
End If
Set b = r.FindNext(b)
Loop While Not b Is Nothing And b.Address <> celda
End IfSal u dos
