
04/10/2009, 16:38
|
 | | | Fecha de Ingreso: diciembre-2003 Ubicación: A un click de distancia
Mensajes: 1.044
Antigüedad: 21 años, 2 meses Puntos: 11 | |
Excel: Buscar un dato y seleccionarlo Hola Colegas, tengo un codigo en excel, para buscar un numero de pedido que escribo en la Hoja1, y este codigo lo busca en la Hoja12:
si este está, selecciona dicha fila
El problema ocurre si el numero que escribo no coincide con los que hay me da error. Y si no escribo nada me da "verdadero" como resultado de busqueda?Necesito ayuda en el codigo para clasificar los errores y que lo mencione en el msgbox Sub prueba()
Hoja12.Select
Application.ScreenUpdating = False
busca_envio = [D:D].Find(What:=Hoja1.Range("H53").Value).Activate
If busca_envio = True Then 'no se porq da valor verdadero cuando no tiene parametro de busqueda
MsgBox ("no esta")
Else
If busca_envio <> verdadero Then
Rows(ActiveCell.Row & ":" & ActiveCell.Row).Select
MsgBox ("encontrado")
End If
End If
Application.ScreenUpdating = True
End Sub
__________________ -- Nunca te des por vencido, aún vencido -- Web |