8.Busqueda

POR FAVOR DAR CLIC AQUÍ Y REGISTRAR SU ASISTENCIA

BUSCAR EN UN FORMULARIO

Actividad 1: Realizar el ejercicio que se encuentra en los videos, aplicando el código de buscar en un formulario de Excel con  Visual Basic.

Código para realizar una búsqueda

Private Sub BUSCAR_Click()

Dim FILA, FINAL, I As Integer
If vendedor = Empty Then
    MsgBox "ES NECESARIO INGRESAR EL CODIGO DEL PRODUCTO PARA REALIZAR LA BUSQUEDA", vbExclamation
    vendedor.SetFocus
    Exit Sub
Else

            FILA = 8
               
                Do While Hoja1.Cells(FILA, 1) <> Empty
                    FILA = FILA + 1 'CONTADORES
                Loop
                    FINAL = FILA - 1
                   
                For I = 8 To FINAL
                    If vendedor.Text = Hoja1.Cells(I, 1) Then
                   
                    nombre = Hoja1.Cells(I, 2)
                    existe = Hoja1.Cells(I, 8)
                   
                   
                    MsgBox "DATOS CARGADOS CON EXITO!"
                    vendedor.SetFocus
                    Exit Sub
                    End If
                Next I
               
                nombre = Empty
                existe = Empty
               
                 MsgBox "NO SE ENCONTRO NINGUN DATO"
                 vendedor.SetFocus

End If

End Sub

VIDEO DE APOYO A LA ACTIVIDAD

ENVIE SU EVIDENCIA EN ESTE LINK