Hola, mi nombre es Santiago y soy nuevo en el foro.

Quisiera por favor pedir ayuda con este tema que me tiene muy trabado:

Tengo una lista de nombres de nombres de cuentas de usuarios de un sitio web. Por ejemplo: mica_99 o Zeta_Florchu o CARP_12Mauro

Paralelamente, yo mismo creé una lista de 1030 nombres y sobrenombres de mujer (columna B de Excel).

Ejemplo: Maria o Florencia o Florchu o Micaela o Mica

Lo que quiero hacer identificar si cada una de las celdas de la columna A contiene dentro de sí alguno de los valores presentes en la columna B (es decir, en un rango de valores).

Pensé en lo siguiente:

=SI(ESNUMERO(ENCONTRAR(B1;A1));"Correcto"; "Incorrecto")

Esa formula esta mal porque en donde dice "B1"deberia estar especificado no una celda en particular, sino todo un rango de datos (el de la columna . Pero si pongo eso, la formula no da el resultado que espero.

A continuacion les doy un ejemplo de cómo el resultado debería ser.

COLUMNA A;COLUMNA B ;COLUMNA C

chintia12221;chintia;Correcto

Pinguina_acacia;acacia;Correcto

LuuPereira__ada;ACACIA;Correcto

micaavilac_adabela;Ada;Correcto

stefanianigro;ada;Incorrecto

AntoLopez09;ADA;Incorrecto

LuuMendi;Adabela;Incorrecto

AlvarezAld;adabela;Incorrecto

mari;ADABELA;Incorrecto

99_adryy;Adela;Incorrecto

GeadelaorgiPalacio;adela;Incorrecto

adelaviquigasparini;ADELA;Correcto

Pame_rogustina;Adelaida;Incorrecto

¿Alguien puede ayudarme con esto?

Muchas gracias!!

Hola lo primero que debes hacer es pasarte por aquí para que conozcas las normas del foro y así nos sea mas fácil ayudarte, después adjunta un archivo excel con los datos como lo escribiste arriba y con los resultados que esperas obtener para que no tengamos que perder tiempo inventándonos datos y nos sea mas rápido solucionar tu problema.

Salu2

Gracias Riddle, disculpas si irrespeté alguna de las reglas del foro.

Cargo entonces los datos inventados y los resultados que espero obtener (inventé los datos porque la base de datos original es muy extensa). Espero ser más claro con esto. Gracias de nuevo.

[table border="1px"]
[tr]
[td]nombres que se quieren verificar/td]
[td]el nombre a verificar ¿coincide con alguno de la lista de referencia? AQUÍ DEBAJO IRIA LA FORMULA]/td]
[td][/td]
[td]lista de referencia[/td]
[/tr]

<tr bgcolor="#FFCC00">
<td>chintia12221</td>
<td>correcto</td>
<td bgcolor="#fff"></td>
<td bgcolor="#fff">acacia</td>
</tr>

<tr bgcolor="#FFCC00">
<td>mari_Pinguina_</td>
<td>correcto</td>
<td bgcolor="#fff"></td>
<td bgcolor="#fff">Ada</td>
</tr>

<tr bgcolor="#FFCC00">
<td>Pereira__ADABELA</td>
<td>correcto</td>
<td bgcolor="#fff"></td>
<td bgcolor="#fff">ada</td>
</tr>

<tr>
<td>vilac_a</td>
<td>incorrecto</td>
<td bgcolor="#fff"></td>
<td bgcolor="#fff">ADABELA</td>
</tr>

<tr>
<td>stefanianigro</td>
<td>incorrecto</td>
<td bgcolor="#fff"></td>
<td bgcolor="#fff">adabela</td>
</tr>

<tr>
<td>AntoLopez09</td>
<td>incorrecto</td>
<td bgcolor="#fff">    </td>
<td bgcolor="#fff">Adela</td>
</tr>

<tr bgcolor="#FFCC00">
<td>LuuMendi</td>
<td>correcto</td>
<td bgcolor="#fff"></td>
<td bgcolor="#fff">adela</td>
</tr>

<tr bgcolor="#FFCC00">
<td>Alvarezjosefina</td>
<td>correcto</td>
<td bgcolor="#fff"></td>
<td bgcolor="#fff">Adelaida</td>
</tr>

<tr bgcolor="#FFCC00">
<td>mariano_090</td>
<td>incorrecto</td>
<td bgcolor="#fff"></td>
<td bgcolor="#fff">adelaida</td>
</tr>

<tr>
<td>99_adrian</td>
<td>incorrecto</td>
<td bgcolor="#fff"></td>
<td bgcolor="#fff">Adelia</td>
</tr>

<tr>
<td>GeaPalacio</td>
<td>incorrecto</td>
<td bgcolor="#fff"></td>
<td bgcolor="#fff">adelia</td>
</tr>

<tr bgcolor="#FFCC00">
<td>adelaviquigasparini</td>
<td>correcto</td>
<td bgcolor="#fff"></td>
<td bgcolor="#fff">chintia</td>
</tr>

<tr bgcolor="#FFCC00">
<td>pame_romeero</td>
<td>correcto</td>
<td bgcolor="#fff"></td>
<td bgcolor="#fff">franchesca</td>
</tr>

<tr>
<td>LucaaaasCabj</td>
<td>incorrecto</td>
<td bgcolor="#fff"></td>
<td bgcolor="#fff">josefina</td>
</tr>

<tr>
<td>sttylsbieb</td>
<td>incorrecto</td>
<td bgcolor="#fff"></td>
<td bgcolor="#fff">Luu</td>
</tr>

<tr>
<td>alaag</td>
<td>incorrecto</td>
<td bgcolor="#fff"></td>
<td bgcolor="#fff">mari</td>
</tr>

<tr>
<td>Sofevera</td>
<td>incorrecto</td>
<td bgcolor="#fff"></td>
<td bgcolor="#fff">pame</td>
</tr>

<tr>
<td>    </td>
<td>    </td>
<td>    </td>
<td>    </td>
</tr>

<tr>
<td>Formula sugerida para lograr esto</td>
<td> Incorrecto</td>
<td></td>
<td>    </td>
</tr>

<tr>
<td>    </td>
<td>=IF(ISNUMBER(FIND(B2,A2))," Correcto", " Incorrecto")</td>
<td></td>
<td>    </td>
</tr>


[/table][/HTML]

disculpas si no se ven los datos: el link de este sitio que explica como hacer para envolver en codigo mi planilla de datos no funciona.

Hola solo debes presionar el botón que dice "Subir archivo" que esta a la par del de responder, el archivo debe estar en formato xls , rar o zip.

Salu2

qué torpe! ahi pude, gracias. adjunto finalmente la base de datos!

duda.rar

Hola

Prueba el adjunto solo presionas el botón "Ejecutar macro", esta echo para que funcione sobre el archivo que adjuntaste, si el real tiene una estructura similar funcionara sin problema, de lo contrario abra que modificar algo.

El código esta en el modulo de la hoja1

Salu2

duda.zip

Riddle, por lo que veo funciona bien. Muchas gracias. Sin dudas he avanzado muchísimo gracias a tí.

Investigué cómo hacer para trasladar esa Macro a una hoja de calculo de otro archivo (aquel en el que finalmente voy a utilizarlo). Seguí las indicaciones aquí: Copiar un módulo de una macro en otro libro - Excel - Office.com pero me quedé en el final. Me gustaría aprender. ¿Quieres enseñarme cómo? Gracias de nuevo.

Hola lo único que debes hacer es :

1. Preciona ALT + F11, se abre una ventana

2. En esa ventana ve hacia la opcion "Insertar" y selecciona "modulo"

3. Copia este código completo y pegalo dentro de ese modulo.

Sub Compro()
Application.ScreenUpdating = False
Dim celda, rango, cel As Range
Set rango = Range("A2:A" & [A65531].End(xlUp).Row)
For Each cel In Range("D2:D" & [D65531].End(xlUp).Row)
For Each celda In rango
If InStr(1, celda, cel.Value) Then
With celda.Offset(0, 1)
.Interior.Color = 255
.Value = "Correcto"
End With
Else
If celda.Offset(0, 1) = "" Then celda.Offset(0, 1) = "Incorrecto"
End If
Next
Next
End Sub[/PHP]

4. Cierra la ventana, para ejecutarlo solo presiona en el libro excel ALT + F8

5. Selecciona "Compro" y dale a ejecutar

Espero me aya explicado bien.

Salu2

Creo que te haz explicado bien, pero sin embargo no lo he logrado, los siento. Mejor adjunto aquí el archivo sobre el cual yo voy a trabajar definitivamente. Ahi creo que quedara todo más claro para todos. Por favor míralo, muchas gracias.

4_11_13axehym.rar

Tu fomula inicial seria asi

=SI(SUMAPRODUCTO(--ESNUMERO(HALLAR(D$1:D$18; A2)));"Correcto";"Incorrecto")[/CODE]

Hola puedes utilizar la formula que te dejo Armando la cual por la cantidad de datos que tienes es mucho mas practica que una macro, ya la probé y da los mismos resultados que con la macro pero tarda menos, solo que para tu archivo seria algo así:

=SI(SUMAPRODUCTO(--ESNUMERO(HALLAR(E$1:E$3090; B1)));"Correcto";"Incorrecto")[/CODE]

Salu2

Con macro obtenido con la grabadora, ajustar rangos :

Sub Duda()

    Range("C2:C3090").Formula = _

        "=IF(SUMPRODUCT(--ISNUMBER(SEARCH(E$1:E$3090, B1))),""Correcto"",""Incorrecto"")"

End Sub

[/CODE]