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, ?

Mostrar la cita
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.
#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#
Mostrar la cita
TextBox1... "A252"
Mostrar la cita
si no existe ya un registro "A252"
Mostrar la cita
Worksheets("Base").Range("C:C").Find(TextBox1) [...]
Mostrar la cita
Ads by Google
Search Busqueda sugerida