Buscar Valor en varias hojas en Excel
Nuevamente molestándolo solicito su ayuda.
Me puede ayudar con una macro que busque un producto de una lista en un determinado numero de hojas y si encuentra el nombre me devuelva como resultado el numero de la ultima fila.
Esta es la hoja por ejemplo "ají amarillo" y que busque en todas las hoja y si la encuentra me de como resultado el ultimo valor de la columna "H" de la hoja ubicada.
Esta es la hoja cuando la encuentra, la celda para buscar el nombre del producto en cualquier hoja es la celda "B10" siempre va a estar en esa posición el nombre del producto.
Si encuentra el producto entonces el ultimo registro de la columna "h" se copie en la hoja "lista2 según el nombre del producto al que pertenece.
Gracias por la atención
Slds
Robert
1 Respuesta
H o l a:
Te anexo la macro
Sub BuscarValor()
'Por.Dante Amor
Set h1 = Sheets("LISTA")
h1.Columns("D").ClearContents
For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row
'h = i + 2
'Set h2 = Sheets(h)
For Each h2 In Sheets
If h2.[B10] = h1.Cells(i, "B") Then
For j = h2.Range("H" & Rows.Count).End(xlUp).Row To 17 Step -1
If h2.Cells(j, "H").Value <> "" And h2.Cells(j, "H").Value <> " " Then
h1.Cells(i, "D") = h2.Cells(j, "H")
Exit For
End If
Next
Exit For
End If
Next
Next
MsgBox "Fin"
End SubSal u dos
