No ingresar datos repetidos en una hoja

Tengo un form para ingresar datos en la hoja1 el caso es que requiero que cuando el registro de la columna a1 que es un código se repita me coloque un msgbox("dato ya existe")

1

1 respuesta

Respuesta
3

Esta sería mi solución: En mi ejemplo tengo un textbox y un botón. El valor que ponga en el textbox lo trasladaremos a la columna A de la primera hoja del libro. Si el valor ya existe, no lo acumula y nos mostrará un mensaje de error.

Esta sería la macro del botón:

Private Sub CommandButton1_Click()
valor = TextBox1.Value
contarsi = Application.WorksheetFunction.CountIf(Sheets(1).Columns(1), valor)
If contarsi > 0 Then
MsgBox "el dato ya se encuentra en la base, no se admite" 
TextBox1.Value = ""
Exit Sub
End If
fila = Sheets(1).Range("a65000").End(xlUp).Row + 1
Sheets(1).Cells(fila, 1).Value = valor
TextBox1.Value = ""
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas