Buscar palabras de x letras en excel

[sauwi]

Hola, tengo una lista de palabras y quiero buscar loslo tas que tengan x letras

como lo puedo hacer?


Lo he intentado con ???? para 4 letras pero nada me saca las que tienen de 4 en adelante.

Saludos

[abrahamvj]

Debes usar VBA

Abraham

[sauwi]

Gracias,alguien podria decirme como hacerlo?

Saludos

[novato76]

Hola qué tal:

A ver si entendí bien tienes una tabla con una lista de palabras y a ti te interesa sólo ver algunas que tienen cierto número por ejemplo que te cuente todas las que tienen 5 letras...mmmm...se me ocurren dos maneras sencillas sin necesidad de usar macros. Espero que alguna te sirva.
Primera:
Supongamos que tu lista está en el rango A1 a A10, en la columna B vas a meter esta fórmula =Largo(A1), el resultado que vas a obtener es el número de letras que tiene la palabra, después copias la formula hacia abajo de modo que todas las palabras de la lista queden con su respetiva formula en la columna B, ya después sólo te vas al menú datos y eliges la opción Autofiltro, me imagino que si sabes cómo se usan los filtros en excel, ya después sólo vas filtrando los números que te interesan en la lista desplegable vas a ir viendo cuántos valores tienes disponibles. Eso es la primera forma, ahora la
Segunda:
Soponiendo que tu lista está en el mismo rango (A1 a A10) en la columna B vas a meter esta formula (Vamos a suponer que quieres sólo las que tienen 5 letras) =SI(LARGO(A1)=5,"Correcto","Incorrecto") Con esto le indicas a la máquina que busque las palabras que tienen 5 letras y si las encuentra que te ponga la palabra "correcto" en la formula y si no es asi que te ponga "incorrecto" estas palabras son sólo ejemplos tu puedes usar las que quieras o lo que quieras que te aparezca, sólo cambia lo que va entre comilas por ejemplo se me ocurre que si la palabra tiene 5 letras en vez que de diga "corecto" que sólo te ponga un "1" y si no que te ponga la celda en blanco, en este caso la fórmula sería =SI(Largo(A1)=5,"1"," ") con eso ya identificarías más facilmente lo que estas buscando, ya después si quieres palabras de otra longitud sólo ve sustituyendo número 5 por el número que quieras buscar, puedes poner 6,7,8...etc. los números que tu quieras.
Espero te sirva de algo o si no avisame para ver si podemos buscarle algo más.

Suerte.

[3pies]

Prueba con este macro (lo he probado y funciona, pero no ha sido una prueba a fondo, y tampoco he depurado el código, aunque seguramente se podrían reducir líneas):

Código:

Sub buscar()
    'creamos la variable "palabra_a_buscar", que será igual al valor
    'que introduzcamos ebusquedael inputbox
    palabra_a_buscar = Trim(InputBox("Introduce la palabra a buscar", "Buscador"))
    'Asignamos el objeto "buscar", a la variable "busqueda"
    Set busqueda = Cells.Find(What:=palabra_a_buscar)
    'Si no existe esa palabra buscada, mostramos un mensaje
    If busqueda Is Nothing Then
        MsgBox "No he encontrado nada. Lo siento."
    'Si existe esa palabra buscada...
    Else
        'Si la palabra encontrada tiene 4 letras...
        'asignamos el primer resultado a una variable, para que cuando creemos el bucle
        'de búsquedas no entre en un loop infinito de búsquedas, y se pare al volver a
        'encontrar el primer resultado (no sé si ha quedado muy claro...)
        primer_resultado = busqueda.Address
            'Creamos un bucle por si encuentra más de 1 palabra
            Do
                    'redefinimos el objeto búsqueda con los siguientes resultados
                    Set busqueda = Cells.FindNext(busqueda)
                    'seleccionamos la celda donde estamos
                    Range(busqueda.Address).Select
                    'nos fijamos en la celda de que se trate, y quitamos
                    'el valor absoluto que devuelve ($). En realidad, lo que
                    'estamos haciendo, es reemplazar $ por nada
                    celda_encontrada = Replace(busqueda.Address, "$", "")
                    'Si la celda encontrada tiee 4 caracteres...
                    If Len(Range(busqueda.Address)) = 4 Then
                        'creamos un contador
                        contador = contador + 1
                    End If
                    'Si la celda donde estamos corresponde al primer resultado
                    'de la búsqueda, y tiene 4 caracteres, mostramos un mensaje
                    If contador = 1 And Len(Range(busqueda.Address)) = 4 Then
                        MsgBox "En la celda " & celda_encontrada & " tienes la palabra " & UCase(palabra_a_buscar) & "."
                    'y si corresponde a otro resultado (segundo, tercero, etc)
                    'y tiene 4 caracteres, mostramos otro mensaje
                    ElseIf contador <> 1 And Len(Range(busqueda.Address)) = 4 Then
                        MsgBox "...y en la celda " & celda_encontrada & "."
                    End If
            'seguimos buscando mientras encuentre algún resultado, y mientras
    'no volvamos a obtener el primer resultado
            Loop While Not busqueda Is Nothing And busqueda.Address <> primer_resultado
    End If
    'limpiamos el objeto
    Set busqueda = Nothing
End Sub

NOTA: Solo busca aquellas palabras que encuentre y que tengan 4 caracteres.

Salu2

[sauwi]

Funciona perfectamente.Muchisimas gracias

[jarcia19]

Bunas.. Soy nuevo en esto de marcos en ecxel .. Actualmente me encuentro realizaando las pasantia y necesito elaborar un marco en exel que me busque el contenido de palabras dentro de un mismo libro , o si es posible dentro de varios libros, ya que lo que estoy realizando es un programa en ecxel, y posee muchos hipervinculos.. Ya estoy culminando mi proyecto .. Si me pueden ayudar en esto se los agradeceria .. Muchas gracias de ante mano...

[Monimo]

Iniciado por jarcia19

Bunas.. Soy nuevo en esto de marcos en ecxel .. Actualmente me encuentro realizaando las pasantia y necesito elaborar un marco en exel que me busque el contenido de palabras dentro de un mismo libro , o si es posible dentro de varios libros, ya que lo que estoy realizando es un programa en ecxel, y posee muchos hipervinculos.. Ya estoy culminando mi proyecto .. Si me pueden ayudar en esto se los agradeceria .. Muchas gracias de ante mano...

Debes abrir un nuevo tema, los temas de este post son del 2007. Nadie va a leer tu post y no se enteraran de tu problema. Abre un nuevo tema con tu duda para que te ayuden.

[totoy23]

hola disculpen tengo un archivo de excel con mas o menos 500 filas, y necesito separa esa informacion por tipo, ejem: separar todas las filas donde aparezca la balabra barra, .... y copiarlas en una hoja nueva, son varias palabras y quiero hacer eso con todas, no se nada de programacion, me podrian ayudar con el codigo? lo que yo se es copiarlo en la macro y ejecutarlo solamente.

gracias