Necesito Macro para obtener valores que se repiten siempre

L

Lola F

Member

Registrado

3 Oct 2018

Mensajes

39

• 11 Oct 2018

• #2

Te dejo una fórmula por si te sirve

=SI(A1=B1;SI(A1=C1;A1;"No coincide");"Sin coincidencia")

Si son iguales te devolverá el valor de la columna A que da igual puesto que será el mismo que el de...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

Voto a favor 0 Voto en contra

G

Gustavo1985

New member

Registrado

11 Oct 2018

Mensajes

5

• 11 Oct 2018

• #3

muchas gracias, pero el problema es que los valores en cada columna no están ordenados y no hay correlación entre filas, sería buscar un valor que se repita en cualquier fila de A, también en...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

Voto a favor 0 Voto en contra

Cacho R

Moderator

Registrado

23 Jun 2011

Mensajes

14.223

• 11 Oct 2018

• #4

.
Por favor, sube al Foro un archivo de Excel que contenga una decena de filas con datos y -además- el resultado que esperas obtener a partir de ellos, ¿Ok?

Saludos, Cacho R.
.

 

Voto a favor 0 Voto en contra

G

Gustavo1985

New member

Registrado

11 Oct 2018

Mensajes

5

• 11 Oct 2018

• #5

paso un ejemplo del tipo de filtrado que busco, en el ejemplo de todos los valores de las columnas el único que se repite en las tres es el de "1985"

Un saludo y muchas gracias por la ayuda

 

Adjuntos

Sin permisos de acceso

Voto a favor 0 Voto en contra

Cacho R

Moderator

Registrado

23 Jun 2011

Mensajes

14.223

• 12 Oct 2018

• #6

.
¡Ahora se entiende todo!... Puedes intentar con:

Código:Copiar al portapapeles

Sub encontrar_Repetidos()
Dim Dic, Mat, Q&, i&, Tmp, j%

Set Dic = CreateObject("Scripting.Dictionary")
Mat = [a1].CurrentRegion.Resize(...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

Voto a favor 0 Voto en contra

G

Gustavo1985

New member

Registrado

11 Oct 2018

Mensajes

5

• 12 Oct 2018

• #7

Mil gracias Carlos R, el código de la macro es genial y me ha funcionado perfectamente.

Muchas gracias y eternamente en deuda.

 

Voto a favor 0 Voto en contra

Macro Antonio

Moderator

Registrado

22 Dic 2009

Mensajes

10.745

• 13 Oct 2018

• #8

Día lluvioso y aburrido. Otra visión del tema.

Código:Copiar al portapapeles

Sub BuscarRepetidos()
Dim celda As Range, celda1 As Range, celda2 As Range, celda3 As Range
Application.ScreenUpdating = False...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

Voto a favor 0 Voto en contra

G

Gustavo1985

New member

Registrado

11 Oct 2018

Mensajes

5

• 13 Oct 2018

• #9

Antoni, muchisimas gracias !!!

perfecto todo!!!

 

Voto a favor 0 Voto en contra