Jump to content

woodixd

Members
  • Content Count

    172
  • Joined

  • Last visited

About woodixd

  • Rank
    Advanced Member
  • Birthday 05/16/1988

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Lo intentare realizar .. como me lo indicas [uSER=133908]@bigpetroman[/uSER] como siempre todo un maestro.. Creo que con esto ya puedo dar por solucionado el tema. He reducido el tiempo en la ejecucion del archivo y he mejorado el codigo a comparacion del inicial que tenia.. muchas gracias por su ayuda [uSER=133908]@bigpetroman[/uSER] y tambien [uSER=140867]@jonetoja[/uSER] por la ayuda y el tiempo que se tomaron en ver mi consulta . Un fuerte abrazo. TEMA SOLUCIONADO.
  2. Mi gran maestro [uSER=133908]@bigpetroman[/uSER]... tienes razon lo que pasa es que aun no logro hacer que la macro me copie las formulas solo hasta donde hay datos. olvide decirte que ya habia corregido lo de ordenar los datos. los encabezados estan ocultos ( fila Nro 12). por eso no lo visualizas. lamento no haber sido claro con eso. estaba intentado implementar el primer codigo que me modifiscaste para poder hacer lo mismo con todas las formulas ... pero me arroja errores :S ... y mira que le he metido tiempo a este archivo .. y aun me falta jajaja.. gracias por sus recomendaciones. un abrazo.
  3. Estos son los 3 Ultimos archivos.. son 8 partes Programacion_ult - V 1.5 - copia.part06.rar Programacion_ult - V 1.5 - copia.part07.rar Programacion_ult - V 1.5 - copia.part08.rar
  4. Hola [uSER=133908]@bigpetroman[/uSER] Subi mi archivo orginal en el post 3. vuelvo adjuntarlo en dos mensajes por que no se puede subir mas de 5 con la modificacion que me pasaste. ahi van los primeros 5 Programacion_ult - V 1.5 - copia.part01.rar Programacion_ult - V 1.5 - copia.part02.rar Programacion_ult - V 1.5 - copia.part03.rar Programacion_ult - V 1.5 - copia.part04.rar Programacion_ult - V 1.5 - copia.part05.rar
  5. gracias [uSER=133908]@bigpetroman[/uSER]... por tu observacion , ya aplique tu codigo y calza bien pero ahora no me ordena los datos de mayor a menor por niveles como antes. .. fechas / OT
  6. [uSER=133908]@bigpetroman[/uSER] acabo de probar tu codigo y me reducio el tiempo regularmente.. gracias por tu ayuda. pero lo que requeria era en lo menos posible dejar de usar formular considerando el peso del archivo. agradesco el apoyo de ambos.. es muy valiosa su ayuda
  7. es correcto [uSER=140867]@jonetoja[/uSER] , en realidad son cerca de 10K. datos que tengo que cargar , agradesco tu ayuda un fuerte abrazo.
  8. [uSER=140867]@jonetoja[/uSER] esta variable Dim RangoBusqueda As Range[/CODE] esta declarada dos veces por lo cual me arroja error. he borrado la variable, pero al ejecutar el codigo .. no me concatena los datos ni me hace la busqueda de los datos que estan con formulada. no se si estoy haciendo algo mal.
  9. en este momentovoy a revisar las dos Opciones gracias por su apoyo... maestro [uSER=133908]@bigpetroman[/uSER] hace mucho que no se sabia de usted.. un abrazo a la distancia.
  10. hola [uSER=140867]@jonetoja[/uSER] siempre van ha ser 16 caracteres. gracias por tu ayuda voy a probar el codigo. y te comunico. un fuerte abrazo
  11. Gracias [uSER=140867]@jonetoja[/uSER]... lo voy a revisar.. si puedes darme una manito con esto seria excelente.. que tengas un buen dia.
  12. Alguien me puede dar una mano.. con mi consulta.. por favor
  13. gracias [uSER=140867]@jonetoja[/uSER] esperare tu solucion. y corregire lo que me indicas.. bendiciones.
  14. Creo que no me explique muy bien .. lamento que no este claro... gracias por darte el tiempo para revisar mi consulta. lo que necesito es simplicar el codigo para que cuando la ejecute el tiempo de espera sea menos... en el caso de ser posible elimanar el uso de formulas y utilizar codigo para hacer la busqueda de cada campo agregado y los calculos en la hoja BD_Discoverer. Te adjunto todo el desarrollo para que lo puedas verificar he borrado la mayoria de datos dejando solo referencias por que hacia muy pesado el archivo.. Gracias por darte el tiempo .. asi mismo te comento que hice lo que me indicaste para simplificar mi codigo y funcional igual hoy aprendi algo nuevo.. Por favor si puedes ayudarme hacer lo que solicito te lo agradeceria. Programacion_ult - copia.part1.rar Programacion_ult - copia.part2.rar
  15. Estimados Maestros Nuenas noches Aqui visitando nuevamente el foro a ver si alguien me da una manito con simplificar el codigo segun detalle ' Modificamos el encabezado de la celda A y colocamos el codigo llave para la busqueda Worksheets("BD_Discoverer").Range("A3").Value = "Cod_llav" Worksheets("BD_Discoverer").Range("A4:A8213").FormulaR1C1 = "=RC[1]&RC[15]" Worksheets("BD_EAM").Range("AG1").Value = "Cod_llav" Worksheets("BD_EAM").Range("AG2:AG8213").FormulaR1C1 = "=RC[-31]&RC[-32]" ' coloca los encabezados en el reporte de seguimiento de O y la formula para buscar datos Worksheets("BD_Discoverer").Range("AR3").Value = "Semana" Worksheets("BD_Discoverer").Range("AR4:AR8213").FormulaR1C1 = "=WEEKNUM(RC[-39],2)" Worksheets("BD_Discoverer").Range("AS3").Value = "Mes" Worksheets("BD_Discoverer").Range("AS4:AS8213").FormulaR1C1 = "=IFERROR(TEXT(RC[-40],""mmmm""),""-"")" Worksheets("BD_Discoverer").Range("AT3").Value = "Año" Worksheets("BD_Discoverer").Range("AT4:AT8213").FormulaR1C1 = "=IFERROR(TEXT(RC[-40],""yyyyy""),""-"")" Worksheets("BD_Discoverer").Range("AU3").Value = "Linea" Worksheets("BD_Discoverer").Range("AU4:AU8213").FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-31],List_Eq,7,FALSE),""-"")" Worksheets("BD_Discoverer").Range("AV3").Value = "Familia" Worksheets("BD_Discoverer").Range("AV4:AV8213").FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-32],List_Eq,3,FALSE),""-"")" Worksheets("BD_Discoverer").Range("AW3").Value = "Modelo" Worksheets("BD_Discoverer").Range("AW4:AW8213").FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-33],List_Eq,5,FALSE),""-"")" Worksheets("BD_Discoverer").Range("AX3").Value = "Serie" Worksheets("BD_Discoverer").Range("AX4:AX8213").FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-34],List_Eq,6,FALSE),""-"")" Worksheets("BD_Discoverer").Range("AY3").Value = "Md" Worksheets("BD_Discoverer").Range("AY4:AY8213").FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-35],Hor_Mtto,2,FALSE),""-"")" Worksheets("BD_Discoverer").Range("AZ3").Value = "Proximo Mtto" Worksheets("BD_Discoverer").Range("AZ4:AZ8213").FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-36],Hor_Mtto,6,FALSE),""-"")" Worksheets("BD_Discoverer").Range("BA3").Value = "Tipo Shutdown" Worksheets("BD_Discoverer").Range("BA4:BA8213").FormulaR1C1 = "=IFERROR(OFFSET(BD_EAM!R1C14,MATCH(BD_Discoverer!RC[-52],BD_EAM!R2C33:R8213C33,0),0),""-"")" Worksheets("BD_Discoverer").Range("BB3").Value = "Tipo Actividad" Worksheets("BD_Discoverer").Range("BB4:BB8213").FormulaR1C1 = "=IFERROR(OFFSET(BD_EAM!R1C11,MATCH(BD_Discoverer!RC[-53],BD_EAM!R2C33:R8213C33,0),0),""-"")" Worksheets("BD_Discoverer").Range("BC3").Value = "Estado" Worksheets("BD_Discoverer").Range("BC4:BC8213").FormulaR1C1 = "=IFERROR(OFFSET(BD_EAM!R1C8,MATCH(BD_Discoverer!RC[-54],BD_EAM!R2C33:R8213C33,0),0),""-"")" Worksheets("BD_Discoverer").Range("BD3").Value = "Actividad de Activo" Worksheets("BD_Discoverer").Range("BD4:BD8213").FormulaR1C1 = "=IFERROR(OFFSET(BD_EAM!R1C7,MATCH(BD_Discoverer!RC[-55],BD_EAM!R2C33:R8213C33,0),0),""-"")" Worksheets("BD_Discoverer").Range("BE3").Value = "Fecha Inicial Programada" Worksheets("BD_Discoverer").Range("BE4:BE8213").FormulaR1C1 = "=IFERROR(OFFSET(BD_EAM!R1C4,MATCH(BD_Discoverer!RC[-56],BD_EAM!R2C33:R8213C33,0),0),""-"")" Worksheets("BD_Discoverer").Range("BF3").Value = "Fecha Finalización Programada" Worksheets("BD_Discoverer").Range("BF4:BF8213").FormulaR1C1 = "=IFERROR(OFFSET(BD_EAM!R1C6,MATCH(BD_Discoverer!RC[-57],BD_EAM!R2C33:R8213C33,0),0),""-"")" Worksheets("BD_Discoverer").Range("BG3").Value = "Duración" Worksheets("BD_Discoverer").Range("BG4:BG8213").FormulaR1C1 = "=IFERROR(OFFSET(BD_EAM!R1C5,MATCH(BD_Discoverer!RC[-58],BD_EAM!R2C33:R8213C33,0),0),""-"")" Worksheets("BD_Discoverer").Range("BH3").Value = "Costo Aplicacion OT" Worksheets("BD_Discoverer").Range("BH4:BH8213").FormulaR1C1 = "=IFERROR(IF(RC[-23]="""","""",IF(RC[-23]=""USD"",RC[-19]*(RC[-24]*3),RC[-19]*RC[-24])),"""")" Worksheets("BD_Discoverer").Range("BI3").Value = "Costo Total OT" Worksheets("BD_Discoverer").Range("BI4:BI8213").FormulaR1C1 = "=IFERROR(IF(RC[-24]="""","""",IF(RC[-24]=""USD"",IF(RC[-34]=""EQSER"",RC[-28]*(RC[-25]*3),RC[-18]*(RC[-25]*3)),IF(RC[-34]=""EQSER"",RC[-28]*R[23513]C[-25],RC[-18]*RC[-25]))),"""")" Worksheets("BD_Discoverer").Range("BJ3").Value = "Sumatoria Total" Worksheets("BD_Discoverer").Range("BJ4:BJ8213").FormulaR1C1 = "=SUMIFS(C[-2],C[-60],RC[1])" Worksheets("BD_Discoverer").Range("BK3").Value = "OT" Worksheets("BD_Discoverer").Range("BK4:BK8213").FormulaR1C1 = "=IF(RC[-61]<>R[-1]C[-61],RC[-61],""NULL"")" Worksheets("BD_Discoverer").Range("BL3").Value = "Departamento Propiedad" Worksheets("BD_Discoverer").Range("BL4:BL8213").FormulaR1C1 = "=IFERROR(OFFSET(BD_EAM!R1C25,MATCH(BD_Discoverer!RC[-63],BD_EAM!R2C33:R8213C33,0),0),""-"")"[/CODE] paso a explicar lo que hace el codigo : Le agrego los encabezados a las celdas "A3" , y a las celdas "AR3" hasta "BL3", y le coloca una formula para concatenar desde "A4" hasta el final de la columna que tenga datos. y le agrega formulas para buscar datos ("de otra hoja") y calcular campos ("en la misma hoja") desde "AR4" hasta "BL4" hasta donde tenga datos tambien. Libro1.xls
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png