Validación de Celdas..!
Hola expertos..!
He validado toda la columna C para que no entren más de 6 caracteres usando el menu "datos" opción: "validación". Ademas necesito que se valide que sean solo números y que no se repitan.
O sea, necesito que no acepte más de 6 caracteres, que sean números y que no se repitan.
Gracias expertos. Estaría bien agradecido si me ayudan..!
He validado toda la columna C para que no entren más de 6 caracteres usando el menu "datos" opción: "validación". Ademas necesito que se valide que sean solo números y que no se repitan.
O sea, necesito que no acepte más de 6 caracteres, que sean números y que no se repitan.
Gracias expertos. Estaría bien agradecido si me ayudan..!
1 Respuesta
Respuesta de Cadipas spain
1
Con esta pequeña macro creo que se resuelve tu problema:(si tienes dudas de como utilizarla me lo comentas es fácil)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
If Not IsNumeric(Target) Then
MsgBox "El valor tiene que ser numérico"
Range(Target.Address) = ""
End
End If
If Len(Target) <> 6 And Target <> "" Then
MsgBox "Tiene que se un número tiene que tener 6 cifras"
Range(Target.Address) = ""
End
End If
If Target <> "" Then
N1 = Left(Target, 1)
N2 = Mid(Target, 2, 1)
N3 = Mid(Target, 3, 1)
N4 = Mid(Target, 4, 1)
N5 = Mid(Target, 5, 1)
N6 = Mid(Target, 6, 1)
If N1 = N2 Or N1 = N3 Or N1 = N4 Or N1 = N5 Or N1 = N6 Then
MsgBox "No se pueden repetir cifras"
Range(Target.Address) = ""
End
End If
If N2 = N3 Or N2 = N4 Or N2 = N5 Or N2 = N6 Then
MsgBox "No se pueden repetir cifras"
Range(Target.Address) = ""
End
End If
If N3 = N4 Or N3 = N5 Or N3 = N6 Then
MsgBox "No se pueden repetir cifras"
Range(Target.Address) = ""
End
End If
If N4 = N5 Or N4 = N6 Then
MsgBox "No se pueden repetir cifras"
Range(Target.Address) = ""
End
End If
If N5 = N6 Then
MsgBox "No se pueden repetir cifras"
Range(Target.Address) = ""
End
End If
If N1 = N2 Or N1 = N3 Or N1 = N4 Or N1 = N5 Or N1 = N6 Then
MsgBox "No se pueden repetir cifras"
Range(Target.Address) = ""
End
End If
End If
End If
If Range(Target.Address) = "" Then Range(Target.Address).Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
If Not IsNumeric(Target) Then
MsgBox "El valor tiene que ser numérico"
Range(Target.Address) = ""
End
End If
If Len(Target) <> 6 And Target <> "" Then
MsgBox "Tiene que se un número tiene que tener 6 cifras"
Range(Target.Address) = ""
End
End If
If Target <> "" Then
N1 = Left(Target, 1)
N2 = Mid(Target, 2, 1)
N3 = Mid(Target, 3, 1)
N4 = Mid(Target, 4, 1)
N5 = Mid(Target, 5, 1)
N6 = Mid(Target, 6, 1)
If N1 = N2 Or N1 = N3 Or N1 = N4 Or N1 = N5 Or N1 = N6 Then
MsgBox "No se pueden repetir cifras"
Range(Target.Address) = ""
End
End If
If N2 = N3 Or N2 = N4 Or N2 = N5 Or N2 = N6 Then
MsgBox "No se pueden repetir cifras"
Range(Target.Address) = ""
End
End If
If N3 = N4 Or N3 = N5 Or N3 = N6 Then
MsgBox "No se pueden repetir cifras"
Range(Target.Address) = ""
End
End If
If N4 = N5 Or N4 = N6 Then
MsgBox "No se pueden repetir cifras"
Range(Target.Address) = ""
End
End If
If N5 = N6 Then
MsgBox "No se pueden repetir cifras"
Range(Target.Address) = ""
End
End If
If N1 = N2 Or N1 = N3 Or N1 = N4 Or N1 = N5 Or N1 = N6 Then
MsgBox "No se pueden repetir cifras"
Range(Target.Address) = ""
End
End If
End If
End If
If Range(Target.Address) = "" Then Range(Target.Address).Select
End Sub
