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 de Dante Amor
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 buscarSub 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 SubEl 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
