Búsqueda en varias hojas excel

Me pueden ayuda en una hoja en la columna a tengo varios códigos y quiero que dichos códigos los busque en diferentes hojas en el mismo libro y si me lo encuentra me regrese el código y en que hoja fue encontrado.

1 respuesta

Respuesta
2

Te anexo la macro.

Actualiza en la macro los siguientes datos

    Set h1 = Sheets("Hoja1")    'hoja con los códigos
    col = "A"                   'columna con los códigos
    cob = "A"                   'columna donde buscar

Sub Buscar_Codigos()
'Por.Dante Amor
    Set h1 = Sheets("Hoja1")    'hoja con los códigos
    col = "A"                   'columna con los códigos
    cob = "A"                   'columna donde buscar
    For i = 1 To h1.Range(col & Rows.Count).End(xlUp).Row
        cod = h1.Cells(i, col).Value
        hoja = ""
        If cod <> "" Then
            For Each h In Sheets
                If LCase(h.Name) <> LCase(h1.Name) Then
                    Set b = h.Columns(cob).Find(cod, lookat:=xlWhole)
                    If Not b Is Nothing Then
                        hoja = h.Name
                        Exit For
                    End If
                End If
            Next
            h1.Cells(i, col).Offset(0, 1).Value = hoja
        End If
    Next
    MsgBox "Fin"
End Sub

El resultado de la búsqueda te lo pondrá en la columna siguiente de donde tienes los códigos a buscar.

Si necesitas otro resultado, puedes explicar con ejemplos qué datos necesitas.

'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. 
'.[Avísame cualquier duda

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas