9.Modificar_Buscar

REGISTRE SU ASISTENCIA AQUÍ

NOTA: Recuerde que debe estar al día con todas las actividades, el curso complementario termina mañana 30 de Julio del 2020.

Código Buscar:

Dim FILA, FINAL, I As Integer ' declarar variables
If Documento2 = Empty Then ' empty es decir que esta vacio
    MsgBox "ES NECESARIO INGRESAR EL DOCUMENTO PARA REALIZAR LA BUSQUEDA", vbExclamation
    cod.SetFocus
    Exit Sub
Else
  If Op1.Value = True Then ' opciones o seleccion multiplique
     FILA = 2
   Do While Hoja1.Cells(FILA, 1) <> Empty ' haga  mientras  no este vacia la fila
     FILA = FILA + 1 'CONTADORES
     Loop
     FINAL = FILA - 1
     For I = 2 To FINAL ' PARA CUANDO LA FILA INICIE DESDE 8 HASTA EL FINAL
       If Documento2.Text = Hoja1.Cells(I, 1) Then
         Nombres2 = Hoja1.Cells(I, 2)
         Apellidos2 = Hoja1.Cells(I, 3)
         Direccion2 = Hoja1.Cells(I, 4)
         Telefono1 = Hoja1.Cells(I, 5)
        
          MsgBox "?LA CONSULTA SE REALIZO CON ?XITO!"
                    'cod.SetFocus
         Exit Sub
        End If
    Next I
     nom = Empty
     cant = Empty
     MsgBox "NO SE ENCONTRO NINGUN DATO"
                 'cod.SetFocus
  Else
    FILA = 2
    Do While Hoja1.Cells(FILA, 1) <> Empty ' haga  mientras  no este vacia la fila
     FILA = FILA + 1 'CONTADORES
     Loop
     FINAL = FILA - 1
     For I = 2 To FINAL ' PARA CUANDO LA FILA INICIE DESDE 8 HASTA EL FINAL
       If Documento2.Text = Hoja1.Cells(I, 1) Then
         Hoja1.Cells(I, 2) = Nombres2
         Hoja1.Cells(I, 3) = Apellidos2
         Hoja1.Cells(I, 4) = Direccion2
         Hoja1.Cells(I, 5) = Telefono1
          MsgBox "?LOS DATOS SE REGISTRARON CORRECTAMENTE!"
                    'cod.SetFocus
         Exit Sub
        End If
    Next I
     nom = Empty
     cant = Empty
     MsgBox "NO SE ENCONTRO NINGUN DATO"
                   ' cod.SetFocus
                   
         End If

End If

Código Registrar:

Dim ultimafila As Double
If (Documentoo.Text = "") Or (Nombres.Text = "") Or (Apellidos.Text = "") Or (Direccion.Text = "") Or (Telefono.Text = "") Then
   MsgBox "CUIDADO! FALTAN CAMPOS POR LLENAR", vbInformation, "ERROR DE CAPTURA"
Else
   ultimafila = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
   Cells(ultimafila + 1, 1) = Documentoo.Text
   Cells(ultimafila + 1, 2) = Nombres.Text
   Cells(ultimafila + 1, 3) = Apellidos.Text
   Cells(ultimafila + 1, 4) = Direccion.Text
   Cells(ultimafila + 1, 5) = Telefono.Text
End If

Realizar la actividad que se encuentra dentro del siguiente video

ENVIE SU EVIDENCIA HACIENDO CLIC AQUÍ

Recuerde que si tiene alguna actividad pendiente la debes enviar HACIENDO CLIC AQUÍ