............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

LineaCodigo, no se pueda ingresar 2 veces el mismo dato

Ver el tema anterior Ver el tema siguiente Ir abajo

LineaCodigo, no se pueda ingresar 2 veces el mismo dato

Mensaje por admin2766 el Vie Dic 28, 2012 9:40 am

Estimados
estoy buscando una linea de codigo para que en un textbox no se pueda ingresar 2 veces el mismo numero
como por ejemplo al ingresar una factura, como el correlativo es unico, quiero que me deje ingresarla una vez al sistema y si tratan de ingresarla de nuevo me indique que ya existe

ademas busco otro código para que me rellene la celda en caso de que el cliente ya se halla registrado
ejemplo, escribo un rut y si este ya habia sido ingresado anteriormente, me rellene con los datos anteriormente ingresados o me sugiera los datos, pero nunca me deje ingresar el mismo numero de factura 2 veces.

este es el codigo que llevo hasta el momento


Private Sub cmdAceptar_Click()
'aqui verificamos que los texts no esten vacios
If Me.txtNoNota.text = "" Then MsgBox ("Numero de nota no puede estar vacio"): Exit Sub
If Me.txtProducto.text = "" Then MsgBox ("Producto no puede estar vacio"): Exit Sub
If Me.txtPrecio.text = "" Then MsgBox ("Precio no puede estar vacio"): Exit Sub

' si todo esta bien entonces insertamos los datos en la hoja
If Sheets("CAPTURA").Range("A2").Value = "" Then
' si no hay ningun registro todavia
Sheets("CAPTURA").Range("A2").Value = Me.txtNoNota.text
Sheets("CAPTURA").Range("B2").Value = Me.txtProducto.text
Sheets("CAPTURA").Range("C2").Value = Me.txtPrecio.text
Sheets("CAPTURA").Range("D2").Value = Me.txtFecha.text
Else
' a partir dl segundo registro
Sheets("CAPTURA").Range("A1").End(xlDown)(xlDropDown).Value = Me.txtNoNota.text
Sheets("CAPTURA").Range("A1").End(xlDown).Next.Value = Me.txtProducto.text
Sheets("CAPTURA").Range("A1").End(xlDown).Next.Next.Value = Me.txtPrecio.text
Sheets("CAPTURA").Range("A1").End(xlDown).Next.Next.Next.Value = Me.txtFecha.text
End If
' limpiamos el formulario para la siguiente captura
Me.txtNoNota.text = ""
Me.txtProducto.text = ""
Me.txtPrecio.text = ""
Me.txtFecha.text = ""
' ponemos el cursor en el primer campo de captura
Me.txtNoNota.SetFocus
End Sub


ojala pudieran ayudarme<
saludos cordiales

admin2766

Masculino Cantidad de envíos : 1
Edad : 18
Ciudad - Pais : Chile
Version de Excel : 2010
Fecha de inscripción : 27/12/2012

Volver arriba Ir abajo

Re: LineaCodigo, no se pueda ingresar 2 veces el mismo dato

Mensaje por DANAES el Dom Jun 12, 2016 11:25 pm

Estimado también busco la forma de impedir que ingresen dos veces el mismo registro, sin embargo cuando tu estableces la llave (rut) si el registro ya se encuentra ingresado puedes visualizarlo en el formulario utilizando la funcion buscarv, en mi caso es lo sgte
'mis datos se encuentran en la hoja registros, por lo que la debo seleccionar, el registro que necesito mostrar es fecha_Registro, utilizo la función donde run es la llave, detallo la matriz donde busca el registro y el dato se encuentra en la columna 2, espero sirva de ayuda y si resolviste la primera duda me lo puedas comentar

With Sheets("Registros")

FECHA_REGISTRO.Value = WorksheetFunction.VLookup(RUN.Value, Range("A8:R500"), 2, False)

end with

DANAES

Femenino Cantidad de envíos : 1
Edad : 36
Ciudad - Pais : CHILE
Version de Excel : 2013
Fecha de inscripción : 12/06/2016

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.