Foro

Agradecer ante todo a quienes intenten dar solución a lo que propongo.



Tengo 6 archivos excel que he creado:



- CALENDARIO-DATOS

- ORDENES DE TRABAJO ACABADOS

- ORDENES DE TRABAJO INSTALACIONES

- ORDENES DE TRABAJO MECANICA

- ORDENES DE TRABAJO PINTURA

- ORDENES DE TRABAJO -VISUALIZADOR-



EN EL ARCHIVO "CALENDARIO-DATOS-" TENGO DOS PESTAÑAS: UNA EN LA QUE PONGO UN CALENDARIO ANUAL (QUE USO PARA MODIFICARLO AQUI Y QUE SE ME MODIFIQUE EN EL RESTO DE HOJAS: ORDENES DE TRABAJO...), LA OTRA PESTAÑA PONGO VARIAS LISTAS PARA USARLAS EN LAS DIFERENTES HOJAS (ORDENES DE TRABAJO...) COMO LISTAS DESPLEGABLES. DE ESTA MANERA SÓLO ACCEDO AL ARCHIVO "CALENDARIO-DATOS" Y MODIFICANDO AQUI EL CALENDARIO O LAS LISTAS, SE MODIFIQUEN EN EL RESTO DE HOJAS.



EN LOS ARCHIVOS "ORDENES DE TRABAJO ACABADOS" HASTA "ORDENES DE TRABAJO PINTURA" TENGO 3 PESTAÑAS PRINCIPALES (CALENDARIO DATOS, QUE HACE REFERENCIA AL CALENDARIO DE LA HOJA "CALENDARIO-DATOS", (OTRA DE INICIO, DESDE DONDE HIPERVINCULADO CELDAS DE CALENDARIO A OTRAS PESTAÑAS), (Y UNA PESTAÑA PLANTILLA, EN LA QUE QUIERO TRAER INFORMACIÓN DEL RESTO DE PESTAÑAS SEGÚN EL NÚMERO DE SEMANA DEL AÑO QUE INTRODUZCA EN LA CASILLA I4) Y LUEGO 52 PESTAÑAS QUE SON LAS 52 SEMANAS DEL AÑO.



El procedimiento sería el siguiente:



Por ejemplo, en el archivo "ORDENES DE TRABAJO MECÁNICA" en la pestaña INICIO pincharía en la celda hipervinculada C2 con el texto "1" y automáticamente iría a la pestaña "1". En esta pestaña se rellena la celda I4 con el valor correspondiente a la pestaña (en este caso ponemos un 1 porque es la semana número 1): automáticamente se rellenan, con los datos del calendario, las pestañas E4 y G4. En la celda C8 rellenaríamos con el número 1 que indica que es el primer trabajo que se hará en la semana 1 (quedando así generado el código MEC-04/01/2010-1). En la casilla D8 se toma de la lista desplegable la opción a la que haga referencia este primer trabajo. En F8,G8, H8, I8 se rellenan los campos con información adicional. (si hubiese mas trabajos se procedería igual en C9).



Del mismo modo se rellenarían las pestañas "2", "3", "4", "5"... una vez que ya se tuviesen varias semanas transcurridas.



Ahora viene la parte que no puedo resolver: desde el archivo "ORDENES DE TRABAJO-VISUALIZADOR-" en la pestaña correspondiente de MECANICA pondríamos en la celda I4, el número de la semana que queremos visualizar en la pantalla resumen. Por ejemplo si ponemos en la celda I4 de la pestaña MECANICA el número 3, debe de traernos a esta pestaña (todas las celdas de la pestaña) la información que habíamos introducido en la semana número 3 de la hoja "ORDENES DE TRABAJO MECÁNICA"... así con todas las demas...



MUCAS GRACIAS, UN SALUDO.

Mira si esta un poco reborujadita tu pregunta..

mas o menos lo que entendi es que tu quieres traer a la la hoja Mecanica del libro Ordenes de trabajo Visualizador los datos que se encuentran en el libro ordenes de trabajo menacnica que estan relacionados con la semana..

Te voy a poner un ejemplo de como traer los datos de otro libro que se relacionan con un valor buscado..

voy a manejar tus mismos nombrede sel tu libro...

no se en que hoja del libro Ordenes de Trabajo Visualizador esta tu base de datos de semanad, entonces voy a manejar como si fuera la hoja1.

ok

ok suponiendo que en la hoja1 del libro Ordenes de Tranajo Visualizador tienes almacenados en la colulna "A" el numero de semana, en la columna "B" el dato1 relacionado con esa semana y en la columna "C" el dato 2 relacionado con esa semana.

ahora estando en el libro Ordenes de Trabajo mecanica, en la hoja Mecanica, en la Celda i4 vamos a poner el numero de semana para que nos treiga todos los datos relacionados con esa semana que estan almacenados en la hoja1 del libro Ordenes de Trabajo Visualizador

Nota:como el dato que vas a buscar lo vas a poner en la celda i1, el dato1 relacionado te lo pondra en la celda i5 y el dato2 en la celda i6


OK.

Esta es la macro que utilizaremos para que realice la busquesa

Sub MyMacro()

Sheets("Mecanica".Select

Range("i4".select

a = Range("i4".Value

Windows("Ordenes de Trabajo Visualizador.xls".Activate
Sheets("hoja1".select
Range("a1".select

[A:A].Find(What:=a, After:=ActiveCell).Select
b = ActiveCell.offset(0,1).Value
c = ActiveCell.offset(0,2).Value
Windows("Ordenes de Trabajo Mecanica.xls".Activate
Range("i5".value = b
Range("i6".Value = c
Range("i4".select

MsgBox("Proceso llevado a cabo con exito"
End sub

buy ambien ambien cr urination - ambien side effects in men