Valores repetidos

¿Hola cómo puedo evitar poder introducir valores repetidos a una celda que corresponde a una columna?

1 respuesta

Respuesta
1
Puedes copiar esta macro desde el Editor de VB (menú Herramientas/Macros) en la hoja de tu libro donde cargarás la columna.
Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Column = 1 And ActiveCell.Row > 2 Then
If ActiveCell.Offset(-1, 0).Value <> 0 Then
Dim valor As Variant
Dim actual, fila As Integer
actual = ActiveCell.Offset(-1, 0).Row
fila = 1 - actual
valor = ActiveCell.Offset(-1, 0).Value
Do While fila < -1
If ActiveCell.Offset(fila, 0).Value = valor Then
MsgBox ("Ya existe ese número")
ActiveCell.Offset(-1, 0).Value = 0
ActiveCell.Offset(-1, 0).Select
fila = 0
Exit Do
Else
fila = fila + 1
End If
Loop
End If
End If
End Sub
Está pensada para la columna A a partir de la fila 2. Podes cambiar estos datos en la línea que dice:
If ActiveCell.Column = 1 ........
Y está pensada para ingresar los datos por columna.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas