Jump to content

Archived

This topic is now archived and is closed to further replies.

Ricky9825

Encontrar ubicación palabra

Recommended Posts

Buen día amigos, de nuevo necesito de su valioso aporte.

Necesito en una hoja de excel en una celda cualquiera se realice la validación de una palabra en varias columnas y filas. Necesito que me diga que la palabra "precio" por ejemplo esta en B1 pero si por ejemplo "precio" esta en otra ubicación entonces me diga la nueva. Se van a buscar palabras únicas

Adjunto archivo con una mejor descripción, en un hilo anterior encontré algo pero no me sirve

muchas gracias

Prueba1.xlsm

Link to post
Share on other sites

Hola, Ricky!

Puedes usar la siguiente función, no volátil, de introducción normal:

=DIRECCION(DERECHA(AGREGAR(15;6;1000*COLUMNA(A1:B10)+FILA(A1:B10)/(A1:B10=E1);1);3);ENTERO(AGREGAR(15;6;1000*COLUMNA(A1:B10)+FILA(A1:B10)/(A1:B10=E1);1)/1000))

Nota: Mi separador de argumentos es ";".  Si no es el tuyo, cámbialo por "," o por el que maneje tu sistema.  ¡Bendiciones!

Link to post
Share on other sites

¡Hola, a todos!

Solo quiero hacer algunas acotaciones...

1. En tu propuesta, Gerson, no funciona el tema en algunas ocasiones (si hay repetidos, como bien lo dice GabrielRaigosa en su aporte).  Por ejemplo, si en tu ejemplo colocas Lechuga en A11, y en C6, la fórmula que propones devuelve C11 (la máxima fila y la máxima columna de varias apariciones).  Esa es la razón por la cual - si hay repetidos - el análisis hay que hacerlo en conjunto, y no por separado.

2. En mi propuesta, se está limitado a 999 filas y/o 999 columnas (o quizá menos, por la combinación fila/columna de los rangos), por lo que simplemente se podría aumentar los rangos donde se quiere buscar (obvialmente) y el "factor de expansión" de 1000 a un número más grande (por ejemplo, 1000000, en ambas partes de la fórmula, de acuerdo con la cantidad de filas potenciales a buscar).  Adicionalmente, un retoque a la fórmula para que funcione mejor.

3. Con la aclaración anterior, y, para evitar escribir dos veces la misma matriz base, se pueden usar rangos formulados (arr en el ejemplo excel), haciendo más fácil la digitación del cálculo base dos veces.

4. También se puede realizar el problema, con funciones volátiles (desventaja por recálculo), y, asumiendo que el lenguaje de Excel es español (F para Fila y C para Columna), quedando un poco más corta (en el ejemplo de Gerson):

=CELDA("direccion";INDIRECTO(TEXTO(AGREGAR(15;6;1000000*FILA(Rng)+COLUMNA(Rng)/(Rng=G1);1);"F0C000000");))

Nota:  Se podría averiguar cuál si se debe usar RC (Row Column) o FC (Fila Columna) por fórmula, pero esto es otro tema...

Adjunto archivo (originalmente de Gerson), con las acotaciones aplicadas (además de quitar el nombre "Repetidos", para más claridad).  ¡Bendiciones!

Buscar valor en rango_GP.zip

Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




  • Posts

    • hola wess   (y Christian) De tu explicación entiendo una cosa, entiendo que Christian se basó en eso para resolver tu tema.  Pero de tu ejemplo, no entiendo nada.. por ejemplo, en Resultado Esperado, de donde sale el productob en Marzo 61 y de Enero a Diciembre 437 si en tu tabla de Datos el productob tiene un único movimiento en Marzo y es 437, entonces, de donde sale 61?? y del resto ya mejor ni digo nada.. 😵   saludos Silvia
    • Un gusto @Sergio, sinceramente no sabría recomendarte alguna pagina o vídeo en concreto, la cinta que vez arriba la hice con una recopilación de paginas y un poco de prueba y error. Pero te aseguro que no es tan complicado como parece, seguro que con leer un poco  de la documentación del programa le agarras el tiro https://bettersolutions.com/vba/ribbon/custom-ui-editor.htm Saludos.
    • Buenas tardes Alexander, Perfecto. De hecho si que necesito decir para algunas celdas individualmente que tipo de fuente aparezca (Ucas;  Lcase; PROPER). Hasta tu respuesta ire probando. Gracias. Saludos,  
    • MI ESTIMADO  @AlexanderS,  ES JUSTO LO QUE QUERÍA, DE VERDAD NO LO HUBIESE PODIDO HACER DE ESA MANERA TAN SIMPLE COMO TU LO HAS HECHO, Y SE ME OCURRIÓ POR AHÍ AGREGAR UNA LINEA PARA BORRAR EL CONTENIDO ANTES DE OBTENER LAS NUEVAS RECETAS...... Sub Copia_recetas()     Dim Rng$, x#     Dim rept        As Range     Dim celda     With Sheets("BD_Recetas")        Rng = .Range("D1")        Range("C9:C43").ClearContents   -   AGREGUE ESTA LINEA        x = 9        For Each celda In Sheets("Proy.-Comer").Range(Rng)        If celda <> "" Then                 Set rept = .Range("C9:C43").Find(celda, , , xlWhole)                 If rept Is Nothing Then _                    .Cells(x, "C") = celda: x = x + 1                 End If         Next     End With End Sub MUCHAS GRACIAS POR TU APOYO ERES UN GENIO, Y POR LA EXCELENTE LECCIÓN QUE ME HAS DADO, ESTOY HACIENDO UN LIBRO DE PRODUCCIÓN INDUSTRIAL, Y SE QUE NECESITARE DE MAS AYUDA PARA PODER CULMINARLO. SI TENGO OTRA CONSULTA ESPERO PODER MOLESTARTE Y QUITARTE ALGO DE TIEMPO. MILES DE GRACIAS,. Y BENDICIONES.        
    • @RadioViraje73, correcto la instrucción copiara los datos en columnas contiguas, entonces tienes algunas opciones: 1 utilizar un ciclo while para leer cada columna de tu tabla individualmente o 2 realizar una consulta a por cada columna para poder utilizar el .CopyFromRecordset, algo como esto: Columnas = Array("FECHA", "PAGADO", "DEBE") For Each param In Columnas Sql = Replace("SELECT ? FROM [Datos$] where (FECHA BETWEEN #1/1/2020# and #31/3/2020#) and DEBE >0", "?", param) Rst.Open Sql, cn, 3, 3 Select Case param Case Is = "FECHA": Sheets("Resultado").Range("A2").CopyFromRecordset Rst Case Is = "PAGADO": Sheets("Resultado").Range("B2").CopyFromRecordset Rst Case Is = "DEBE": Sheets("Resultado").Range("F2").CopyFromRecordset Rst End Select Rst.Close Next Adjunto un pequeño ejemplo, en mi caso la tabla esta en el mismo libro. Obviamente es mas rápido utilizar un ciclo para leer 3 columnas que uno para leer X cantidad de filas.  Comentas, saludos.  Ejem SQL.xlsm
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy