Jump to content

soda1206

Members
  • Content Count

    53
  • Joined

  • Last visited

Everything posted by soda1206

  1. Estimado @Leopoldo Blancasanteriormente me has ayudado...quisiera saber si podrías ayudarme en esta ocación.
  2. nuevo link para descarga de archivo ejemplo. https://drive.google.com/open?id=1WNJn1nRFu9NfTwpDb8ddx5XLmuYGY5Fs
  3. Estimados foreros, muy buenos días...ojalá alguien me pueda ayudar... sucede que tengo un gráfico de dispersión (hoja "Estadística_Básica") que necesito dejar con las columnas "fijas" para que se construya el gráfico, estas columnas son las que se leen para crear dicho gráfico, sucede que cuando corro alguna macro para "re-calcular" nuevamente nuevos datos...estas columnas se "resetean" (reset) y cada vez debo volver a seleccionar las columnas para construir el gráfico. Espero me puedan ayudar. Adjunto link para descarga de archivo ya que pesa casi 5mb. Desde ya muchas gracias. https://drive.google.com/open?id=1LIR6TogVXEGWStZ8dGTXMiIYG09pmvqE
  4. Hola estimados foreros, recurro nuevamente a uds porque sé que pueden hacer "magia" con la programación de códigos y que me pueden ayudar con lo que necesito... procedo a explicar...cuando abran el libro que adjunto éste se abrirá en una hoja llamada "Base" que es donde están todos los datos que fueron exportados desde otro software y pegados en esta hoja ("Base") y que a partir de estos datos se crearán algunos cálculos con estadísticas básicas al presionar el botón "Procesar Datos"... al finalizar todo este proceso de cálculos... quedará visible una hoja llamada "Estadística_Básica" que es la que uso como "reporte" ahí verán un gráfico que debería quedar igual al gráfico que está en la hoja "Global CuT", pero éste se des configura y no sé la razón... no así el gráfico de la hoja "Estadística_Básica" (que visualizo como reporte), en esta hoja también verán un botón "VER DATOS" que al presionarlo hace visible las hojas ocultas...además quisiera poder copiar 2 filas más abajo de éste gráfico (de la hoja "Estadística_Básica") algunas celdas que están en la hoja "Resumen", estas celdas serían desde donde dice "BANCO" y "UG" (para este archivo ejemplo sería copiar desde A40:H69 de hoja "Resumen") el problema de esto es que según la cantidad de datos para procesar va variando la fila inicial y final de lo que necesito copiar, espero haberme explicado bien y que me puedan ayudar por favor. Este es el link alojado en Drive ya que pesa 5Mb este archivo. https://drive.google.com/file/d/13uHwm8HbFtQtwe3pjJL97JRAiNh-2z4W/view?usp=sharing
  5. si.... eso era, muchas gracias estimado, muy agradecido y además admirado por tu inmediata respuesta. bendiciones!!
  6. buenas tardes estimado @Leopoldo Blancas , sabes que falta un pequeño "ajuste" a la macro, que me acabo de dar cuenta, arroja todos los resultados resumidos bien !! exceptuando el último tramo de la culumna "hasta" que corresponde al último registro encontrado...no aparece dicho valor, estuve tratando de entenderla y saber donde modificarla, pero no pude, te pido por favor si me puedes ajustar lo que falta y aprovechar de comentar brevemente las líneas del código macro que generaste para poder entender y modificar según las necesidades. Desde ya te estoy muy agradecido. Saludos Cordiales. PD. Si echas a correr la macro fíjate en el último registro procesado, y mira la columna "hasta", no estará el valor...
  7. jajajajajajaj disculpas enserio me vi un poco afligido jajajajjaj, pero bueno...ehhh quiero agradecerte tu tiempo, la macro precisa lo que quiero, ahora te sigo como también a los estimados @johnmpl @Haploxque tmb me han ayudado anteriormente. Estimado le estoy muy agradecido. Saludos Cordiales.
  8. buenos días estimad@s foristas, ojalá me puedan ayudar con mi consulta: necesito asignar un código según sea el tramo, es decir, ejemplo: si sond_aux_1 (col A) cuyo tramo completo (el largo) va desde 0 (col-B) hasta 150 (col C) en total...pero en este tramo, es decir, de 0 a 150 pueden haber distintos códigos asignados, estos códigos están en la col E ... entonces si sond_aux_1 tiene el tramo que parte en 0 hasta 66 y el código es 0, entonces asignar código -9.... luego desde el tramo (destacado en amarillo) 66 al 84 tiene código 610, entonces debería quedar la solución como está en las columnas H:K, así sucesivamente asignando código según tramo. Necesito una macro para automatizar esto, ya que son miles los datos, adjunto archivo de ejemplo para mejor entendimiento. Desde ya les agradezco su ayuda estimados foreros. Saludos Cordiales.

    flag_codigo.xlsx

    estimado @johnmpl puedes ayudarme con esa consulta por favor. Desde ya te agradezco cualquier comentario. Por Favor ayúdame.

  9. @Leopoldo Blancas Estimado Leopoldo, he tratado de conseguir ayuda con esta macro aún no he tenido ninguna respuesta de algún miembro del foro, sería posible que tu me puedas ayudar?? te lo agradecería mucho.
  10. estimado @johnmpl puedes ayudarme con esa consulta por favor. Desde ya te agradezco cualquier comentario.
  11. estimado @Haplox me podrías ayudar con esta consulta por favor. Te lo agradecería mucho mucho.Saludos.
  12. buenos días estimad@s foristas, ojalá me puedan ayudar con mi consulta: necesito asignar un código según sea el tramo, es decir, ejemplo: si sond_aux_1 (col A) cuyo tramo completo (el largo) va desde 0 (col-B) hasta 150 (col C) en total...pero en este tramo, es decir, de 0 a 150 pueden haber distintos códigos asignados, estos códigos están en la col E ... entonces si sond_aux_1 tiene el tramo que parte en 0 hasta 66 y el código es 0, entonces asignar código -9.... luego desde el tramo (destacado en amarillo) 66 al 84 tiene código 610, entonces debería quedar la solución como está en las columnas H:K, así sucesivamente asignando código según tramo. Necesito una macro para automatizar esto, ya que son miles los datos, adjunto archivo de ejemplo para mejor entendimiento. Desde ya les agradezco su ayuda estimados foreros. Saludos Cordiales. flag_codigo.xlsx
  13. Estimado @johnmpl probé tu último código (en el mismo archivo original con más de 2.000 registros) que pudiera optimizar el tiempo de ejecución y te comento que se demora mucho más, a la hora con 10 minutos tuve que cancelar el proceso ya que necesitaba realizar otras labores en excel, pero me quedo con el código anterior que respondió más menos entre 30 a 40 minutos, es entendible la demora...son más de 2000 registros y el proceso tedioso del mismo cálculo que realiza la macro. Quedé feliz con tu solución y aprovecho de felicitarte y agradecerte nuevamente por tu apoyo, hasta la próxima consulta . TEMA SOLUCIONADO.
  14. estimado @johnmpl la hiciste nuevamente!!!! eres un genio!!!!!! muchas gracias, funcionó a la perfección, lo probé en el archivo original de más de 2.000 registros, se demora cerca de 30 minutos, pero funciona!!!, estoy muy agradecido por tu apoyo siempre... muchas bendiciones!! y muchas gracias de nuevo!! Pd. cómo doy por resuelta mi consulta??
  15. estimado @johnmpl efectivamente no había tachado el box de solver, ahora se ejecuta, pero le faltó estas restricciones que están en la macro grabada que te mostré inicialmente y en tu código las agregué de esta forma: SolverAdd CellRef:="$AH$" & i, Relation:=1, FormulaText:="100" (columna AH sea <= 100) SolverAdd CellRef:="$AH$" & i, Relation:=3, FormulaText:="$AB$" & i (columna AH sea >= que columna AB) y lo que me está faltando es que si la columna AG y/o Columna AH tienen valor -1 que las deje tal cual...con ese valor -1, que no calcule nada. este es el código que tengo hasta el momento, falta decirle que si detecta en la columna AG y/o columna AH el valor -1, no realice modificaciones, código: Sub SolverRango() Dim i& Application.ScreenUpdating = False For i = 4 To 5 Range("AG" & i).Resize(, 2) = Array(1, 70) SolverOk SetCell:="$AQ$" & i, MaxMinVal:=3, ValueOf:=0, ByChange:="$AG$" & i & ":$AH$" & i, _ Engine:=1, EngineDesc:="GRG Nonlinear" SolverAdd CellRef:="$AH$" & i, Relation:=1, FormulaText:="100" SolverAdd CellRef:="$AH$" & i, Relation:=3, FormulaText:="$AB$" & i SolverOk SetCell:="$AQ$" & i, MaxMinVal:=3, ValueOf:=0, ByChange:="$AG$" & i & ":$AH$" & i, _ Engine:=1, EngineDesc:="GRG Nonlinear" SolverSolve True Next i Application.ScreenUpdating = True End Sub
  16. estimado @johnmpl gracias por el apoyo, hice lo de prender solver en el VBE e interté tu código en un módulo para luego correr la macro, pero me arroja este error (ver foto) adjunta, a qué se puede deber??
  17. Hola foreros, espero que me puedan ayudarme, tengo un código el cual quisiera automatizar (código vb pegado al final de este mensaje), ya que son más de 2.000 registros y hacerlo 1 a 1 es de locos, la verdad que no sé como hacer para que este código grabado se realice fila a fila...empezando de la siguiente manera: voy a columna AG y coloco 1 en la celda a calcular (en este ejemplo voy en celda AG 8) y en celda adyacente (celda AH 8) coloco 70, luego voy al complemento SOLVER y elijo celda objetivo que es celda AQ 8, y cambiando las celdas de variables AG8:AH8 y sujeto a las restricciones dadas en AH8 <= 100 y AH8>=AB8 y "RESOLVER" para que realice cálculo. en el fondo quiero que este cálculo que se ve en el código grabado, vaya avanzando fila a fila. Espero haberme explicado en algo y adjunto archivo ejemplo a través de google drive por que no dejó subir el archivo al sitio. https://drive.google.com/file/d/1uu_X93JQcucIhV5mUkTiwJvSuFDiVZTy/view?usp=sharing Sub Macro1() ' ' Macro1 Macro ' ' Range("AG5").Select ActiveCell.FormulaR1C1 = "1" Range("AH5").Select ActiveCell.FormulaR1C1 = "70" Range("AQ5").Select SolverAceptar definirCelda:="$AQ$5", valorMáxMín:=3, valorDe:="0", _ celdasCambiantes:="$AG$5:$AH$5" SolverEliminar referenciaCelda:="$AH$21", relación:=1, Formula:="100" SolverAgregar referenciaCelda:="$AH$5", relación:=1, Formula:="100" SolverAceptar definirCelda:="$AQ$5", valorMáxMín:=3, valorDe:="0", _ celdasCambiantes:="$AG$5:$AH$5" SolverEliminar referenciaCelda:="$AH$4", relación:=3, Formula:="$AB$4" SolverAgregar referenciaCelda:="$AH$5", relación:=3, Formula:="$AB$5""" SolverAceptar definirCelda:="$AQ$5", valorMáxMín:=3, valorDe:="0", _ celdasCambiantes:="$AG$5:$AH$5" SolverResolver End Sub
  18. Hola @johnmpl y muchas gracias nuevamente por tu gran aporte, ahora me queda más claro lo de la fórmula, estas cubicaciones las genero frecuentemente, ahora tengo como poder mostrar el resumen mucho más rápido y detallado a la vez. bendiciones y hasta pronto.
  19. Estimado @johnmpl , quisiera entender bien la fórmula...por qué no da lo mismo usar cualquier columna es este caso??, ya que se está calculando el promedio ponderado, en la solución que me diste se calcula así...es decir, la fórmula... =E2*$H2/SUMAR.SI($C$2:$C$115,$C2,$H$2:$H$115) .... empieza multiplicando el valor de ley de cobre total (CuT) por su tonelaje [E2*$H2] y luego divide por la suma total del rango columna C....y ahí ya me pierdo osea no entiendo lo que está en color salmón, no entiendo por qué la columna C. Otra consulta...cómo puedo agregar el total general dentro de la tabla dinámica, lo hice, pero no es muy robusta la forma, cólo lo harías tu???? te agradezco cualquier comentario. Saludos cordiales.
  20. buenos días estimado @johnmpl, quisiera ver si es posible que me puedas explicar cómo funciona la fórmula aplicada (de sumaproducto) en la solución que me diste...para entenderla al 100%. desde ya muy agradecido. Atte., @soda1206
  21. @johnmpl Grande maestro!!!! muchas gracias, era lo que quería, quizás más adelante quisiera agregarle algo, estoy muy agradecido sinceramente...un abrazo a la distancia y hasta pronto. Saludos cordiales y bendiciones eternas para tí. Atte., @soda1206
  22. Hola estimados, me pueden ayudar en esto por favor...necesito tener la función "sumaproducto" dentro de una tabla denámica, de tal forma que vaya mostrando este cálculo según lo que se filtre en tabla_dinámica, en la hoja datos está la función destacado en color amarillo, eso mismo quiero, pero dentro de la tabla dinámica, adjunto archivo ejemplo. muchas gracias!! sumaproducto.xlsx
  23. bendiciones para tí también estimado @johnmpl y gracias por lo explicado, ahora estoy más claro con la macro. Saludos cordiales.
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png