Cómo funciona JustAnswer:
  • Preguntar a un Experto
    Los expertos tienen muchos conocimientos valiosos y están dispuestos a ayudar en cualquier pregunta. Credenciales confirmadas por una empresa de verificación perteneciente a Fortune 500.
  • Obtener una respuesta profesional
    Por correo electrónico, mensaje de texto o notificación mientras espera en su sitio. Haga preguntas de seguimiento si lo necesita.
  • Garantía de satisfacción plena
    Garantizamos tu satisfacción.
Formule su propia pregunta a Jose Mari
Jose Mari
Jose Mari, Grado Superior
Categoría: Informática
Clientes satisfechos: 526
Experiencia:  Técnico informático y Programador.
57600787
Escriba su pregunta sobre Informática aquí...
Jose Mari está en línea ahora

Como configurar un listado en filas continuas, obtenidas de

Pregunta del cliente

Como configurar un listado en filas continuas, obtenidas de una base de datos de filas distintas ??.
Enviada: hace 6 año.
Categoría: Informática
Experto:  Jose Mari escribió hace 6 año.
Buenos días,
Por favor necesito preguntarte más detalles para poder realizarte la consulta conrrectamente. Por favor, acepta la respuesta y así nos podremos comunicar los dos correctamente.

Quedando a la espera de recibir ntoicias tuyas, recibe un saludo,
Jose Mari y otros otros especialistas en Informática están preparados para ayudarle
Cliente: escribió hace 6 año.
Se trata de hacer un informe en excel.
Tengo una base de datos hecha y quiero extraer los datos de algunas de las filas para formar otro informe con las mismas.
Como las filas que deseo situar en el nuevo informe están salteadas, la pregunta es como situar dichas filas una debajo de otra de forma continua en el nuevo informe.
Lo he intentado con la función "SI" pero no lo consigo.


Experto:  Jose Mari escribió hace 6 año.
Buenos días,

Existen varias maneras de hacer dependiendo de como estén situadas las filas. Me explico, existen dos maneras:

1. Si sabes exactamente qué filas son las que quieres y siempre van a ser las mismas filas, se puede programar una macro que lo que haga sea copia las filas determinadas en otra hoja de excel en las posiciones que se quieran.

2. En el caso de que las líneas no siempre estén en la mismas filas, habría que hacer una macro en la que cuando estés posicionado en la fila deseada, ejecutas la macro y copia la fila en otra hoja.

Por favor, dime cual de las dos opciones sería tu caso para que te pase el código que tienes que insertar en el caso que corresponda.

Quedando a la espera de recibir noticias tuyas, recibe un saludo,
Cliente: escribió hace 6 año.
2. En el caso de que las líneas no siempre estén en la mismas filas, habría que hacer una macro en la que cuando estés posicionado en la fila deseada, ejecutas la macro y copia la fila en otra hoja.
Experto:  Jose Mari escribió hace 6 año.
Buenas tardes,

Sabiendo que tu caso es el segundo debes realizar los siguientes pasos:
1. Crea una macro y copia el siguiente código:
Sub Macro1()
Selection.Copy
Sheets("Hoja2").Select
ActiveSheet.Paste
End Sub

2. Colocate en la celda que quieres copiar en la hoja 1. Después colócate en la Hoja2 donde quieres que se copie el dato.
3 Vuelve a colocarte en la hoja 1 encima de la celda que quieres copiar y ejecuta la macro.

Verás como el contenido de la celda 1 se ha copiado en la posición qe te has colocado en la Hoja 2.

Si necesitas más aclaraciones, ponte en contacto conmigo. Un saludo,
Cliente: escribió hace 6 año.
La verdad es que es la primera vez que toco el tema de las macro, pero te explico: En primer lugar creo la macro, luego voy a modificar para pegarle el código que me mandas, se lo pego, me sitúo tal como me indicas encima de las celdas y al ejecutar me dice: Subíndice fuera de intervalo y me señala "Sheets("Hoja2").Select" en color amarillo.

Te paso también copia de como aparece la macro:

' Macro1 Macro
' Macro grabada el 26/04/2011 por Perfecto Arca Fuentes
Sub Macro1()
Selection.Copy
Sheets("Hoja2").Select
ActiveSheet.Paste
Application.Goto Reference:="Macro1"
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Enero.2").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Enero").Select
End Sub

("Enero.2") es la celda donde quiero que aparezca, ("Enero") es la celda a copiar.

Por supuesto no copia nada.

Un saludo.

Experto:  Jose Mari escribió hace 6 año.
Buenos días,

Con el código que me has pasado sería suficiente con lo siguiente:

Sub Macro1()
Selection.Copy
Sheets("Enero").Select
'ActiveSheet.Paste
ActiveSheet.Paste
'Application.Goto Reference:="Macro1"
'ActiveWindow.ScrollWorkbookTabs Position:=xlLast
'ActiveWindow.ScrollWorkbookTabs Sheets:=-1
'ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Enero.2").Select
'ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Enero.2").Select
ActiveSheet.Paste
End Sub

Las líneas que comienzan con ' son comentarios que no ejecuta Excel. Con el código que te he pasado, hace lo siguiente:
Se supone que tenemos un libro con una hoja llamada Enero y otra Enero.2. Al ejecutar la macro copia el contenido de la celda donde está situado el curso en la hoja Enero a Enero.2

Ya me dirás si es eso.... un saludo,
Cliente: escribió hace 6 año.
Lo primero es que ya no consigo llegar a guardar la macro.

Haber si consigo explicarme bien; Acepto crear nueva macro, luego voy a modificar macro, y le pego la macro que me mandas, así queda:

Sub Macro1()
' Macro1 Macro
' Macro grabada el 26/04/2011 por Perfecto Arca Fuentes
Selection.Copy
Sheets("Hoja2").Select
ActiveSheet.Paste
End Sub

En el cuadro modificar no me aparece ningún apartado guardar, por lo tanto la cierro.

Luego me sitúo en la celda a copiar en hoja "Enero", a continuación voy a hoja "Enero.2" y me sitúo en la celda donde quiero que aparezca el resultado de la hoja "Enero", vuelvo a la hoja "Enero" y me sitúo en la celda a copiar, voy a herramientas, macro y ejecutar.

La contestación es: Error-9 en tiempo de ejecución, subíndice fuera de intervalo.

Al entrar a depurar aparece lo siguiente:
Sub Macro1()
' Macro1 Macro
' Macro grabada el 26/04/2011 por Perfecto Arca Fuentes
Selection.Copy
Sheets("Hoja2").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Enero.2").Select
Range("C34:F34").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Enero").Select
Range("C34:F34").Select
Application.Run "'CUENTAS COMERCIAL.xls'!Macro1"
Application.CutCopyMode = False
Application.Goto Reference:="Macro1"
End Sub

Hay algo que ya me llama la atención, cuando creo la macro y voy por segunda vez al cuadro de macros para modificar, en este cuadro me pone "Detener grabación".

Otra cosa que en ningún momento me presenta la posibilidad de guardar la macro.

Siento las molestias.

Un saludo.


Experto:  Jose Mari escribió hace 6 año.
Buenas tardes,

Vamos por partes:

Para crear la macro tienes que ir a Macros darle a grabar y despues detener. ahí es donde te guarda la macro.

Si quieres te cuelgo un archivo de ejemplo en megaupload para que te lo descargues, te parece bien?

Cuando tenga el archivo te pongo el link para que te lo descargues.

Dame una hora y te lo subo.

Un saludo,
Experto:  Jose Mari escribió hace 6 año.
Buenas tardes,

Te acabo de subir el archivo a esta dirección:
http://www.megaupload.com/?d=0NHDZZ9T

El modo de funcionamiento es el siguiente.
1. Te colocas en la hoja enero.2 donde quieres que se copia el dato.
2. Luego te colocas en la celda que quieres copiar.
3. Ejecutas la macro y verás como se copia el dato de la hoja enero en enero.2

Si necesitas más ayuda no dudes en preguntarme. Un saludo,
Cliente: escribió hace 6 año.

He bajado tu archivo.

Lo siento pero tampoco me funciona.

Al ejecutar la macro me aparece una pantalla "Selector de macros". y me pide que seleccione la macro, selecciono la macro pero no me permite ejecutar.

Como puedo yo pasarte el archivo mío para que puedas estudiarlo ??.

Experto:  Jose Mari escribió hace 6 año.
Buenas noches,

Te recomiendo que abras una cuenta en megaupload y lo subas ahí. Después me ponesw el enlace y así me lo descargo.

Espero tu mensaje...
Cliente: escribió hace 6 año.

Te paso enlace del fichero.

Se trata de hacer una lista en "Enero.2" de las cuentas que corresponden al comercial "Romero Nº 2" desde la hoja "Enero"

http://www.megaupload.com/?d=B23V982E

Un saludo.
Experto:  Jose Mari escribió hace 6 año.
Buenos días,

Me lo descargo al mediodia y te lo miro.

Hasta luego....
Cliente: escribió hace 6 año.

Me gustaría saber algo ?.
Experto:  Jose Mari escribió hace 6 año.
Buenos días,

Para hoy por la tarde te pongo la solución.

Un saludo,
Experto:  Jose Mari escribió hace 6 año.
Buenas tardes, creo que he hecho lo que querías....

Veamos, primero te he puesto una junto a la otra las hojas de Enero y Enero.2

