Macro no permite dtos duplicados pero no ordena
Leturia como estás. Tengo una consulta espero me ayudes. Utilizo una macro la cual no me permite ingresar datos duplicados en un rango determinado, pero en el momento de hacer un ordenamiento ascendente de estos registros, no me lo permite hacer! Te copio el código para que lo valides. Agradezco tu ayuda.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([c:c], Target) Is Nothing Then ActiveCell.Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Then Exit Sub
If Application.CountIf([c:c], Target) > 1 Then
MsgBox "El dato introducido en " & Target.Address & " ya existe !!!"
Application.Undo
End If
End Sub
Gracias
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([c:c], Target) Is Nothing Then ActiveCell.Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Then Exit Sub
If Application.CountIf([c:c], Target) > 1 Then
MsgBox "El dato introducido en " & Target.Address & " ya existe !!!"
Application.Undo
End If
End Sub
Gracias
1 respuesta
Respuesta de leturia
1
los ordenas por medio de una macro... ¿o con el ordenar de excel?
Lo que pasa es que cada vez que haces un cambio en la hoja corre la primera macro y seleccionas una celda, por lo que el rango para ordenar desaparece.
Prueba de eliminar la primera macro, y ve que pasa.
Prueba de eliminar la primera macro, y ve que pasa.
