Detectar valores duplicados

[Alecs]

Hola!

Tengo un formulario donde ingreso los datos y luego con un botón estos se pasan a una hoja, conforme agrego datos estos se van ubicando en la fila siguiente. Lo que necesito es que antes...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Adrian]

Alecs, Difícil que recibas una respuesta favorable, porque? va un ejemplo: ¿cúal el primer textbox?
Debes poner un archivo con una versión reducida de tu problema, no tu archivo original, sino...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[wenner]

Una idea, si tienes problema sube el archivo:

If COUNTIF(RangoDatos,TextBox.value)>=1 then Msgbox "Valor repetido"

 

[wenner]

Completamente de acuerdo con Adrian

 

[Alecs]

Ah perdón tienen toda la razón no fui muy claro, aqui les dejo un ejemplo, no es el archivo definitivo pero esa es la idea

 

[wenner]

Esto te permite comprobar si el registro ya existe:

Dim RngNombre As String
Dim RngProvincia As String
Dim RngDireccion As String

RngNombre = "B2:B7"
RngProvincia = "C2:C7"
RngDireccion =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Adrian]

Me baso en lo aportado por wenner:
Private Sub CommandButton1_Click()
Dim UltFil As Long
UltFil = Hoja1.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
If...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Alecs]

Muchas gracias :D

Eso es lo que necesito.

Si no es mucha molestia, podrían explicarme un poco el código que me facilitaron. La verdad soy principiante en esto y me interesa entender el...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Adrian]

Va mi parte:
Dim UltFil As Long 'Declaro la variable de tipo entero "largo"

UltFil = Hoja1.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
obtengo la última fila del rango...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Alecs]

Gracias la ayuda realmente fue útil.

En general me parece excelente que exista este sitio, ya en varias ocasiones me han ayudado.