NUMERO DE COINCIDENCIAS ENTRE DOS CELDAS.

Creo que con eso lo que se conseguiría sería que buscara en todo el rango a
Pedro o a Perez, pero que pasa si en la siguiente fila tiene a Juan
Martinez???, creo que así no contaría bien porque no tiene a Pedro Perez.

Lo mejor es hacer uso de Macros con VBA, en la primera parte tendrías que
buscar los nombres que estan en las celdas de la columna A dividiendolos por
los espacios, despues hacer una busqueda con InStr y en caso de que regrese
algo diferente de -1 sumarlo, esto haciendolo por cada valor en las celdas.

Espero y me haya explicado, si no, pues manda adjunto el archivo con los
nombres para poder realizarlo, suelo hacer un ejemplo, pero creo que serían
demasiados nombres y nunca acabaría de escribirlos.

Saludos.

escribió en el mensaje de noticias
news:
On 31 jul, 12:26, "Carlos" wrote:

Buenos días Grupo...!

Agradecería de ustedes su gentil ayuda.

Estoy buscando la fórmula que me indique el número de coincidencias de
nombres completos de personas que hay entre dos celdas .. por ejemplo

en la celda A1: Pedro Perez y en la celda A2 Pedro A Perez L

El resultado para el ejempli debe ser 2 (por los nombres Pedro y Perez)

Gracias de antemano.

Hola Carlos

cólocate en b1 e inserta la fórmula =SI(ESERROR(ENCONTRAR("PEDRO";A1));
0;1) .Luego sitúate en c1 y escribe =SI(ESERROR(ENCONTRAR("PEREZ";A1));
0;1) .

Arrastra hacia abajo ambas fórmulas hasta el final del rango de tu
base de datos. Lo que se consigue con esto es que cada vez que
aparezca en las filas de la columna A la palabra PEDRO se contabilice
con un 1 en la columna B y lo mismo con la palabra PEREZ en la columna
C. Finalmente simplemente has de sumar el reultado de las columnas B y
C y obtendrás el número de veces que tienes las dos palabras en tu
base de datos.

hola, Carlos !

Estoy buscando la formula que me indique el numero de coincidencias
denombres completos de personas que hay entre dos celdas .. por ejemplo
en la celda A1: Pedro Perez y en la celda A2 Pedro A Perez L
El resultado para el ejempli debe ser 2 (por los nombres Pedro y Perez)

pureba definiendo una funcion personalizada +/- como sigue:

- abre el editor de vba (atajo de teclado: alt + F11)
- inserta un modulo nuevo estandar (menu: insertar / modulo)
- copia/pega las siguientes lineas:

Function Coinciden(Uno As String, Dos As String, Optional Delim As String = " ") As Byte
Dim Palabras, Sig As Byte
With Application
Palabras = Evaluate("{""" & .Substitute(.Trim(Uno), Delim, """,""") & """}")
End With
For Sig = LBound(Palabras) To UBound(Palabras)
Coinciden = Coinciden - (InStr(1, Dos, Palabras(Sig), vbTextCompare) > 0)
Next
End Function

- cierra el editor de vba (atajo de teclado: Alt + Q o... Alt + F4)
- usa la funcion como las integradas (p.e. en la celda B1) =Coinciden(a1,b1)

saludos,
hector.

Muchas gracias.. me ha servido de maravilla..!

Saludos


"Héctor Miguel" escribió en el mensaje
news:

hola, Carlos !

> Estoy buscando la formula que me indique el numero de coincidencias
> denombres completos de personas que hay entre dos celdas .. por ejemplo
> en la celda A1: Pedro Perez y en la celda A2 Pedro A Perez L
> El resultado para el ejempli debe ser 2 (por los nombres Pedro y Perez)

pureba definiendo una funcion personalizada +/- como sigue:

- abre el editor de vba (atajo de teclado: alt + F11)
- inserta un modulo nuevo estandar (menu: insertar / modulo)
- copia/pega las siguientes lineas:

Function Coinciden(Uno As String, Dos As String, Optional Delim As String

= " ") As Byte

Dim Palabras, Sig As Byte
With Application
Palabras = Evaluate("{""" & .Substitute(.Trim(Uno), Delim, """,""") &

"""}")

End With
For Sig = LBound(Palabras) To UBound(Palabras)
Coinciden = Coinciden - (InStr(1, Dos, Palabras(Sig), vbTextCompare) >

0)

Next
End Function

- cierra el editor de vba (atajo de teclado: Alt + Q o... Alt + F4)
- usa la funcion como las integradas (p.e. en la celda B1)

=Coinciden(a1,b1)

saludos,
hector.

Hola.. Mil gracias por tu apoyo..!

escribió en el mensaje
news:
On 31 jul, 12:26, "Carlos" wrote:

Buenos días Grupo...!

Agradecería de ustedes su gentil ayuda.

Estoy buscando la fórmula que me indique el número de coincidencias de
nombres completos de personas que hay entre dos celdas .. por ejemplo

en la celda A1: Pedro Perez y en la celda A2 Pedro A Perez L

El resultado para el ejempli debe ser 2 (por los nombres Pedro y Perez)

Gracias de antemano.

Hola Carlos

cólocate en b1 e inserta la fórmula =SI(ESERROR(ENCONTRAR("PEDRO";A1));
0;1) .Luego sitúate en c1 y escribe =SI(ESERROR(ENCONTRAR("PEREZ";A1));
0;1) .

Arrastra hacia abajo ambas fórmulas hasta el final del rango de tu
base de datos. Lo que se consigue con esto es que cada vez que
aparezca en las filas de la columna A la palabra PEDRO se contabilice
con un 1 en la columna B y lo mismo con la palabra PEREZ en la columna
C. Finalmente simplemente has de sumar el reultado de las columnas B y
C y obtendrás el número de veces que tienes las dos palabras en tu
base de datos.

Héctor..

Algo adicional luego de evaluar...

Habrá alguna parte en el código que incorpore NO sean consideradas las
letras solas (iniciales de nombres), los puntos y los acentos en palabras.

Por ejemplo: del nombre Pedro L . Pérez C .

Solo debe comparar con la otra celda: el siguiente nombre Pedro Perez (sin
las iniciales L, C sin los correspondientes puntos y el acento en la é)


Gracias nuevamente..



"Héctor Miguel" escribió en el mensaje
news:

hola, Carlos !

> Estoy buscando la formula que me indique el numero de coincidencias
> denombres completos de personas que hay entre dos celdas .. por ejemplo
> en la celda A1: Pedro Perez y en la celda A2 Pedro A Perez L
> El resultado para el ejempli debe ser 2 (por los nombres Pedro y Perez)

pureba definiendo una funcion personalizada +/- como sigue:

- abre el editor de vba (atajo de teclado: alt + F11)
- inserta un modulo nuevo estandar (menu: insertar / modulo)
- copia/pega las siguientes lineas:

Function Coinciden(Uno As String, Dos As String, Optional Delim As String

= " ") As Byte

Dim Palabras, Sig As Byte
With Application
Palabras = Evaluate("{""" & .Substitute(.Trim(Uno), Delim, """,""") &

"""}")

End With
For Sig = LBound(Palabras) To UBound(Palabras)
Coinciden = Coinciden - (InStr(1, Dos, Palabras(Sig), vbTextCompare) >

0)

Next
End Function

- cierra el editor de vba (atajo de teclado: Alt + Q o... Alt + F4)
- usa la funcion como las integradas (p.e. en la celda B1)

=Coinciden(a1,b1)

saludos,
hector.