Buscador
Hola, por aquí de nuevo molestándote
Aquí la consulta:
Tengo una macro que me busca en varias hoas de excel 97 pero no me funciona la idea en que si encuentra algo me diga en ue lugar esta y en que hoja se encuentra pero lo único que hace es pasar por todo los hojas abiertas y no relaiza nada. Tienes algún ejemplo para omtimiazar el mio te agradeceré.
Cuidate gracias de antemano.
No se que no veo para que funcione
Hasta pronto
Algo del código:
For Each Hoja In ActiveWorkbook.Sheets 'se para en cada hoja para buscar
Hoja.Select
Range("A1").Select
If Val(formbuscar.TextBox1) Then 'si lo encuentra
Select Case Hoja.Name 'de acuerdo al nombre de la hoja arma el mensaje
Case "INVENTORY"
Mensaje = "Batch" & formbuscar.TextBox1 & vbCrLf & "Batch en Inventario"
Case "ASIGNACIONES"
Mensaje = "Batch " & formbuscar.TextBox1 & " asignado el " & ActiveCell.Offset(0, 5).Value
Case "CONTENEDOR"
Mensaje = "Batch " & formbuscar.TextBox1 & " asignado el " & ActiveCell.Offset(0, 5).Value
Case "SUSPENDED"
Mensaje = "Batch " & formbuscar.TextBox1 & " asignado el " & ActiveCell.Offset(0, 5).Value
Case "ANEXOS"
Mensaje = "Batch " & formbuscar.TextBox1 & " asignado el " & ActiveCell.Offset(0, 5).Value
'Case "el nombre de la hoja que sigue"
'y armar los mensajes que necesitas que muestre
End Select
Exit For
End If
Next
End Sub
Aquí la consulta:
Tengo una macro que me busca en varias hoas de excel 97 pero no me funciona la idea en que si encuentra algo me diga en ue lugar esta y en que hoja se encuentra pero lo único que hace es pasar por todo los hojas abiertas y no relaiza nada. Tienes algún ejemplo para omtimiazar el mio te agradeceré.
Cuidate gracias de antemano.
No se que no veo para que funcione
Hasta pronto
Algo del código:
For Each Hoja In ActiveWorkbook.Sheets 'se para en cada hoja para buscar
Hoja.Select
Range("A1").Select
If Val(formbuscar.TextBox1) Then 'si lo encuentra
Select Case Hoja.Name 'de acuerdo al nombre de la hoja arma el mensaje
Case "INVENTORY"
Mensaje = "Batch" & formbuscar.TextBox1 & vbCrLf & "Batch en Inventario"
Case "ASIGNACIONES"
Mensaje = "Batch " & formbuscar.TextBox1 & " asignado el " & ActiveCell.Offset(0, 5).Value
Case "CONTENEDOR"
Mensaje = "Batch " & formbuscar.TextBox1 & " asignado el " & ActiveCell.Offset(0, 5).Value
Case "SUSPENDED"
Mensaje = "Batch " & formbuscar.TextBox1 & " asignado el " & ActiveCell.Offset(0, 5).Value
Case "ANEXOS"
Mensaje = "Batch " & formbuscar.TextBox1 & " asignado el " & ActiveCell.Offset(0, 5).Value
'Case "el nombre de la hoja que sigue"
'y armar los mensajes que necesitas que muestre
End Select
Exit For
End If
Next
End Sub
1 respuesta
Respuesta de fejoal
1