La manera de funcionar la macro es la siguiente:
1. Tienes que colocarte en la hoja Enero.2 en la celda donde quieras que se peguen los datos.
2. En la hoja Enero, selecciona los datos que deseas con el ratón.
3. Ejecuta la macro llamada "Copiando" y el contenido que hayas seleccionado en la Hoja Enero, se copiará en Enero.2

Espero que sea lo que querías. Si no es así dímelo para realizar los cambios que sean oportunos.
El enlace para que te descargues el fichero es este:
http://www.megaupload.com/?d=V9GX3SB2

Quedando a la espera de recibir noticias tuyas, recibe un saludo,
Cliente: escribió hace 6 año.

No soy capad de ejecutar la macro, será que soy muy burro, explícame por favor como ejecutarla.

Experto:  Jose Mari escribió hace 6 año.
Buenos días,

Dime que version de office tienes. si tienes la version 2007 Tienes que ir a la solapa "Vista" que aparece en la barra superior. A la izquierda aparece un botón que pone "Macros". Pinchas sobre el y aparecera una pantalla con todas las macros disponibles. Pinchas una vez sobre la maro llamada "Copiando" y le das al botón "Ejecutar" y ya esta.

Ya me dirás....
Cliente: escribió hace 6 año.

Creo que la versión que tengo es 2.000 ?.
Experto:  Jose Mari escribió hace 6 año.
Hola....

Te he subido lo mismo para la versión 2000.

Este es el enlace. el fichero esta comprimido con winrar.
http://www.megaupload.com/?d=JMAIADT2

Ya me dirás.....
Cliente: escribió hace 6 año.

Lo siento no consigo que me ejecute la macro.

La versión que yo tengo de excel es la 2.002, seguramente será por eso, siento el error.

Pásamelo por favor adaptado para esta versión.

Un saludo.
Experto:  Jose Mari escribió hace 6 año.
Buenas noches,

Ok, te lo paso adaptado. Un saludo
Experto:  Jose Mari escribió hace 6 año.
Buenas tardes,

Este es el enlace de la versión adaptada:
http://www.megaupload.com/?d=SUXE829L

Yo lo he probado y funciona.

Una vez descargado sigue estos pasos:
1. Pinchar en la hoja enero2 donde queremos que se copien los datos de Enero
2. Ir a la Hoja Enero y seleccionar con el ratón los datos que se quieren copiar.
3. Ir a Herramientas/Macro/Macros... y seleccionar la macro y ejecutar.

Los datos se copiarán en la hoja Enero.2

Ya me dirás...
Cliente: escribió hace 6 año.

Bueno por fin funciona, pero solo a medias, me copia los datos seleccionados en columnas, pero no en filas y yo fundamentalmente necesito me copie las filas.

De todas formas una pregunta, no hay algún sistema que funcione automático sin tener que ejecutar la macro cada vez que quiero copiar un dato, teniendo una columna de celdas de referencia como es el caso de la columna P34 y utilizando por ejemplo: SI(Enero-P34=Enero.2-P34) ??.

Si hubiese una formula de este tipo sería la adecuada para mi, en caso contrario te ruego me revises esa macro para hacer que me copie las filas.

Un saludo.
Experto:  Jose Mari escribió hace 6 año.
Buenos días,

Te lo miro y te digo algo...

Un saludo,
Cliente: escribió hace 6 año.

Estoy a la espera de noticias, no tengo mayor prisa, es solo por si tienes despiste.

Un saludo.
Experto:  Jose Mari escribió hace 6 año.
Buenas tardes,

Te lo estoy mirando... Cuando lo tenga no te preocupes que te pongo el enlace.

Un saludo,
Cliente: escribió hace 6 año.

Hola sigo a la espera del enlace.
Experto:  Jose Mari escribió hace 6 año.
Buenos días,

Si no recuerdo mal, ya pasé la solución a través de un enlace de Megaupload.

Un saludo,
Cliente: escribió hace 6 año.

Pues no, en la última comunicación me decías lo siguiente: Te lo estoy mirando... Cuando lo tenga no te preocupes que te pongo el enlace.

Esa fue la última comunicación.
Experto:  Jose Mari escribió hace 6 año.
Buenas noches,

Mañana adjunto el enlace.

Saludos,
Experto:  Jose Mari escribió hace 6 año.
Buenas tardes,

La solución está en este enlace:
http://www.megaupload.com/?d=SUXE829L

Un saludo,
Cliente: escribió hace 6 año.

Debe haber algún error, el enlace que me mandas trae el mismo fichero que yo te mandé, sin modificación alguna, al menos que yo vea.

Saludos.
Experto:  Jose Mari escribió hace 6 año.
Hola,

Lo miro para mañana. Un saludo,