| quilpueino |  |
|
2005-09-29 17:46 - Respuestas: 5 - Tema nº: 41018
tengo esta macro que te puede servir
Private Sub Worksheet_Change(ByVal Target As Range)
Range("a1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(-1, 1).Select
cuenta = ActiveCell.Value
If cuenta > 1 Then
MsgBox "El valor introdocido ya existe.... "
End If
ActiveCell.Offset(1, -1).Select
End Sub
lo que hace es que al ingresar un dato en la columna A avisa si este ya existe
se me olvido que en la columna B debes poner
=CONTAR.SI($A$2:A20001;A2) que cuenta las veces que esta cada valor en la columna A
[ Este mensaje fué editado por: quilpueino el 29-09-2005 a las 17:49] | |
|
