Impedir duplicados

18/03/2007 - 00:06 por Albino | Informe spam
Olá
Buenas a todos
Mi duda és:
Tengo un libro con 2 hojas e en la hoja1 tengo 260 lineas con datos en las
columnas A, B, C, D, E e F de la seguiente manera:
A B
C D E
F
1 Código(Numero) Perfil (numero) Designação (texto)
Pedido(numero) Oculta Duplo clic (Vazia)

2 123654987 123 xpto

3 213654987 231 rztew

4 5632145698 15 rgdrews


En lá hoja1 tengo un código con lá funcion offset que me vá copiar lá linea
quando le hago duplo clic en la celda (F) despues de ter introduzido la
quantidade pedida en la celda (D), de seguida me vá pegar essa linea en la
hoja2 en lineas consecutivas. Hasta aqui tudo bien, pero queria saber se
seria possible introduzir una indicacion en el código para que me alertara
si en las lineas pegads en la hoja2 ya existe un pedido igual al que me
estou haciendoe en caso afirmativo esse mesmo pedido no pudesse ser pegado.
De referir que en lá coluna A (Códogo) los valores no se puedem repetir una
vez que cada produto solo puede tener un códogo unico.
Gracias
PS: Perdon mi espanhol
 

Leer las respuestas

#1 Héctor Miguel
18/03/2007 - 05:53 | Informe spam
hola, Albino !

Tengo un libro con 2 hojas e en la hoja1 tengo 260 lineas con datos en las columnas A, B, C, D, E e F de la seguiente manera:
A B C D E F
1 Codigo(Numero) Perfil (numero) Designação (texto) Pedido(numero) Oculta Duplo clic (Vazia)
2 123654987 123 xpto
3 213654987 231 rztew
4 5632145698 15 rgdrews
En la hoja1 tengo un codigo con la funcion offset que me va copiar la linea quando le hago duplo clic en la celda (F)
despues de ter introduzido la quantidade pedida en la celda (D), de seguida me va pegar essa linea en la hoja2 en lineas consecutivas.
Hasta aqui tudo bien, pero queria saber se seria possible introduzir una indicacion en el codigo para que me alertara
si en las lineas pegads en la hoja2 ya existe un pedido igual al que me estou haciendoe
en caso afirmativo esse mesmo pedido no pudesse ser pegado.
De referir que en la coluna A (Codogo) los valores no se puedem repetir una vez que cada produto solo puede tener un codogo unico...



[p.e.]

If Application.CountIf(Worksheets("hoja2").Range("a:a"), Me.Range("a" & Target.Row)) Then
MsgBox Me.Range("a" & Target.Row) & " ya existe en hoja2."
Exit Sub
End If
' sigue codigo en caso de no repetidos... '

si algo estoy interpretando de manera equivocada... comentas ?
saludos,
hector.

Preguntas similares