¿Cómo se fórmula el siguiente código?
Tengo el siguiente formulario de búsqueda. Necesito poner un mensaje de "No existe el registro" cuando el programa realice la búsqueda y no lo encuentre. El problema es que cuando existe el registro también aparece el mensaje "No existe el registro".
Private Sub CommandButton7_Click()
Dim i As Long
Hoja3.Select
For i = 2 To 50000
If Hoja3.Cells(i, 9) = Me.TextBox8 Then
Me.ComboBox3 = Hoja3.Cells(i, 3)
Me.ComboBox4 = Hoja3.Cells(i, 4)
Me.Original = Hoja3.Cells(i, 7)
Else
MsgBox "El registro no existe", vbCritical, "Almacén"
Exit Sub
End If
Next i
End Sub
Respuesta de Abraham Valencia
1
Prueba así y comentas:
Private Sub CommandButton7_Click() Dim i As Long Hoja3.Select For i = 2 To 50000 If Hoja3.Cells(i, 9) = Me.TextBox8 Then Me.ComboBox3 = Hoja3.Cells(i, 3) Me.ComboBox4 = Hoja3.Cells(i, 4) Me.Original = Hoja3.Cells(i, 7) Exit Sub End If Next i MsgBox "El registro no existe", vbCritical, "Almacén" End Sub
Abraham Valencia
