Visual Basic - ERROR DE VALIDACION ¡ayuda!

Val: 3

ERROR DE VALIDACION ¡ayuda!

Publicado por Romario Yonatan (2 intervenciones) el 05/09/2018 22:29:08

Hola, necesito de su ayuda, recién me estoy iniciando en esto de Visual Basic para EXCEL,, y la verdad se me ha armado un embrollo.
He creado un formulario de captura de datos y todo va bien con el registro, pero resulta que necesito que me avise si un dato ya existe, mejor dicho que no permita repetir el registro. He intentado y no pude conseguirlo, recurro a su ayuda por que entiendo que conocen más del tema.
Dejo en la imagen del código que estoy usando en el comandButton, no se que es lo que le falta o donde debería ponerlo para que me haga la validacion.
Gracias.

VIBASIC

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 2

Val: 1.259

ERROR DE VALIDACION ¡ayuda!

Publicado por Antoni Masana (565 intervenciones) el 06/09/2018 11:35:02

Como no se si hay un campo clave o dos o tres en el ejemplo que pongo comparó los tres primeros campos de los 8 datos que añades.
Si hay una coincidencia de estos tres campos no lo añade.

Private Sub CommandButton1_Click()

    Dim fila as Long, Duplicados as Boolean, Lin As Long

    ' --- Obtener la fila disponible

    Fila = Application.WorkSheetFunction.CountA(Range("D:D")) + 1

    Duplicados = False

    Lin=2

    While Lin < Fila

        IF Cells(Lin,  4).Value = UserForm1.TextBox1.Value And _

           Cells(Lin,  6).Value = UserForm1.TextBox2.Value And _

           Cells(Lin,  8).Value = UserForm1.TextBox5.Value Then Duplicados = True

        Lin Lin + 1

    Wend

    IF Not Duplicados Then

        Cells(Fila,  4).Value = UserForm1.TextBox1.Value

        Cells(Fila,  5).Value = UserForm1.TextBox2.Value

        Cells(Fila,  6).Value = UserForm1.TextBox5.Value

...

        MsgBox "Registro Exitoso"

    Else

        MsgBox "Registro Duplicado"

    End If

End Sub

Seguramente hay otras formas de hacerlo pero esta es una de ellas.

Saludos.
\\//_

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar