Como evitar duplicados en excel macro

15/06/2007 - 23:08 por Mr Gonzalo | Informe spam
Hola amigos, buscando en la red, encontre este codigo pero no funciona del
todo bien, lo que quiero hacer es lo siguiente:

al estar introduciendo datos en excel que me notifique si el dato ya esta
capturado, el codigo es este:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Fila As Long
Dim F As Long
Dim NuevoDato
'si el rango cambiante está en la columna 3 (que es donde buscaré los datos
If Target.Column = 3 Then
'tomo la fila en la que se encuentra el nuevo dato ingresado
Fila = Target.Row
'y tomo el nuevo dato ingresado
NuevoDato = Target.Value
'ahora: yo sé que tu tabla comienza en la fila 3 y se extiende hasta un
lugar
'menos de donde ingresaste el nuevo valor, entonces el rango donde buscaré
'para evitar duplicados será desde C3 hasta una fila anterior a la celda en
donde
'ingresaste el nuevo dato.
Fila = Fila - 10 'resto uno para que busque hasta la celda anterior
'ahora busco el nuevo valor dentro del rango especificado, y pongo un
controlador
'de errores. si el valor existe, almaceno en F en que fila está, para
avisarle al usuario
'que duplicó datos:
On Error Resume Next
F = Range("C3:C25" & Fila).Find(what:=NevoDato, after:=ActiveCell,
LookIn:=xlValues, lookat:=xlWhole).Row
If Err.Number = 91 Then
Exit Sub
Else
MsgBox "El dato ingresado ya se encuentra en la fila " & F
End If
End If
End Sub


saludos.

gonzalo

Preguntas similare

Leer las respuestas

#6 Héctor Miguel
19/06/2007 - 19:35 | Informe spam
hola, Gonzalo !

... la macro... funciona muy bien, pero... comforme voy trabajando usa mucha memoria
... llegando a aumentar la memoria virtual a 1.5 gigas, y tengo que reiciciar la maquina para liberar
... digo que es a causa de la macro pues esto no sucedia [...]



[hasta donde se]...
1) la memoria virtual la administra windows [segun requieran las aplicaciones]
2) la macro propuesta no debiera ocasionarle conflictos a la memoria
[a menos que estes obteniendo errores en su ejecucion] -?-

si te refieres a algo diferente... comentas los detalles faltantes ?
saludos,
hector.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una pregunta AnteriorRespuesta Tengo una respuesta
Search Busqueda sugerida