Evitar registros duplicados al ingresar datos en una base desde un UserForm

21/05/2007 - 22:02 por Insumos | Informe spam
Hola Gente del Foro:

Yo tengo un UserForm por el que se introducen datos a una base. Tomemos por
ejemplo que en el TextBox1 yo ingrese el código "A252". Quiero saber como
puedo hacer para que el código, antes de ingresar el dato en la base, se
fije primero si no existe ya un registro "A252" y avise al usuario por un
msgbox que ese dato ya existe. Intenté usar un código como:
Worksheets("Base").Range("C:C").Find(TextBox1)
pero no se la sintaxis para que el código diga "si encuentra lo que se
ingresó en TextBox1 en la columna C de la hoja Base que le avise al usuario
y si no lo encuentra que siga con el resto", ya que probé con una prueba
lógica, pero Worksheets("Base").Range("C:C").Find(TextBox1) no parece
admitir comandos como = True, o Is Not Nothing, etc.
Desde ya muchas gracias.


CONTADURIA

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
21/05/2007 - 22:16 | Informe spam
hola, ?

... un UserForm por el que se introducen datos a una base... ejemplo... TextBox1... "A252"
... que el codigo, antes de ingresar el dato en la base, se fije primero si no existe ya un registro "A252"
... Intente usar un codigo como: Worksheets("Base").Range("C:C").Find(TextBox1) [...]



p.e.

If Application.CountIf(Worksheets("base").Range("c:c"), TextBox1) Then
MsgBox TextBox1 & " ya existe en la hoja base."
Exit Sub
End If
' sigue codigo en caso de no repetidos... '

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
Respuesta Responder a este mensaje
#2 Insumos
21/05/2007 - 23:40 | Informe spam
Héctor Miguel:

Muchas gracias por tu ayuda. Es exactamente el código que necesitaba!
Gracias otra vez! Saludos!

Mariano

"Héctor Miguel" escribió en el mensaje
news:O0qzkT#
hola, ?

> ... un UserForm por el que se introducen datos a una base... ejemplo...


TextBox1... "A252"
> ... que el codigo, antes de ingresar el dato en la base, se fije primero


si no existe ya un registro "A252"
> ... Intente usar un codigo como:


Worksheets("Base").Range("C:C").Find(TextBox1) [...]

p.e.

If Application.CountIf(Worksheets("base").Range("c:c"), TextBox1) Then
MsgBox TextBox1 & " ya existe en la hoja base."
Exit Sub
End If
' sigue codigo en caso de no repetidos... '

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.


email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida