Saltar al contenido
Te enseño 7 de los trucos que me permitieron trabajar 2 horas menos al día >>>

Comprobar si una celda contiene texto contenido en un rango

SantiagoDesimone19901

Recommended Posts

SantiagoDesimone19901 Novato

SantiagoDesimone19901

publicado
publicado

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 B). 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!!

AlexanderS Aficionado

AlexanderS

publicado
publicado

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

SantiagoDesimone19901 Novato

SantiagoDesimone19901

publicado
  • Autor
publicado

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]

AlexanderS Aficionado

AlexanderS

publicado
publicado

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

AlexanderS Aficionado

AlexanderS

publicado
publicado

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

SantiagoDesimone19901 Novato

SantiagoDesimone19901

publicado
  • Autor
publicado

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.

AlexanderS Aficionado

AlexanderS

publicado
publicado

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

AlexanderS Aficionado

AlexanderS

publicado
publicado

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

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas

  • 109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • Sí
      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Mantenimiento de la comunidad
      Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR

  • Archivos

  • Estadísticas de descargas

    • Archivos
      188
    • Comentarios
      98
    • Revisiones
      29
    Más información sobre "Cambios en el Control Horario"
    Última descarga
    Cambios en el Control Horario
    Por pegones1

    4    1

  • Crear macros Excel

  • Mensajes

    • DiegoPC
      FORMULA PARA BUSCAR DIFERENTES RESULTADOS Y MOSTRARLOS

      Por DiegoPC · publicado

      Hola, veo que tienes 365, así que esta forma funcionará   Almacen.xlsx
    • jues
      Guardar Formulario en PDF

      Por jues · publicado

      Buenos días  @LeandroA espero estes bien Tengo un caso idéntico al planteado en la siguiente pregunta: Sin embargo, a diferencia de quien planteo originalmente la pregunta al correr el código no obtengo ningún resultado podrían ayudarme a resolver este inconveniente y que al hacer click en el Botón Guardar (CommandButton3) del Formulario RCS (frmrcs) el archivo pdf quede configurado con orientación vertical, márgenes superior, inferior, derecho e izquierdo = 1 y en página tamaño carta. Si acaso influye uso Microsoft Excel LTSC MSO (versión 2209 Compilación16.0.1.15629.20200) de 64 bits Mucho le sabre agradecer la ayuda que me pueda dar  RCS PRUEBA - copia.xlsm
    • DiegoLG
      Surtido de Mercancía

      Por DiegoLG · publicado

      @JSDJSDCon gusto mi estimado Para la opción 1: Sub Surtirhastadondealcanse() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 4 Dim filaFin As Integer: filaFin = 7 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Else solicitudes(i) = 0 End If surtido(i) = "POR FALTA STOCK" Next i ' Surtir de acuerdo al inventario disponible For i = 1 To numClientes If solicitudes(i) > 0 Then If inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) ElseIf inventario > 0 Then surtido(i) = inventario totalSurtido = totalSurtido + inventario inventario = 0 Else surtido(i) = "POR FALTA STOCK" End If End If Next i ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = "POR FALTA STOCK" Then .Value = surtido(i) .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Para la opción 2:   Sub surtirenpartesiguales() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 13 Dim filaFin As Integer: filaFin = 16 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 Dim totalPedido As Double: totalPedido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) totalPedido = totalPedido + solicitudes(i) Else solicitudes(i) = 0 End If surtido(i) = 0 Next i ' Si hay suficiente inventario, surtir lo que el cliente pide If inventario >= totalPedido Then For i = 1 To numClientes If solicitudes(i) > 0 And inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) End If Next i Else ' Reparto base igualitario Dim baseSurtido As Long baseSurtido = Int(inventario / numClientes) For i = 1 To numClientes If solicitudes(i) > 0 Then If solicitudes(i) <= baseSurtido Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) Else surtido(i) = baseSurtido inventario = inventario - baseSurtido totalSurtido = totalSurtido + baseSurtido End If End If Next i ' Repartir sobrante restante uno por uno, respetando lo pedido Do While inventario > 0 For i = 1 To numClientes If surtido(i) < solicitudes(i) Then surtido(i) = surtido(i) + 1 totalSurtido = totalSurtido + 1 inventario = inventario - 1 If inventario = 0 Then Exit For End If Next i Loop End If ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = 0 Then .Value = "POR FALTA STOCK" .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Saludos, Diego
    • jose_alk
      FORMULA PARA BUSCAR DIFERENTES RESULTADOS Y MOSTRARLOS

      Por jose_alk · publicado

      Buenos dias.  Estoy trabajando en una hoja para poder llevar un control de un pequeño almacén.  Tengo un pedido con varias líneas y "lotes" y necesito sacar las ubicaciones que coincidan con la referencia y lote que pone en el pedido. El problema viene cuando tengo la misma referencia y mismo lote en ubicaciones diferentes y necesito sacar la información en columnas diferentes. No se si  me he explicado bien, pero creo que con el ejemplo adjunto se entiende mejor. Agradecería mucho si me pudieran ayudar  Libro1.xlsx
    • jues
      Buscar Datos con un ComboBox

      Por jues · publicado

      Exelente solución mil gracias 

  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.