Jump to content

[Solucionado] Extraer datos de un rango


zopita

Recommended Posts

Hola a todos.

En una hoja tengo una primera línea con una serie de valores agrupados por parejas, y una primera columna con otros valores, como si fueran ejes. Concretando más, en la columna hay una colección de palabras para las que hay que decidir si llevan o no llevan acento gráfico. En la fila superior están las vocales con y sin acento gráfico.

En la intersección de la fila de cada palabra con la vocal correcta he puesto un "ok". Obviamente, en cada fila sólo hay un "ok".

Tengo que sacar cada una de las palabras junto a 4 celdas, dos de ellas las vocales con y sin acento y las otras dos con la marca de verdadero/falso. Me explico, junto a la palabra "melón" tiene que aparecer: celda "o" /celda en blanco (falso) / celda "ó" / celda "ok".

Supongo que en la hoja adjunta se ve mejor.

Y otra pregunta. ¿Hay alguna forma de indicar el número de fila mediante un número arbitrario que haya en una celda? Por ejemplo, si en una celda tengo el valor 5, ¿es posible introducir en una fórmula "fila número igual al valor de esa celda"?

Gracias anticipadas a todos.

para foro_vocales.zip

Link to comment
Share on other sites

Re: Extraer datos de un rango

¡¡Perfecto, perfecto, perfecto!! Gracias, Germán.

Como siempre que pregunto algo aquí, me voy con la solución idónea y mucho para empollar :). La pregunta sobre los números de fila la hacía por si fuera posible utilizar esto para buscar el valor de la intersección de cierta fila y cierta columna. Me lo guardo para el fin de semana.

Gracias de nuevo. Saludos cordiales.

Link to comment
Share on other sites

Re: Extraer datos de un rango

Perdona zopita, no me dí cuenta que tenías el 2003, espero no cometer nuevamente ese error, de todas formas te quedaste con la idea y diste con la solución, eso me parece perfecto y me alegra que quedara solucionado.

Saludos, Germán.

Link to comment
Share on other sites

Guest
This topic is now closed to further replies.
  • Crear macros Excel

  • Posts

    • Muchas Gracias Janlui. Funciona perfecto, veras que he añadido a la macro una última línea que es la que crea el fichero final TXT en una ubicación concreta. Lo que no se es porque una vez generado el TXT la última parte la vuelve a entrecomillar (en la hoja 5 del fichero que adjunto veras un pantallazo del TXT que genera) Repito, muchas gracias por la ayuda Saludos       Ejemplo3.xlsm
    • Observé un pequeño error, espero ya esté bien. Sub genera_txt()     Set datos = Worksheets("Hoja1")     Sheets("hoja2").Select     Dim cadena As String     Range("a27:a5000").ClearComments     rd = 2     rs = 27     xc = Chr(34)     Do While datos.Cells(rd, 1) <> ""         cadena = xc & Left(datos.Cells(rd, 3), Len(datos.Cells(rd, 3)) - 6) & xc & "," & xc         For i = 7 To 11             cadena = cadena & datos.Cells(rd, i)         Next         cadena = cadena & xc & "," & xc         For i = 12 To 56             cadena = cadena & datos.Cells(rd, i)         Next         cadena = cadena & xc & "," & xc & datos.Cells(rd, 1) & xc         Cells(rs, 1) = cadena         rs = rs + 1         rd = rd + 1     Loop End Sub  
    • Disculpa que no te lo regrese en el archivo, pero mi nivel de membresía no me permite completar al 100% el apoyo que solicitan.
    • Copia la macro y el resultado lo pondrá en la Hoja2... Saludos Sub genera_txt()     Set datos = Worksheets("Hoja1")     Sheets("hoja2").Select     Dim cadena As String     Range("a27:a5000").ClearComments     rd = 2     rs = 27     xc = Chr(34)     Do While datos.Cells(rd, 1) <> ""         cadena = xc & Left(datos.Cells(rd, 3), Len(datos.Cells(rd, 3)) - 6) & xc & "," & xc         For i = 6 To 10             cadena = cadena & datos.Cells(rd, i)         Next         cadena = cadena & xc & "," & xc         For i = 11 To 56             cadena = cadena & datos.Cells(rd, i)         Next         cadena = cadena & xc & "," & xc & datos.Cells(rd, 1) & xc         Cells(rs, 1) = cadena         rs = rs + 1         rd = rd + 1     Loop End Sub  
    • Todas tus celdas deberán tener formato numérico.
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy